Hi all,

I usually design my scripts to get their input from a file. In some cases, specially when the script could be used in a pipe, I allow to get the input from STDIN when no file is specified at the command line. I do it this way:

use strict;
use warnings;

my $file = shift @ARGV;

my $ifh;
my $is_stdin = 0;
if (defined $file){
  open $ifh, "<", $file or die $!;
} else {
  $ifh = *STDIN;
  $is_stdin++;
}

while (<$ifh>){
   # Process
}
close $ifh unless $is_stdin;
[download]

I have included this in production code, is it safe?

Thanks in advance