in reply to GetBinaryType API

One minor change:
print " $Bool, ($filename, ", unpack("L", $type), ")\n";

And for better test results, I tried:
my $filename="C:\\WINDOWS\\system32\\command.com";.
It gave:
1, (C:\WINDOWS\system32\command.com, 1)

Replies are listed 'Best First'.
Re^2: GetBinaryType API
by slloyd (Hermit) on Sep 22, 2004 at 05:00 UTC
    Thanks. Works like a charm now..