#!perl
#
# hiragana2romaji.pl - Convert hiragana text to romaji text

use strict;
use warnings;
use autodie;

use Lingua::JA::Moji qw( kana2romaji );

@ARGV == 2
    or die "Usage: perl $0 <hiragana file> <romaji file>\n";

my $hiragana_file = shift @ARGV;
my $romaji_file   = shift @ARGV;

open my $hiragana_fh, '<:encoding(UTF-8)', $hiragana_file;
open my $romaji_fh,   '>:encoding(UTF-8)', $romaji_file;

while (my $hiragana_text = <$hiragana_fh>) {
    chomp $hiragana_text;
    my $romaji_text = kana2romaji($hiragana_text);
    print {$romaji_fh} "$romaji_text\n";
}

close $hiragana_fh;
close $romaji_fh;

exit 0;