Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl-Sensitive Sunglasses

Re: Practice your Hiragana with Image::Magick

by benizi (Hermit)
on Feb 23, 2005 at 16:44 UTC ( #433759=note: print w/ replies, xml ) Need Help??

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

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://433759]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others drinking their drinks and smoking their pipes about the Monastery: (4)
As of 2015-07-04 04:23 GMT
Find Nodes?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...

    Results (57 votes), past polls