[已解决][求助]如何做如下字串切分？

galaxy001

perl -ne "print if 1../__END__/" ttt.pl
又看到用for的判断。顺便学习。

yvmu

1. #!/usr/bin/perl
   
2. use warnings;
   
3. use strict;
   
4. 
   
5. my $date="abc;efg;ddd; fdd";
   
6. 
   
7. while ($date=~/^([^;]+;( +[^;]*)*)/){
   
8. $date=$';
   
9. print $1."\n";
   
10. }
    

复制代码

[ 本帖最后由 yvmu 于 2008-6-30 12:02 编辑 ]

不死草

零宽度断言，呵呵，好东西，我要多看看咯。。。