正規表現でマッチした文字列を取得する

グループ

$s = "2013/11/12";
($y,$m,$d) = $s =~ /(\d+)\/(\d+)\/(\d+)/;
print "$1-$2-$3\n";
print "$y-$m-$d\n";

2013-11-12
2013-11-12

複数マッチ

$s = "456__123___789";
@m = $s =~ /[\d]+/g;
print "@m\n";

456 123 789

参考:perl で正規表現にマッチした文字列を配列に入れる方法 | perl/CGI | 阿部辰也のブログ――人生はひまつぶし。

1個

$s = "abcdefg";
$s =~ /b.*e/;
print "$&\n";

bcde

$&はすごく遅くなるらしいので1個でもグループを使うようにする