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

japuser

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

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

大概的意思是这样的。

$string=~/\d{10}/  $anotherstring=~/ $1/  /eg;

smonkey0

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

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

大概的意思 ...

1. my $st1="st1sdf1234567890sst1sdf3234567890sst1sdf1234567890s";
   
2. my $st2="st2sdf3234567890s";
   
3. my $st3="st3sdfsdfsdfsdfsd";
   
4. my ($result1,$result2)=undef;
   
5. map({$result1=$st2=~/$_/ ? 'yes' : $result1} $st1=~/\d{10}/g );
   
6. map({$result2=$st3=~/$_/ ? 'yes' : $result2} $st1=~/\d{10}/g );
   
7. 
   
8. print "result1 is $result1\tresult2 is $result2\n";

复制代码

刚题目意思理解错了...

[ 本帖最后由 smonkey0 于 2008-4-22 21:25 编辑 ]

japuser

非常感谢！