Mercurial > repos > labis-app > galaxy_proteomics
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){ |