2014-07-01から1ヶ月間の記事一覧
@a1 = (['あ','い','う','え','お'], ['か','き','く','け','こ']);@a2 = ('さ','し','す','せ','そ');push @a1,\@a2; #ここがポイントfor($i = 0; $i < scalar(@a1); $i++){ for($j = 0; $j < scalar(@{$a1[$i]}); $j++){ print $a1[$i][$j]." "; } print "…
use List::Util; ... @array = List::Util::shuffle @array;
シンプルです。 @array = ();
オリジナルのテキストに?などのメタ文字があると正規表現を用いる時に不便。 なので自動的にエスケープさせると便利 $original = 'hello! What's your name?'; $escaped = quotemeta $original;
C-x r t をした後に指定文字を入力。 Perlで複数行に#を使ってコメントアウトする時に便利。
Perlで置換を用いる時はメタ文字に注意しなければならない。 例えば $word = 'Are you free tomorrow?'; $erase = '?'; $word =~ s/$erase//; #ハテナを消そうとする ただし、これだと'?'がメタ文字と認識され消えない。 $word =~ s/\Q$erase\E//; これで解…