in reply to Creating a binary file problem
$len = length $gBuf{$bName}[0]; [download]
$len = @{$gBuf{$bName}}; [download]
open(my $fh, '>:raw', $fn) or die "Couldn't open file for writing: $!\n"; for my $hex ( @{ $gBuf{$bName} } ) { printf $fh pack('C', hex($hex)); } [download]