2006-08-24 正規表現 perlだと、こんな感じでmatchさせてとるんだけど、 $data =~ /(hoge)/; warn $1; これもありです。 my ($hoge,) = ($data =~ /hoge/); warn $hoge