关于两个文件合并的问题

nanshanjin

我这有两个文件A和B，每个文件有三列，行数相同，有十几万行吧，A文件格式如下
a  b  c
1  2  3
。 。 。
。 。 。
。 。 。
B文件格式是
d  e  f
4  5  6
。 。 。
。 。 。
。 。 。
现在把这两个文件直接按列合在一起，格式如下
a  b  c  d  e  f
1  2  3  4  5  6
。 。 。 。 。 。
。 。 。 。 。 。
。 。 。 。 。 。
用perl的话如何实现？用linux的paste怎么实现？请大神指教

rubyish

perl abc.pl A B > C

1. #!/usr/bin/perl
   
2. open my $A, $ARGV[0];
   
3. open my $B, $ARGV[1];
   
4. 
   
5. while (<$A>) {
   
6.     chomp;
   
7.     print $_, "\t", ~~<$B>;
   
8. }
   

复制代码

nanshanjin

非常感谢，学习了

songyc_2015

回复 2# rubyish
print $_, "\t", ~~<$B>;请教一下，这里的"~~"是什么意思？

rubyish

回复 4# songyc_2015

<$fh> when called in a list context to read all the remaining lines in a file
~~<$fh> when called in a list context to read only one line in a file
list context => scalar context

815138698

回复 5# rubyish


   学习了~~
  这些用法perl三部曲里面都有吗？

MMMIX

回复 6# 815138698


    这里的 ~~ 是把 ~ 用了两次, 而不是 smartmatch operator ~~, 后者是 binary operator.

MMMIX

回复 5# rubyish


    用 ~~ 来添加 scalar context 这种写法实在是太凶残了.

rubyish

回复 8# MMMIX

太凶残了

so cute
~~<>

rubyish

回复 6# 815138698

  这些用法perl三部曲里面都有吗？

bu zhidao ~

3 bu, wo zhi kanle 1 bu ~
di 1 bu.