新人求解

inchonline

map { $h{ (split)[1] } .= $_ } <$N1>;
这行里，“.=”中间的点连接有什么用啊，去掉了运行也没有问题
回复 14# rubyish


   

inchonline

map { $h{ (split)[1] } .= $_ } <$N1>;
这行里，“.=”中间的点连接有什么用啊，去掉了运行也没有问题
回复 14# rubyish


   

rubyish

回复 15# codeternity

1. #!/usr/bin/perl
   
2. my %h;
   
3. open my $N1, 'new1.txt';
   
4. open my $N2, 'new2.txt';
   
5. my @N1 = map { my $k = (split)[1]; $h{$k} = 1; [ $k, $_ ] } <$N1>;
   
6. my @N2 = map { my $k = (split)[1]; $h{$k} ? do { $h{$k}++; $_ } : () } <$N2>;
   
7. print map( { $h{ $_->[0] } > 1 ? $_->[1] : () } @N1 ), @N2;
   

复制代码

rubyish

回复 21# inchonline

1. my $H = 'hello';
   
2. $H .= ' world!';
   
3. say $H;   # hello world!

复制代码

.=

1. GZ    BB    YY
   
2. TJ    BB      OO
   
3. SH    CC    XX
   
4. SZ    CC    ZZ
   
5. HN   CC      PP

复制代码

=

1. GZ    BB    YY
   
2. TJ    BB      OO
   
3. SZ    CC    ZZ
   
4. HN   CC      PP

复制代码

rubyish

回复 19# kernel69


    http://bbs.chinaunix.net/forum.p ... ;page=2#pid23894051

kernel69

感谢大牛{:3_200:}

回复 25# rubyish


   

codeternity

回复 24# rubyish
大侠，如查这两个文件是这样的：
new1.txt
SH    AA    XX
GZ    BB    YY
SZ    CC    ZZ
BJ     DD   WW
new2.txt
SH
GZ
SZ
BJ
TJ
HN
NB
我想根据第二个文件补全第一个文件，没有的用-代替，即
SH    AA    XX
GZ    BB    YY
SZ    CC    ZZ
BJ     DD   WW
TJ     -       -
HN    -       -
NB    -       -
应该怎么实现呢