7 |
use strict; |
use strict; |
8 |
use Data::Dump qw/dump/; |
use Data::Dump qw/dump/; |
9 |
|
|
10 |
my $path = shift @ARGV || die "Usage: $0 firmware.bin\n"; |
my $path = shift @ARGV || '/srv/tftp/BANT-R'; # die "Usage: $0 firmware.bin\n"; |
11 |
|
|
12 |
open(my $fh, $path) || die "Can't open $path: $!"; |
open(my $fh, $path) || die "Can't open $path: $!"; |
13 |
my $ver; |
my $ver; |
14 |
seek($fh, 32, 0) || die "can't seek to 32: $!"; |
seek($fh, 32, 0) || die "can't seek to 32: $!"; |
15 |
read($fh, $ver, 5); |
read($fh, $ver, 4); |
16 |
print dump( $ver ), dump( unpack 'CCCCC', $ver ),$/; |
print dump( $ver ), dump( unpack 'CCCC', $ver ),$/; |
17 |
|
|