use strict;
my $bs_file_bin = "/tmp/bf";
open(BS_FILE, $bs_file_bin) or die "can't open $bs_file_bin: $!";
binmode(BS_FILE);
my $data;
while( read(BS_FILE, $data, 4) ) {
my $int = unpack("N", $data);
my $hex = sprintf("%08X", $int );
print STDOUT "$hex\n";
}
|