view rapsodyn/MergeFile2x.pl @ 4:9074a5104cdd draft

Uploaded
author mcharles
date Wed, 17 Sep 2014 04:20:08 -0400
parents 7f36bd129321
children
line wrap: on
line source

#!/usr/bin/perl
use strict;
use warnings;

my $in1 = $ARGV[0];
my $in2 = $ARGV[1];

open(IN1, $in1) or die ("Can't open $in1\n");
while (my $line = <IN1>){
	print $line;
}
close (IN1);

open(IN2, $in2) or die ("Can't open $in2\n");
while (my $line = <IN2>){
	print $line;
}
close (IN2);