home *** CD-ROM | disk | FTP | other *** search
/ GEMini Atari / GEMini_Atari_CD-ROM_Walnut_Creek_December_1993.iso / files / language / slperl / binhandl < prev    next >
Encoding:
Text File  |  1993-10-23  |  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.