comparison cat_2.pl @ 1:f3fa21cda5f5 draft default tip

planemo upload commit 13e72e84c523bda22bda792bbebf4720d28542d5-dirty
author labis-app
date Fri, 10 Aug 2018 15:45:44 -0400
parents ba070efb6f78
children
comparison
equal deleted inserted replaced
0:ba070efb6f78 1:f3fa21cda5f5
6 my @file1 = <FILE1>; 6 my @file1 = <FILE1>;
7 7
8 open FILE2, "<", $ARGV[1] or die $!; 8 open FILE2, "<", $ARGV[1] or die $!;
9 my @file2 = <FILE2>; 9 my @file2 = <FILE2>;
10 10
11 11 open SEL, ">", $ARGV[2] or die $!;
12 open SEL, '>', $ARGV[2] or die $!;
13 foreach (@file1) { 12 foreach (@file1) {
14 print SEL $_; 13 print SEL $_;
15 } 14 }
16 15
17 foreach (@file2){ 16 foreach (@file2){