git-svn-id: file:///Users/lillianskinner/Downloads/platinum/twl/TwlToolsRED@408 7061adef-622a-194b-ae81-725974e89856

build/tools/sctools/makesdtd/listconv.pl

@@ -0,0 +1,59 @@
+#!/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;
+}
+
+
+