diff 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
line wrap: on
line diff
--- a/cat_2.pl	Tue Jul 03 17:34:13 2018 -0400
+++ b/cat_2.pl	Fri Aug 10 15:45:44 2018 -0400
@@ -8,8 +8,7 @@
 open FILE2, "<", $ARGV[1] or die $!;
 my @file2 = <FILE2>;
 
-
-open SEL, '>', $ARGV[2] or die $!;
+open SEL, ">", $ARGV[2] or die $!;
 foreach (@file1) {
     print SEL $_;
 }