binhandl

早期freebsd实现

die "Usage: binhandl files ...\n" if $#ARGV < $[;

NEXTFILE:
while ($FILEHAND = shift) {
    unless (open(FILEHAND)) {
	printf STDERR "Can't open \"$FILEHAND\"\n";
        next NEXTFILE;
    }
    if (-B FILEHAND) {
	print "\"$FILEHAND\" is binary\n";
    } else {
	print "\"$FILEHAND\" is text\n";
    }
    close(FILEHAND);
}