10/09/11 10:43:03 .net
#!/usr/bin/perl
%T=qw(! ¡ ' , . ˙ ; ؛ ? ¿ _ ~ a ɐ b q c ɔ d p e ǝ f ɟ g ƃ h ɥ i ı j ɾ
k ʞ m ɯ n u p q r ɹ t ʇ u v ʌ w ʍ y ʎ );
print join('',map{$T{$_}||$_}reverse split//,lc"@ARGV"),$/
URLﾘﾝｸ(fliptitle.com) をperlにしてみた。
10/09/11 10:43:03 .net
#!/usr/bin/perl
%T=qw(! ¡ ' , . ˙ ; ؛ ? ¿ _ ~ a ɐ b q c ɔ d p e ǝ f ɟ g ƃ h ɥ i ı j ɾ
k ʞ m ɯ n u p q r ɹ t ʇ u v ʌ w ʍ y ʎ );
print join('',map{$T{$_}||$_}reverse split//,lc"@ARGV"),$/
URLﾘﾝｸ(fliptitle.com) をperlにしてみた。