k****n
发帖数: 8684 | 1 #!/usr/local/bin/perl
open FH, shift @ARGV;
map{ chomp; $isword{uc join "", sort /./g} .= "$_+" } ;
map{ chop $isword{$_} } keys %isword;
请问大牛们，
1）这两个map执行什么操作？
2）有什么经典的perl书籍可看吗？
多谢了。 |
j********x
发帖数: 2330 | 2 perl的语法看上去总是那么费解，但是很炫。。。 |
d****p
发帖数: 685 | 3
// open a file with the 1st element of array @ARGV
// construct a hash each of whose key is a unique line in the file, all
upper cased. the value is a concatenation of all found lines
// remove the trailing +
【在 k****n 的大作中提到】
: #!/usr/local/bin/perl
: open FH, shift @ARGV;
: map{ chomp; $isword{uc join "", sort /./g} .= "$_+" } ;
: map{ chop $isword{$_} } keys %isword;
: 请问大牛们，
: 1）这两个map执行什么操作？
: 2）有什么经典的perl书籍可看吗？
: 多谢了。
|
d*******8
发帖数: 3182 | 4 如果没人懂的话，老衲到愿意一试
第一个map 是将变量加入到一个hash/array/dict 里面。具体地讲，就是读取一个文件
，然后将文件的每一行先sort 一遍，然后uc 后添加到hash/array/dict 里面。
第二个map 其实就是将hash/array/dict 的每一个元素打印出来
【在 k****n 的大作中提到】
: #!/usr/local/bin/perl
: open FH, shift @ARGV;
: map{ chomp; $isword{uc join "", sort /./g} .= "$_+" } ;
: map{ chop $isword{$_} } keys %isword;
: 请问大牛们，
: 1）这两个map执行什么操作？
: 2）有什么经典的perl书籍可看吗？
: 多谢了。
|
t**********n
发帖数: 145 | 5 比较经典的Perl书首推Oriely的骆驼书
【在 k****n 的大作中提到】
: #!/usr/local/bin/perl
: open FH, shift @ARGV;
: map{ chomp; $isword{uc join "", sort /./g} .= "$_+" } ;
: map{ chop $isword{$_} } keys %isword;
: 请问大牛们，
: 1）这两个map执行什么操作？
: 2）有什么经典的perl书籍可看吗？
: 多谢了。
|
