perl 文字列の比較に関して

if ($xx eq $yy) # $xxと$yyが等しければ
if ($xx ne $yy) # $xxと$yyが異なっていれば

if ($xx lt $yy) # $xxが$yyより小さければ
if ($xx gt $yy) # $xxが$yyより大きければ

if ($xx le $yy) # $xxが$yyより等しいか小さければ
if ($xx ge $yy) # $xxが$yyより等しいか大きければ

if ($xx =~ /ABC/) # $xxがABCという文字を含んでいれば
if ($xx !~ /ABC/) # $xxがABCという文字を含んでいなければ

if ($xx cmp $yy) # 比較し、-1, 0, 1 のいずれかで返す

perlで文字を連結する

文字を連結する時は、「 . 」で繋げる

こんな感じ

$today = $year.'/'.$mon.'/'.$mday;

perlで日付を取得する方法

($mday,$mon,$year) = (localtime(time))[3..5];
$year += 1900;
$mon += 1;