home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / gnu / perl-4.036.tar.gz / perl-4.036.tar / perl-4.036 / atarist / test / binhandl next >
Text File  |  1993-02-08  |  328b  |  16 lines
  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. }
  16.