ctr_firmware/trunk/bootrom/tools/bin/bin2palladium.pl

#!/usr/bin/perl
use POSIX stdio_h;

die "Error: Need input file.\n" unless @ARGV;
for $ARGV ( @ARGV ){
    @c;

    open (IN, $ARGV) || die "$ARGV : $!";
    binmode(IN);

    while ( read(IN, $_, 1) ){
        $c[0] = uc( unpack("H2", $_) );
        for ($i=1; $i<8; $i++){
            unless ( read(IN, $_, 1) ){
                $_ = 0;
            }
            $c[$i] = uc( unpack("H2", $_) );
        }
        print STDOUT $c[3],$c[2],$c[1],$c[0],$c[7],$c[6],$c[5],$c[4], "\n";
    }

    close(IN);
}