问,模式匹配是否可以嵌套使用

QUOTE:

原帖由 japuser 于 2008-4-22 14:04 发表
简单描述下，从一个字符串中匹配一个表达式 比如~/\d{10}/g;并将所有匹配结果在另一字符串进行匹配，目的是想确认源字符串和目标字符串是否有相同的10位数字。

接触的例子不多，不知道怎么写。

大概的意思 ...

CODE:

my $st1="st1sdf1234567890sst1sdf3234567890sst1sdf1234567890s";
my $st2="st2sdf3234567890s";
my $st3="st3sdfsdfsdfsdfsd";
my ($result1,$result2)=undef;
map({$result1=$st2=~/$_/ ? 'yes' : $result1} $st1=~/\d{10}/g );
map({$result2=$st3=~/$_/ ? 'yes' : $result2} $st1=~/\d{10}/g );

print "result1 is $result1\tresult2 is $result2\n";