Perlで通信プログラムを作るスレ

#!/usr/bin/perl -w　　　　　　　　
use strict;
　　　　　　　　　　　　　　　　　　　　　 $_='ev
　　　　　　　　　　　　　　　　　　　 al("seek\040D
　　　　　 ATA,0,　　　　　　　　　0;");foreach(1..2)
　　　 {<DATA>;}my　　　　　　　 @camel1hump;my$camel;
　my$Camel　;while(　　　　　　 <DATA>){$_=sprintf("%-6
9s",$_);my@dromedary　　　　　 1=split(//);if(defined($
_=<DATA>)){@camel1hum　　　　p=split(//);}while(@dromeda
ry1){my$camel1hump=0　　　;my$CAMEL=3;if(defined($_=shif
　　　　t(@dromedary1　　))&&/\S/){$camel1hump+=1<<$CAMEL;}
　　　 $CAMEL--;if(d　 efined($_=shift(@dromedary1))&&/\S/){
　　　$camel1hump+=1　<<$CAMEL;}$CAMEL--;if(defined($_=shift(
　　 @camel1hump))&&/\S/){$camel1hump+=1<<$CAMEL;}$CAMEL--;if(
　　 defined($_=shift(@camel1hump))&&/\S/){$camel1hump+=1<<$CAME
　　 L;;}$camel.=(split(//,"\040..m`{/J\047\134}L^7FX"))[$camel1h
　　　ump];}$camel.="\n";}@camel1hump=split(/\n/,$camel);foreach(@
　　　camel1hump){chomp;$Camel=$_;tr/LJF7\173\175`\047/\061\062\063
　　　45678/;tr/12345678/JL7F\175\173\047`/;$_=reverse;print"$_\040
　　　 $Camel\n";}foreach(@camel1hump){chomp;$Camel=$_;y/LJF7\173\17
　　　　5`\047/12345678/;tr/12345678/JL7F\175\173\047`/;$_=reverse;p
　　　　 rint"\040$_$Camel\n";}#japh-Erudil';;s;\s*;;g;;eval;　 eval
　　　　　 ("seek\040DATA,0,0;");undef$/;$_=<DATA>;s$\s*$$g;(　 );;s
　　　　　　 ;^.*_;;;map{eval"print\"$_\"";}/.{4}/g; __DATA__　 \124
　　　　　　　 \1　 50\145\040\165\163\145\040\157\1 46\040\1　41\0
　　　　　　　　　　40\143\141　\155\145\1 54\040\1　 51\155\　141
　　　　　　　　　　\147\145\0　40\151\156 \040\141　　\163\16 3\
　　　　　　　　　　 157\143\　 151\141\16　4\151\1　　 57\156
　　　　　　　　　　 \040\167　\151\164\1　 50\040\　　　120\1
　　　　　　　　　　 45\162\　 154\040\15　　1\163\　　　040\14
　　　　　　　　　　 1\040\1　 64\162\1　　　41\144　　　 \145\
　　　　　　　　　　 155\14　　1\162\　　　 153\04　　　　0\157
　　　　　　　　　　　\146\　　 040\11　　 7\047\　　　　 122\1
　　　　　　　　　　　45\15　　　1\154\1　54\171　　　　　\040
　　　　　　　　　　　\046\　　　　 012\101\16　　　　　　3\16
　　　　　　　　　　　3\15　　　　　 7\143\15　　　　　　 1\14
　　　　　　　　　　　1\16　　　　　　4\145\163　　　　　 \054
　　　　　　　　　　 \040　　　　　　\111\156\14　　　　 3\056
　　　　　　　　　　\040\　　　　 125\163\145\14　　　　 4\040\
　　　　　　　　　　167\1　　　　51\164\1　50\0　　　　 40\160\
　　　　　　　　　145\162　　　　　　　　　　　　　　　\155\151
　　　　　　　　\163\163　　　　　　　　　　　　　　　　\151\1
　　　　　　　57\156\056

# camel code, copyright 2000 by Stephen B. Jenkins
# The use of a camel image with the topic of Perl
# is a trademark of O'Reilly & Associates, Inc.
# Used with permission.