Skip to content

Instantly share code, notes, and snippets.

@c18t
Created October 29, 2012 10:37
Show Gist options
  • Save c18t/3972885 to your computer and use it in GitHub Desktop.
Save c18t/3972885 to your computer and use it in GitHub Desktop.
千反田える
perl -M5.010 -MLingua::JA::Numbers -MEncode -e "%A=qw/a えー b びー c しー d でぃー e いー f えふ g じー h えっち i あい j じぇい k けい l える m えむ n えぬ o おー p ぴー q きゅー r あーる s えす t てぃー u ゆー v ぶい w だぶりゅー x えっくす y わい z ぜっと/;@A=a..z;say encode(($^O eq'MSWin32'?'cp932':'utf8'),num2ja($_)).'反田'.$A{$A[$_%26-1]}for 1..1000"
perl -M5.010 -MLingua::JA::Numbers -MEncode -e "%A=qw/a えー b びー c しー d でぃー e いー f えふ g じー h えっち i あい j じぇい k けい l える m えむ n えぬ o おー p ぴー q きゅー r あーる s えす t てぃー u ゆー v ぶい w だぶりゅー x えっくす y わい z ぜっと/;@A=a..z;say encode(($^O eq'MSWin32'?'cp932':'utf8'),num2ja($_)).'反田'.$A{$A[$_%26-1]}for eval shift" 10**20
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment