ワンライナーで16進数を変換

'x'の前に'\'を付けるのを忘れて失敗したなう。
$perl -pe 's/\x09/','/' test.csv > out.csv

失敗例
$perl -pe 's/0x09/','/' test.csv > out.csv

繰り返すときは'g'を忘れずに。
$perl -pe 's/\x09/','/g' test.csv > out.csv

標準エラーにメッセージ出力

標準エラーにメッセージを出力する。

print STDERR "File not found.\n";

見つからなかったファイル名を出力する。

my $file1= 'test1.txt';
my $file2= 'test2.txt';

if (!-f $file1) {
　　print STDERR "$file1 not found.\n";
}

if (!-f $file2) {
　　print STDERR "$file2 not found.\n";
}

論理演算の優先度

論理積
a && b > a and b

論理和
a || b > a or b

改行コード変換

dos2unix

＄perl -pe 's/\r\n/\n/' dos.txt > unix.txt

unix2dos

＄perl -pe 's/\n/\r\n/' unix.txt > dos.txt

プログラム内からsystemで実行する場合は\をエスケープする必要がある。

system("perl -pe 's/\\r\\n/\\n/' dos.txt > unix.txt");

標準出力をファイルに書き込む

標準出力をファイルに書き込む。

open(STDOUT, "> stdout.txt");

chomp(@array);

配列の全要素の改行コードを取る。

chomp(@array);

※スカラーだけではなく配列にも使えることを最近知った

グリニッジ標準時

グリニッジ標準時（Greenwich Mean Time）を表示。

print scalar(gmtime) . "\n";

配列の参照

\を付けてサブルーチンに渡す。
サブルーチンでは@を付けて参照。

@fish = ('sanma', 'saba', 'maguro');

&sakana(\@fish);

sub sakana {
　　$uo = $_[0];
　　print "@$uo[0]\n";
　　print "@$uo[2]\n";
}

実行結果
sanma
maguro

※fishを参照->山椒魚

elsif

Cだとelse if
Pythonはelif
RubyはPerlと同じでelsif

混同し易い。特にelse ifとelsif。
elseはどのプラミング言語も大抵elseなので間違うことはない。

配列の要素数を求める

my @test_table = ();
print "$#test_table\n";
my $test_table[0] = 'nogizaka46';
print "$#test_table\n";
my $test_table[1] = 'keyakizaka46';
print "$#test_table\n";

実行結果
-1
0
1