比较两段CODE，请您帮修改！谢谢～

QUOTE:

原帖由 perljoker 于 2008-1-18 09:50 发表

Lonki代码确实漂亮……，不过
my %id_all = map { /(\d+)\s+(.*)\s*/ } ;
这句话我确实没看懂，map左边是hash，map里面是个正则
这样做会得到什么结果呢？还是竟然能得到$1和$2？

to LZ，我那个 ...

QUOTE:

原帖由 perljoker 于 2008-1-18 10:32 发表

确实如此
map会自动返回后面正则表达式得到的$1和$2作为对值返回
他第二个表达式要容易看懂

CODE:

my %id_all;
while(<ID_ALL>){
  my($aa,$bb) = $_ =~/(\d+)\s+(.*)\s*/;   #flag
  $id{$aa}=$bb;
}

QUOTE:

（仙子注：上文是说遍历每个LIST元素时产生一个结果列表，而不是说总的map结果是个列表，不要搞混了哦。）
2. 转换数组到hash：找到某个数组值的索引

代替重复的搜索数组，我们可以用map来转换数组到hash，并通过hash关键字来进行直接查找。如下的map用法相对于重复的数组搜索，更简单高效。

@teams = qw(Miami Oregon Florida Tennessee Texas
            Oklahoma Nebraska LSU Colorado Maryland);
%rank = map { $teams[$_], $_ + 1 } 0 .. $#teams;
print "Colorado: $rank{Colorado}\n";
print "Texas: $rank{Texas} (hook 'em, Horns!)\n";

打印结果是：
Colorado: 9
Texas: 5 (hook 'em, Horns!)

上述code容易理解哦，0 ..$#teams 是个列表，$#teams代表@teams最后一个元素的下标值（这里是9），所以这个列表就是0-9这几个数了。map遍历上述列表，将每个列表元素临时设置为$_，并对$_在中间的{}里进行计算；{ $teams[$_], $_ + 1 }，这里每次计算后返回一个2元素的列表，列表结果是某个数组值和对应的数组下标加1，明白了呀？

由于对每个LIST元素进行计算时，都产生一个2元素的列表，所以总的map结果就可看作一个hash了。hash关键字就是数组元素，hash值是对应的数组下标加1。

QUOTE:

原帖由 ly5066113 于 2008-1-18 09:54 发表
路过问一下，如果我用
perl -e '........' file1 file2 ....filen
的方式处理n个文件，我有什么办法能判断我现在处理的是哪个文件？

QUOTE:

file1内容为123
file2内容为456
perl -e "while(<>){print $ARGV if bof;print;}" file1 file2
Result:
123
123
456
456

CODE:

C:\>echo 123>f1

C:\>echo 456>f2

C:\>perl -e "while(<>){print $ARGV if bof;print;}" f1 f2
f1123
f2456

QUOTE:

#echo 123 > f1
#echo 456 > f2
#perl -e "while(<>){print $ARGV if bof;print;}" f1 f2
123
123
456
456