ULTIMATE Perl メモ蔵出し
2006-05-28-2
[BookReview][Programming]
水野貴明著「ULTIMATE Perl」を読んでいたときのメモが
埋もれていたので蔵出し (ref. [2004-12-24-2])。
自分にしか意味がなさそうなメモなので公開してなかったみたい。
ま、気にせず公開。
ちなみに、これって初心者向けの本ではないです。念のため。
埋もれていたので蔵出し (ref. [2004-12-24-2])。
自分にしか意味がなさそうなメモなので公開してなかったみたい。
ま、気にせず公開。
$s = do{local $/; <>;}; print $s; # slurpモード {local $/ = \3; local $\ = "\n"; print while <>;} {local $\="\n";print "hello";print "hohoho";} {local $" = "\t"; @a = ("a","b","c"); print "@a\n";} $s = "a12b3c456de78"; @a = $s =~ /(\d+)/g; print "@a\n"; $s = "a12b3c456de78"; @a = ($s =~ /\d+/g); print "@a\n"; $s = "a12b3c456de78"; (my $t = $s) =~ s/\d/X/g; print "$t\n"; @list = grep(!$count{$_}++, @list); $s = "abcde"; my ($r) = ($s =~ /X/, "defalut"); print "$r\n"; AND検索 : $s = "and kensaku"; print "ok\n" if($s =~ /(?=.*d)(?=.*k)(?=.*an)/); while(<>){print if (1..3) && /^\S/;} ($a == 1) && do {exit} print_file(*FH); # ファイルハンドル渡し タグの外側だけ置換 : $s = "b<b>ba</b>"; $s =~ s/((?:\G|>)[^<]*?)b/$1X/g; print "$s\n"; マッチする位置 : $s = "a12b3c456de78"; print pos($s),"\n" while $s =~ /(\d+)/g; $s = "a12b3c456de78"; pos($s) = 10; BEGIN {my $c = 0; sub count_up {++$c}} print count_up,"\n"; Closure use Benchmark; sanitize : ディレクトリトラバーサル、ヌル文字を削除 タイムアウトの設定 : alarm(5); $SIG{ALRM}='tout'; 1 while(1); sub tout {die "time out\n"} sub tout {print "hello\n"; alarm(5)} パスワード直書きを避ける : print "ok\n" if (crypt($pw, substr($e_pw,0,2)) eq $e_pw);
ちなみに、これって初心者向けの本ではないです。念のため。