#!/usr/local/bin/perl

# QD ramdisk file を固定名のファイルへコピーし、タイトル名やファイルサイズを
# 別ファイルに書き出す。

sub usage {
    print "Usage: $0 qd_file_name.rd[abcd] qd_title_name\n";
    exit -1;
}

# 引数 2 個以上 じゃなきゃ エラー
usage() if ($#ARGV < 1);

# cat 失敗したら エラー
system("cat $ARGV[1] $ARGV[2] $ARGV[3] $ARGV[4] > nes.bin") && die;

system("echo $ARGV[0] > nes.title") && die;