ARGV=='-' means /dev/stdin

tseemann · Oct 15, 2018 · cda5ed5 · cda5ed5
1 parent 9eb16cf
commit cda5ed5
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/any2fasta b/any2fasta
@@ -7,9 +7,10 @@ use IO::Uncompress::AnyUncompress;
 
 #......................................................................................
 
-our $VERSION = "0.2.2";
+our $VERSION = "0.2.3";
 our $EXE = basename($0);
 our $FORMAT = "%a %d";
+our $STDIN = '/dev/stdin'; # '-' will be replaced with this
 
 #......................................................................................
 
@@ -71,6 +72,7 @@ my $processed=0;
 
 for my $fname (@ARGV) {
   msg("Opening: $fname");
+  $fname = $STDIN if $fname eq '-';
   -d $fname and err("'$fname' is a directory not a file");
   -r $fname or err("'$fname' is not readable");