Perl - ファイル読み込み キーボード入力 端末 TTY
特に高度なことはやっていない作業効率化用のperlのサンプルです。 perlはJAVAとかと同じくC系の構文ですけど、lastだったりelsifだったり、配列とハッシュの記号がわからなくなったり、忘れるんですよね。 みなさんも仕事を半分の時間で終わらせて、残りの時間は呆けながら休みの余暇について考えて下さいね！ サンプルは随時更新：2017/07/27 ◆ファイル読み込みと出力 perlと言えば正規表現を使ったテキスト編集が主に使う理由ですよね。下記サンプルは引数チェックとファイル読み込みのみです。 #!/usr/bin/perl use POSIX; use feature "switch"; #引数・オプション格納変数 $Hogehage_File = ""; $Opt_A = ""; #内部変数 $tmpstr = ""; @Array_A = (); %Hash_A = (); sub check_argument { my(@argv) = @_; while( $#argv >= 0 ) { if( $argv[0] =~ /^-a/ ) { $Opt_A = $argv[1]; shift(@argv); } else { last; } shift(@argv); } $Hogehage_File = $argv[0]; if( ! -f $Hogehage_File ) { print(STDERR "File:$Hogehage_file is not a file or not found.\n"); &print_usage; exit(1); } return(0); } sub print_usage { print(STDERR "Usage: aiueo.pl [-a AAA] ほげはげファイル\n"); retur