#!/usr/bin/perl

use encoding 'utf8';
use Encode qw(encode);

#$encoding = 'shift-jis';
$encoding = 'cp932';

sub main
{
	my $srcname = shift;
	my $dstname = shift;
	my $okname = shift;
	my $ngname = shift;

	my $title;
	open(SRC, '<:utf8', $srcname) || die;
	open(DST, ">:encoding($encoding)", $dstname) || die;
	open(OK, ">:encoding($encoding)", $okname) || die;
	open(NG, ">:encoding($encoding)", $ngname) || die;
	while (my $line = <SRC>) {
		my @tmp = split(/\|/, $line);
		my $tmp_title = $tmp[1];
		my $name = $tmp[2];

		$title = $tmp_title if ($tmp_title ne '~');
		if ($name !~ /^BGCOLOR\(lightpink\):/) {
			print(NG $line);
			next;
		}
		print(OK $line);

		@tmp = split(/:/, $name);
		$name = $tmp[1];
		print(DST "$name＠$title\n");
	}
	close(NG);
	close(OK);
	close(DST);
	close(SRC);
}

if ($#ARGV+1 >= 4) {
	&main($ARGV[0], $ARGV[1], $ARGV[2], $ARGV[3]);
}
else {
	printf("Usage: extract.pl <source file> <destination file>\n");
}