Mercurial > repos > mcharles > rapsosnp
diff rapsodyn/MergeFile4x.pl @ 1:7f36bd129321 draft
Uploaded
author | mcharles |
---|---|
date | Wed, 10 Sep 2014 10:24:01 -0400 |
parents | |
children |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/rapsodyn/MergeFile4x.pl Wed Sep 10 10:24:01 2014 -0400 @@ -0,0 +1,34 @@ +#!/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); + +