view rapsodyn/MergeFile4x.pl @ 6:1776b8ddd87e draft

Uploaded

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

my $in1 = $ARGV[0];
my $in2 = $ARGV[1];
my $in3 = $ARGV[2];
my $in4 = $ARGV[3];

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);

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

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