annotate rapsodyn/MergeFile4x.pl @ 1:7f36bd129321 draft

Uploaded
author mcharles
date Wed, 10 Sep 2014 10:24:01 -0400
parents
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
1
7f36bd129321 Uploaded
mcharles
parents:
diff changeset
1 #!/usr/bin/perl
7f36bd129321 Uploaded
mcharles
parents:
diff changeset
2 use strict;
7f36bd129321 Uploaded
mcharles
parents:
diff changeset
3 use warnings;
7f36bd129321 Uploaded
mcharles
parents:
diff changeset
4
7f36bd129321 Uploaded
mcharles
parents:
diff changeset
5 my $in1 = $ARGV[0];
7f36bd129321 Uploaded
mcharles
parents:
diff changeset
6 my $in2 = $ARGV[1];
7f36bd129321 Uploaded
mcharles
parents:
diff changeset
7 my $in3 = $ARGV[2];
7f36bd129321 Uploaded
mcharles
parents:
diff changeset
8 my $in4 = $ARGV[3];
7f36bd129321 Uploaded
mcharles
parents:
diff changeset
9
7f36bd129321 Uploaded
mcharles
parents:
diff changeset
10 open(IN1, $in1) or die ("Can't open $in1\n");
7f36bd129321 Uploaded
mcharles
parents:
diff changeset
11 while (my $line = <IN1>){
7f36bd129321 Uploaded
mcharles
parents:
diff changeset
12 print $line;
7f36bd129321 Uploaded
mcharles
parents:
diff changeset
13 }
7f36bd129321 Uploaded
mcharles
parents:
diff changeset
14 close (IN1);
7f36bd129321 Uploaded
mcharles
parents:
diff changeset
15
7f36bd129321 Uploaded
mcharles
parents:
diff changeset
16 open(IN2, $in2) or die ("Can't open $in2\n");
7f36bd129321 Uploaded
mcharles
parents:
diff changeset
17 while (my $line = <IN2>){
7f36bd129321 Uploaded
mcharles
parents:
diff changeset
18 print $line;
7f36bd129321 Uploaded
mcharles
parents:
diff changeset
19 }
7f36bd129321 Uploaded
mcharles
parents:
diff changeset
20 close (IN2);
7f36bd129321 Uploaded
mcharles
parents:
diff changeset
21
7f36bd129321 Uploaded
mcharles
parents:
diff changeset
22 open(IN3, $in3) or die ("Can't open $in3\n");
7f36bd129321 Uploaded
mcharles
parents:
diff changeset
23 while (my $line = <IN3>){
7f36bd129321 Uploaded
mcharles
parents:
diff changeset
24 print $line;
7f36bd129321 Uploaded
mcharles
parents:
diff changeset
25 }
7f36bd129321 Uploaded
mcharles
parents:
diff changeset
26 close (IN3);
7f36bd129321 Uploaded
mcharles
parents:
diff changeset
27
7f36bd129321 Uploaded
mcharles
parents:
diff changeset
28 open(IN4, $in4) or die ("Can't open $in4\n");
7f36bd129321 Uploaded
mcharles
parents:
diff changeset
29 while (my $line = <IN4>){
7f36bd129321 Uploaded
mcharles
parents:
diff changeset
30 print $line;
7f36bd129321 Uploaded
mcharles
parents:
diff changeset
31 }
7f36bd129321 Uploaded
mcharles
parents:
diff changeset
32 close (IN4);
7f36bd129321 Uploaded
mcharles
parents:
diff changeset
33
7f36bd129321 Uploaded
mcharles
parents:
diff changeset
34