[p5sagit/p5-mst-13.2.git] / atarist / test / binhandl

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);
}
Commit	Line	Data
bf10efe7	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	}