Usage: japh.pl
or japh "string" "another STRING" ...
where parameters should contain ('A'-'Z','a'-'z' or ' ')
e.g. perl japh.pl "we apologise for" "any inconvenience"
#!/usr/bin/perl my($o)=('999 120420 122420422 422 122 494949333491 4994744941 20420120420 522 333 494 494 494 091 091 022 999 424 425499494429 42949342494 994945949949 440 449 442149442190 994949409 149498997990 999 949 442 102 242 142 249 902449 494 901 949 043 349 449402 149 902 849 022 694 9021979474190949220');$o=~s/\s+//gs;$o=~y!0-9!\\/\-_|<>VX !; for$ii(($#ARGV>=0)?@ARGV:('*534@!./4(%2','0%2,@(!#+%2')){my( $m,$b,$t)=("\n","\n","\n\n");for(split//,$ii){my$d=(ord($_)& 31)*3;$t.=substr($o,$d,3).chr(32);$m.=substr($o,$d+81,3).chr (32);$b.=substr($o,$d+162,3).chr(hex(20));}print"$t$m$b\n";}
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re: YA(JAPH)
by Segfault (Scribe) on Nov 01, 2002 at 19:45 UTC | |
|
Re: YA(JAPH)
by submersible_toaster (Chaplain) on Nov 04, 2002 at 06:36 UTC | |
|
Re: YA(JAPH)
by Anonymous Monk on Nov 04, 2002 at 19:47 UTC | |
|
Re: YA(JAPH)
by Anonymous Monk on Nov 08, 2002 at 03:06 UTC |