atarist/test/binhandl

   1 die "Usage: binhandl files ...\n" if $#ARGV < $[;
   2
   3 NEXTFILE:
   4 while ($FILEHAND = shift) {
   5     unless (open(FILEHAND)) {
   6         printf STDERR "Can't open \"$FILEHAND\"\n";
   7         next NEXTFILE;
   8     }
   9     if (-B FILEHAND) {
  10         print "\"$FILEHAND\" is binary\n";
  11     } else {
  12         print "\"$FILEHAND\" is text\n";
  13     }
  14     close(FILEHAND);
  15 }