HA☆NA☆SEジェネレーター
usage
% perl yugioh.pl はなせ HA☆NA☆SE
yugioh.pl
#!/usr/bin/perl use strict; use warnings; use Lingua::JA::Romanize::Japanese; my $phrase = shift; my $conv = Lingua::JA::Romanize::Japanese->new(); my @romanized = $conv->string($phrase); my $result = join '☆', map {uc($_->[1])} @romanized; print "$result\n";