![１－１．コード例
open(IN, 'perform.csv' );
while(<IN>){
#改行除去、カンマ区切りで配列へ
chomp ($_);
my @data = split(/,/, $_);
#クォーテーション除を
for (my $i=0; $i<@data; $i++) {
$data[$i] =~ s/(")+//g;
}
#値の取得
$value1 = $data[1]; $value2 = $data[2]; $value3 = $data[3];
}
close(IN);](https://image.slidesharecdn.com/perl-121020074343-phpapp01/85/Perl-6-320.jpg)
![１－２．コード例
#-------------------------------------------------------------------------
# Usage:command path [-r]
# Usage:command path [--recursive]
#-------------------------------------------------------------------------
use Getopt::Long;
#コマンドオプション
my $opt_recursive = 0; #サブディレクトリを検索するかどうか
GetOptions( 'recursive' => $opt_recursive );
my $directory = $ARGV[0];
if ( ! $directory ) {
print "No Args ! Usage:command PATH" ;
exit(1);
}
searchDirectory( $directory ); #指定したディレクトリを走査する再帰処理](https://image.slidesharecdn.com/perl-121020074343-phpapp01/85/Perl-9-320.jpg)
初めてのPerl
- 2. 自己紹介 名前：＊＊＊＊ twitter：@Arvelt はてなID：arvelt ブログ：arveltの技術メモ 仕事： SIerで客先常駐。たまに違う現場へ。 Java、COBOL、（ASP.NET、VB.NET） 最近興味あること： Web系かっこいい。Android、Ruby on Rails。 …え、Perl?
- 3. 初めてのPerl １．Perlを使ってみた。 １－１．CSVファイルを読みこむ。 １－２．ディレクトリの一覧を表示する。 １－３．ファイルをFTP経由でアップロードする。 １－４．Excelファイルを読み込む。 ２．まとめ
- 4. １．Perlを使ってみた とある環境 Windows7 Perofessional 32bit ActivePerlをダウンロードして、インストール >Perl --version This is perl 5, version 14 >perl -e "print 'hello,world!'" hello,world!
- 6. １－１．コード例 open(IN, 'perform.csv' ); while(<IN>){ #改行除去、カンマ区切りで配列へ chomp ($_); my @data = split(/,/, $_); #クォーテーション除を for (my $i=0; $i<@data; $i++) { $data[$i] =~ s/(")+//g; } #値の取得 $value1 = $data[1]; $value2 = $data[2]; $value3 = $data[3]; } close(IN);
- 8. １－２．ディレクトリ一覧表示 引数で渡したパスのディレクトリとファイルを表示する。 オプションの有無でサブディレクトリも表示するかを切り替える >list.pl "C:" -r みたいに使いたい。
- 9. １－２．コード例 #------------------------------------------------------------------------- # Usage:command path [-r] # Usage:command path [--recursive] #------------------------------------------------------------------------- use Getopt::Long; #コマンドオプション my $opt_recursive = 0; #サブディレクトリを検索するかどうか GetOptions( 'recursive' => $opt_recursive ); my $directory = $ARGV[0]; if ( ! $directory ) { print "No Args ! Usage:command PATH" ; exit(1); } searchDirectory( $directory ); #指定したディレクトリを走査する再帰処理
- 10. １－２．思ったこと ・USE ってやるとライブラリを使える ・=>は、"key"=>"value"として使うらしい ・$ARGV にコマンド引数が配列で格納される ・空文字と数字の0は偽になるらしい
- 11. １－３．ファイルアップロード コンパイルしたモジュールを開発サーバーへアップロードした い。 あるディレクトリに格納されているモジュールを、 FTP経由で開発サーバーへとアップロードしようとした。
- 12. １－３．コード例 use Net::FTP; use Config::Tiny; my $config = Config::Tiny->new->read('setting.ini'); my $ftp=$config->{_}->{FTP_SERVER} ; my $ftp_id=$config->{_}->{FTP_ID } ; my $ftp_pass=$config->{_}->{FTP_PASS } ; my $ftp = Net::FTP->new($FTP_SERVER) or die "Cannot connect to $FTP_SERVER: $!"; $ftp->login( $ftp_id, $ftp_pass); # ログイン $ftp->put( $uploadfile ) ; # アップロード $ftp->quit;
- 13. １－３．思ったこと ・こんなに少ないStep数で処理できてすごい！（脳内Java比） ・=~ /.*hoge.*/ みたいにいきなり正規表現でかけるのがすご い ・文字コードがよくわからない。
- 15. １－４．コード例 use Win32::OLE qw(in with); use Win32::OLE::Const 'Microsoft Excel'; my $excel = Win32::OLE->GetActiveObject('Excel.Application') || Win32::OLE->new('Excel.Application', 'Quit') || die 'cannot get active excel! interupted.'; my $book = $excel->Workbooks->Open( 'test.xlsx' ) || die "no File. interupted. :$!"; # ファイルを開く my $sheet = $book->Worksheets( 'sheet1' ) || die 'No sheet! Interupted.'; #シートを取得する my $data = $sheet->Range("A1")->{Value} || die 'No ref. Interupted.'; print "$datan"; #値を取得する #ブックを閉じる $book->Close(); #エクセルを閉じる $excel->quit();
- 16. １－４．思ったこと ・ || die 、or dieをつけると例外をキャッチしてくれる、、、？ ・Excel操作めんどくさい。ExcelのDOM構造を知ってないとかけ ない ・Close処理忘れると悲惨 ・Excel方眼紙作成時の強い味方に・・・ ・文字コードのせいか、パスが文字化けして読み込めなかった。 同じ処理をRubyで書いてみたら 一発で動いた件について
- 18. ２．まとめ ・文字コードについて ○読みこむ先のファイルの文字コード ○書き込む先のファイルの文字コード ○ソースコード内に記載されたリテラルの文字コード ○Perl内部で処理する際の文字コード
- 19. ご清澄ありがとうございました。