Next Trivial Utilities 33

ticker

        @files = @ARGV;
        foreach $f (@files) {
          my $fh = new FileHandle;
          if (open $fh, "< $f") {
            push @fhs, [$f, $fh, 0];
          } else {
            warn "Couldn't open file `$f': $!; ignoring.\n";
          }
        }
        die "Couldn't open any files; aborting" unless @fhs;


Next Menu Copyright © 2012 M. J. Dominus