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