Chinaunix

标题: 问,模式匹配是否可以嵌套使用 [打印本页]

---

作者: japuser    时间: 2008-04-22 14:04
标题: 问,模式匹配是否可以嵌套使用
简单描述下，从一个字符串中匹配一个表达式 比如~/\d{10}/g;并将所有匹配结果在另一字符串进行匹配，目的是想确认源字符串和目标字符串是否有相同的10位数字。

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

大概的意思是这样的。

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

---

作者: smonkey0    时间: 2008-04-22 16:59

原帖由 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    时间: 2008-04-22 22:31
非常感谢！

---

欢迎光临 Chinaunix (http://bbs.chinaunix.net/)

Powered by Discuz! X3.2