Help for this page

Select Code to Download


  1. or download this
    my @in_files = ();
foreach my $input_glob (@ARGV) {
  print $input_glob; push @in_files, glob("$input_glob");
}
# reading and storing lines
foreach my $in_file (@in_files) { open (LINES, '<', $in_file); ...
  2. or download this
    my $out_file = "/other/path/$in_file";
# this opens file ...
open (LOGFILE, '>>', $out_file);
# ... but still without backticks execution/interpolation