Perlの質問です。特定のキーワードに挟まれたテキストの行数カウントを目的としたプログラムを作っています。添付画像のように、1... - Yahoo!知恵袋

Perlの質問です。 特定のキーワードに挟まれたテキストの行数カウントを目的としたプログラムを作っています。 添付画像のように、1万行程度のテキスト中にNoとNoの間に何行かの文字(画像ではAAA)が入ります。 Perlの質問です。 特定のキーワードに挟まれたテキストの行数カウントを目的としたプログラムを作っています。 添付画像のように、1万行程度のテキスト中にNoとNoの間に何行かの文字(画像ではAAA)が入ります。 この部分の行数をカウントしたいのですが、Perlで以下のようなイメージでプログラミングしたいと思いますが、なかなかうまくいきません。 サンプルとなるような文を作って頂けないでしょうか？ 何卒、よろしくお願いします。 イメージ (1)「No.」というキーワードが出てきたらフラグを立てる。 (2)フラグがたっている間は行数をカウントし続ける。 (3)フラグがたっているときに「N

[kiyo_hiko]

状態4つしかなさそcondで十分げ「open my $h,'<',$ARGV[0]; my ($n,$counting); my ($start,$end)=map {sub {$_[0]=~/^No\./}} 0..1; while (<$h>) {$counting ? ($end->($_) ? do {$counting=0; print "$n\n"} : ++$n) : ($start->($_) ? do {$counting=1; $n=0} : next)} close $h;」適当かつ未確認