2013年4月1日

perl 取出正则表达式的匹配位置

摘要： my $a="1234567895";while ($a=~/5/g) { my $p=pos($a); print "$p\n";} 阅读全文

posted @ 2013-04-01 19:26 云中道长 阅读(410) 评论(0) 推荐(0) 编辑

导航