Subversion Repositories nova

#! /usr/bin/perl

# Author(s)  : Ke Xu

# Email      : eexuke@yahoo.com

# Description: Convert binary .264 file to text format

# Usage      : bin2hex.pl xxx.264                

# Copyright (C) 2008 Ke Xu

open STDOUT,    ">akiyo300_1ref.txt" || die "Can't open output file:$!\n";

if (open(BINFILE,"<".$ARGV[0]))

{

        binmode(BINFILE);

        $s = '';

        $i = 0;

        while (!eof(BINFILE))

        {

                if ($i >= 2)

                {

                        printf "%s\n",$s;

                        $s = '';

                        $i = 0;

                }

                else

                {

                        $i++;

                        $s .= sprintf("%02X",ord(getc(BINFILE)));

                }

        }

        ###if last line of BINFILE is less than 16 byte

        if ($i < 2)

        {

                printf "%s",$s;

        }

        close (BINFILE);

}