#!/usr/local/bin/perl

# 引数チェック
if( 0 != $#ARGV )
{
    print "Usage: %> perl listconv.pl [TableFile]\n";
    exit;
}

# tableファイルの読み込み。
open(IN, $ARGV[0]) || die "can\'t open TableFile: $!\n";

# 表示変換ループ
while ($line = <IN>)
{ 
# 0x000300044b574645, 0x0100 , 0x3031 , sdmc:/sdtads/en_TWL-KWFE-v256.tad.out,
# 0x000300044b475545, 0x0000 , 0x3031 , sdmc:/sdtads/en_TWL-KGUE-v0.tad.out,

    if( $line =~ /^0x(\w+),\s0x(\w+)\s,\s0x(\w+)\s,\s([\w|\-|\.|:|\/]+),/ )
    {
# $1 - タイトルID
# $2 - バージョンの取り出し
# $3 - 忘れた・・
# $4 - ファイル名
	if( 16 != length($1) )
	{
	    print "Format error 1!\n";
	    close(IN);
	    exit;
	}
	$title_id = substr($1, 8, 8);
	$gcode = pack("H8", $title_id );
	$disp_line = sprintf("%s,%3d\n",$gcode , hex($2) );
	push(@line_array, $disp_line);
    }
    else
    {
        # きびし過ぎるか！？
	print "Format error 2!\n";
	close(IN);
	exit;
    }
}

# ファイルクローズ
close(IN);


# アルファベット順にソート
@sort_line_array = sort(@line_array);

#表示
while ($line = shift(@sort_line_array) )
{ 
    print $line;
}