#!/usr/bin/jperl

# 使い方
# conv.pl (input.mbx)
# とするだけで、新しいディレクトリが作られます。
# なまえは、mbxの名前と同じです。

# 注意
# UNIXから使うときは、改行コードをUNIX形式にしてください。

foreach $file (@ARGV){
    $i=1;

    next unless $file =‾ /(.*)¥.mbx$/;
    $dir = $1;

    mkdir($dir,0775);
    print "open $file¥n";
    open (FILE , $file);
    open (WRITE, "> $dir/$i ");
    print "write $dir/$i¥n";
    while (<FILE>){
	if (/^¥.$/){
	    close(WRITE);
	    print "$i¥n";
	    $i++;
	    if ($_ = <FILE>){
		open (WRITE, "> $dir/$i" );
		print "open $dir/$i¥n";
		print WRITE;
		print ".";
	    }
	}else{
	    print WRITE;
	    print ".";
	}
    }
}