急急急，perl脚本使用map,grep,split的问题，在线等高手解惑

cnmtchbgs

我有一个这样的程序
my $text='VALUE[3]="abc"
VALUE[2]="xyz"
';

my %multi_arms = map{ $1 => $2 if(/\[(\d+)\]\s*=\s*(.*)/sm) } grep {$_} split /VALUE/, $text;

foreach( sort keys %multi_arms)
{
  print $multi_arms{$_};
}
输出结果是
"abc"
"xyz"
我觉得其中的grep {$_}是多余的，然后我去掉它后，运行结果无输出。很疑惑，求高手解惑！

cnmtchbgs

为什么只有看的，没说话的呢。求高手

zhlong8

明显你没打开警告，要学会自己调试，至少要会 Data::Dumper 的使用，你 split 之后有个元素是空字符串

cnmtchbgs

回复 3# zhlong8


    果然厉害，歇息

langren868

明显你没打开警告，要学会自己调试，至少要会 Data:umper 的使用，你 split 之后有个元素是空字符串
zhlong8 发表于 2010-12-15 15:13

     我想太多了，R

baoyu05

明显你没打开警告，要学会自己调试，至少要会 Data:umper 的使用，你 split 之后有个元素是空字符串
zhlong8 发表于 2010-12-15 15:13

    虽然有空串，但是空串不满足if(/\[(\d+)\]\s*=\s*(.*)/sm)，因此不会放到%multi_arms吧？
为什么会报错呢？

justlooks

太罗嗦了

1. 
   
2. $ perl -e 'my $test=q{VALUE[3]="abc"
   
3. VALUE[2]="xyz"};my %multi_arms=$test=~m/^(.*)=.(.*)./mg;print $multi_arms{$_},"\n" for keys %multi_arms;'
   
4. abc
   
5. xyz
   
6. 
   

复制代码

baoyu05

太罗嗦了
justlooks 发表于 2011-02-12 09:47

    是简化了不少，但我空串为什么报错？因为已经过滤掉了

zhlong8

虽然有空串，但是空串不满足if(/\[(\d+)\]\s*=\s*(.*)/sm)，因此不会放到%multi_arms吧？
为什么 ...
baoyu05 发表于 2011-02-12 09:36

    map 就是一一对应的，进来的列表有多长返回就是多长的列表，你那里不匹配那返回的就是 空字符串 啊。自己测试测试

justlooks

回复 8# baoyu05


    你自己把key value打印出来就明白了