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

galaxy001

11^# galaxy001 发表于 2008-06-30 10:02

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

yvmu

12^# yvmu 发表于 2008-06-30 12:00

[Copy to clipboard] [ - ]

CODE:

#!/usr/bin/perl
use warnings;
use strict;

my $date="abc;efg;ddd; fdd";

while ($date=~/^([^;]+;( +[^;]*)*)/){
$date=$';
print $1."\n";
}

不死草

13^# 不死草发表于 2008-06-30 12:07

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