Help for this page

Select Code to Download


  1. or download this
    my $romaji = plaque("@romaji");
        my $hiragana = plaque(hiragana($text));
    
  2. or download this
    my $text = "@romaji";
        my $romaji = plaque($text);
        my $hiragana = plaque(hiragana($text));
    
  3. or download this
    my %Hiragana;
    use charnames qw/hiragana/;
    sub get_hiragana { chr charnames::vianame("HIRAGANA LETTER ".uc(shift)
    +) }
    ...
        }
    }
    delete $Hiragana{$_} for qw/tu si ti/; # delete Unicode-y names for ts
    +u, shi, and chi