Subversion Repositories bluespec-h264

#!/usr/local/bin/perl
 
$outfilename = $ARGV[0];
$outfilename =~ s/\..*/\.hex/;
 
open(INF, $ARGV[0]) || die("\nCan't open $ARGV[0] for reading: $!\n");
open(OUTF, ">$outfilename") || die("\nCan't open $outfilename for writing: $!\n");
 
binmode INF;
 
$size = -s INF;
 
print "$size\n";
 
for($i=0; $i<$size; $i++)
{
    read (INF, $buffer, 1);
    $hex = unpack("H*",$buffer);
    print OUTF "$hex\n";
}