split问题求教!

aideruike

$line="1(((5"
@lines=split(/(\D+)/,$line);
这样分出来的数组有未定义项,怎么去掉?
最后@lines中要为"1","(","(","(","5"五项~
谢谢~

longbow0

@lines = split //, $line

erpeng_1988

回复 1# aideruike
split /\D+/,$line
把括号去掉

rubyish

学习了

aideruike

回复 2# longbow0
如果这样的话1(((55的时候是"1","(","(","(","5","5",我需要"1","(","(","(","55"

   

aideruike

回复 3# erpeng_1988

这样就没有"("了不是嘛?
   

mcshell

回复 1# aideruike

1. perl -e '$line="1(((55";@arr=split/(\()/,$line;for (0..$#arr){next if ($arr[$_]=~m/^\s*$/);print "$arr[$_]\n"}'

复制代码

erpeng_1988

回复 1# aideruike
$line="1(((55";
@lines=split //,$line,5;
print "@lines",scalar @lines,"\n";
加limit,分为五个字段
   

iLRainyday

1. my $string = "1(((55";
   
2. my @elements = grep { !( $_ eq "") } split /(\()/, $string;
   
3. print "@elements";

复制代码

tanjiyong138

回复 9# iLRainyday


    求教，split /(\()/, $string   split /\(/, $string  这两个结果完全不一样，split 有括号和没括号是什么区别呀？