home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / languages / perl / perl-4.036 / atarist / test / binhandl next >
Encoding:
Text File  |  1993-02-08  |  328 b   |  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.