|
1
|
1 #!/usr/bin/perl
|
|
|
2 use strict;
|
|
|
3 use warnings;
|
|
|
4
|
|
|
5 my $in1 = $ARGV[0];
|
|
|
6 my $in2 = $ARGV[1];
|
|
|
7 my $in3 = $ARGV[2];
|
|
|
8 my $in4 = $ARGV[3];
|
|
|
9
|
|
|
10 open(IN1, $in1) or die ("Can't open $in1\n");
|
|
|
11 while (my $line = <IN1>){
|
|
|
12 print $line;
|
|
|
13 }
|
|
|
14 close (IN1);
|
|
|
15
|
|
|
16 open(IN2, $in2) or die ("Can't open $in2\n");
|
|
|
17 while (my $line = <IN2>){
|
|
|
18 print $line;
|
|
|
19 }
|
|
|
20 close (IN2);
|
|
|
21
|
|
|
22 open(IN3, $in3) or die ("Can't open $in3\n");
|
|
|
23 while (my $line = <IN3>){
|
|
|
24 print $line;
|
|
|
25 }
|
|
|
26 close (IN3);
|
|
|
27
|
|
|
28 open(IN4, $in4) or die ("Can't open $in4\n");
|
|
|
29 while (my $line = <IN4>){
|
|
|
30 print $line;
|
|
|
31 }
|
|
|
32 close (IN4);
|
|
|
33
|
|
|
34
|
