perl 正規表現処理について

perlの正規表現で、Aというファイルの中から、2に
マッチしたらマッチした行から}まで、抜き出すというのは
どのようにやるのでしょうか？

# ファイルAの内容
1 parameter {
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
yyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyy
zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz
}
2 parameter {
aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb
}
3 parameter {
ccccccccccccccccccccccccccccccccc
ddddddddddddddddddddddddddddddddd
}

欲しいデータとしては
2 parameter {
aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb
}
を取得したいです。

以上宜しくお願いします。

No.2 ベストアンサー 回答者： Tacosan 回答日時： 2009/07/24 00:49

対象が $_ にあるとすれば, 範囲演算子 .. を使って

print if /^2 parameter/ .. /^\}/;
とも書けます.

No.1 回答者： _--_1l1_1_ 回答日時： 2009/07/23 21:16

#!/usr/bin/perl

use warnings;
use strict;

my $filename = shift || 'file_a.txt';
open my $fh, '<', $filename or die "$filename: $!";

my $text;
{
local $/ = undef;
$text = <$fh>;
}
close $fh or die "$filename: $!";

if ( $text =~ m/(2 parameter {[^{]*})/s ) {
print $1, "\n";
}

$ cat file_a.txt
1 parameter {
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
yyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyy
zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz
}
2 parameter {
aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb
}
3 parameter {
ccccccccccccccccccccccccccccccccc
ddddddddddddddddddddddddddddddddd
}
$ perl foo.pl file_a.txt
2 parameter {
aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb
}
$