URL
https://opencores.org/ocsvn/bluespec-h264/bluespec-h264/trunk
[/] [bluespec-h264/] [trunk/] [test/] [hexfilegen.pl] - Diff between revs 14 and 100
Only display areas with differences |
Details |
Blame |
View Log
Rev 14 |
Rev 100 |
#!/usr/local/bin/perl
|
#!/usr/local/bin/perl
|
|
|
$outfilename = $ARGV[0];
|
$outfilename = $ARGV[0];
|
$outfilename =~ s/\..*/\.hex/;
|
$outfilename =~ s/\..*/\.hex/;
|
|
|
open(INF, $ARGV[0]) || die("\nCan't open $ARGV[0] for reading: $!\n");
|
open(INF, $ARGV[0]) || die("\nCan't open $ARGV[0] for reading: $!\n");
|
open(OUTF, ">$outfilename") || die("\nCan't open $outfilename for writing: $!\n");
|
open(OUTF, ">$outfilename") || die("\nCan't open $outfilename for writing: $!\n");
|
|
|
binmode INF;
|
binmode INF;
|
|
|
$size = -s INF;
|
$size = -s INF;
|
|
|
print "$size\n";
|
print "$size\n";
|
|
|
for($i=0; $i<$size; $i++)
|
for($i=0; $i<$size; $i++)
|
{
|
{
|
read (INF, $buffer, 1);
|
read (INF, $buffer, 1);
|
$hex = unpack("H*",$buffer);
|
$hex = unpack("H*",$buffer);
|
print OUTF "$hex\n";
|
print OUTF "$hex\n";
|
}
|
}
|
|
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.