Perl 正则表达式捕捉匹配

文本处理中经常需要将字符串中一些符合匹配的子串捕捉，新发现了一个简单的方法。

老方法：
$str = "EJV.done.2010-10-10.2010-11-11.xml";
if($str =~ /([/d-]+).([/d-]+)/){
    $firstdate = $1;
    $seconddate = $2;
}

新方法：
($firstdate,$seconddate) = ($str =~ /([/d-]+).([/d-]+)/);

相比而言稍微少写一些，适合懒人。