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

baoyu05

回复  baoyu05


    你自己把key value打印出来就明白了
justlooks 发表于 2011-02-12 12:41

    [root@as5 ~]# cat da
#!/usr/bin/perl
my $text='VALUE[3]="abc"
VALUE[2]="xyz"
';

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

foreach( %multi_arms)
{
  print $_,"->",$multi_arms{$_},"\n";
}
[root@as5 ~]# ./da
->3
3->
"abc"
->2
2->
"xyz"
->
->3
结果打印出来更不明白了，数组里本来只有3个元素，其中一个是空串，应该是3->"abc"，2->"xyz"，-> 才对。结果与我预料的没一个对
这些结果是怎么来的？

yybmsrs

回复 11# baoyu05

是这个意思：

1. my @foo = map {$_ if $_>2} (1..4);
   
2. 
   
3. print Dumper(\@foo);

复制代码

baoyu05

回复  baoyu05

是这个意思：
yybmsrs 发表于 2011-02-12 14:26

    不明白