mirror of
https://github.com/rvtr/TwlToolsRED.git
synced 2025-10-31 06:41:18 -04:00
60 lines
1.1 KiB
Perl
60 lines
1.1 KiB
Perl
#!/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;
|
|
}
|
|
|
|
|
|
|