- 48 名前：nobodyさん mailto:sage [2008/04/05(土) 14:40:16 ID:???]
- >>45
ついでに
use strict;
my $joined = join "", <>;
my @matches = $joined =~ m{(<h[13]>.*?</h[13]>)}isg;
print map "$_\n", @matches;
でなったけど
リャマ本から省略して書くと
htmlみたいなマークアップ言語には多くの落とし穴があるから単純なパターンは使わずそれ用のモジュールを入手したほうがいいらしい。
