Perlの覚書
配列
配列Aに含まれて居て配列Bに無いものを抽出
foreach my $var (@arrA){ unless(grep(/^$var$/,@arrB)){ push(@newarr,$var) } }
http://lunatear.net/archives/000309.html
マッチング
行をまたがるマッチ s
ファイルをまるごと変数に読み込んで修飾子s。if ( $doc =~ m/<p>.*?</p>/s )
修飾子sは、「.」を改行にもマッチさせるという指定で、これがないと行末でマッチングの判定が途切れる。
http://blog.so-net.ne.jp/tink/2004-09-27
複数回マッチ gc
ドキュメント中に同じパターンが何度も現れる場合、gとcの修飾子を使って次のように書きます。while ($doc =~ m/<img.*?>/gc) { ... }
gは先頭だけでなく以降も含めてすべてのパターンにマッチさせることを指示し、cはそれ以上マッチしなかった場合にマッチ検索位置をリセットしないように指示します。これによって、1つ目がマッチした後、次は2つ目と順にマッチさせることができます。
http://blog.so-net.ne.jp/tink/2004-10-04
2007年04月21日(土) 20:23:34 Modified by jungfrau_