首页 | 新闻 | 交流 | 问吧 | 文档 | 手册 | 下载 | 博客

Perl程序 拼接文件

作者:  时间: 2010-12-14
#!/usr/bin/perl
my $in1 = $ARGV[0];
my $in2 = $ARGV[1];
my $out = $ARGV[2];
die "需要输入文件1" if(!defined($in1));
die "需要输入文件2" if(!defined($in2));
die "需要输出文件1" if(!defined($out));
open(RH,$in1) or die "$!";
my @lines = <RH>;
close RH;
open(RH,$in2) or die "$!";
my @lines2 = <RH>;
close RH;

open(WH,">>$out") or die "$!";
my $i;
for($i = 0; $i < @lines; $i++){
    print WH $lines[$i];
}
for($i = 0; $i < @lines2; $i++){
    print WH $lines2[$i];
}
close WH;