use encoding "UTF-8";
binmode (STDOUT);

#コマンドラインの引數を讀込ファイルにする
$infile=$ARGV[0];

#一時ファイルの名前
$outfile="outtemp";

#辭書の名前
$dicfile="texseiji.dic";


#辭書讀込
open (IN, $dicfile);
my ($line, $i);
$i = 0;
while ( $line = <IN> ) {
	($a[0],$a[1])=split(/\t/, $line);
	$dica[$i]=$a[0];
	$dicb[$i]="\\CID{$a[1]}";
	$i++;
}
close(IN);

#ファイル讀込
open IN,"<:utf8",$infile;
	my $txt;
	{
		local $/ = undef;
		$txt = <IN>;
	}
close IN;

#變換
for ($i = 0; $i <= $#dica; $i++) {
	$txt=~ s/$dica[$i]/$dicb[$i]/eg;
}

#保存
open OUT,">:utf8","$outfile.tmp";
	print OUT $txt;
close OUT;

#tex→dvi→pdf
system("utf8toutf $outfile.tmp > $outfile.tex");
system("platex $outfile.tex");
system("dvipdfmx $outfile.dvi");
$tmp=substr($infile,0,(length($infile)-4));

#リネーム
rename "$outfile.pdf","$tmp.pdf";

exit;