请教高手如何把一个文本的内容加到另一个文本每一行的后面？

jun277

现在有两个脚本a.txt  b.txt
a.txt的内容                          b.txt的内容
a       num                          h
b       date                          e
c       num                           
d       num                           l
e       num                           o

现在如何能把b的内容合并到a.txt里面或者新生成的c.txt里面，合并后如下形式：
a       num     h
b       date     e
c       num     
d       num     l
e       num     o
   

jun413947139

写成脚本形式，很简单，不知道一句话怎么写？

jun277

回复 2# jun413947139

能写一下脚本或者重要部分，或者思路吗？


   

jun413947139

1. #! /usr/bin/perl -w
   
2. 
   
3. use strict;
   
4. use Tie::File;
   
5. 
   
6. my ($file1, $file2) = @ARGV;
   
7. tie my @lines1, 'Tie::File', $file1 or die "tie $file1: $!";
   
8. tie my @lines2, 'Tie::File', $file2 or die "tie $file1: $!";
   
9. my $max = ($#lines1 > $#lines2 ? $#lines1:$#lines2);
   
10. 
    
11. for (0..$max) {
    
12.     $lines1[$_] .= "    $lines2[$_]";
    
13. }
    
14. 
    

复制代码

自动写在a.txt

bikong0411

还不如直接用shell  paste

rubyish

bikong0411 发表于 2013-07-02 04:07
还不如直接用shell  paste

paste怎么写？大神能写一下吗？

bikong0411

回复 6# rubyish


    paste a.txt b.txt

rubyish

bikong0411 发表于 2013-07-03 06:31
回复 6# rubyish

非常感谢~

xialeizhou

回复 1# jun277

看你举例，你的需求描述不是很清晰，按我理解应该是同时逐行读取两个文件，把文件A的第i行的内容append到文件B的第i行。
代码如下：
use strict;
local $^I = '';
push @ARGV, target_file'; # fileB need to be appended
open(my $fh_org,  '<',  $original_file) or die "Failed to open file $original_file"; # fileA, need to append to fileB
while(<>){
my $content = <$fh_org>;
print $content;
print;
}
close $fh_org;
__END__

xialeizhou

回复 8# rubyish


你也在学ruby? 交流一下？