Chinaunix首页 | 论坛 | 博客
  • 博客访问: 467491
  • 博文数量: 118
  • 博客积分: 4015
  • 博客等级: 上校
  • 技术积分: 1233
  • 用 户 组: 普通用户
  • 注册时间: 2010-11-24 22:11
文章分类

全部博文(118)

文章存档

2013年(5)

2011年(61)

2010年(52)

分类:

2010-12-14 22:19:51

#!/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 = ;
close RH;
open(RH,$in2) or die "$!";
my @lines2 = ;
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;

阅读(690) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~