2004-02-13 ■ Perl 正規表現の結果文字列取得my $str = "hoge moge hoge"; #対象をカッコで囲む。 $str =~ /(moge)/; #カッコが2つ、3つとあれば、$2、$3に結果が入る print "$1\n"; #$1 へ入れる処理はコストが高いらしいので必要ない場合は以下の通り if($str =~ /(?:moge)) {; #マッチ } else { #アンマッチ }