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

2get

なぜこの板で・・・

#!/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.

>4
これってコピペしただけで実行できる？

>5
出来るはずだよ。

全角スペースを半角にするのを忘れずに

やってみた。らくだが4頭出てきた。ｵﾓｼﾛｲ!!

あいよ。
perldoc からパクッて来ただけだが。
何がつくりたいのよ？


use FileHandle;
use IPC::Open2;

$pid = open2(*Reader, *Writer, "telnet www.2ch.net 80");
print Writer "GET / HTTP/1.0\n\n";

while (<Reader>) {
print;
}

人がせっかく書いてやったのに、立て逃げかよ！

Parlてどうやって実行するの？

p e r l

>>4
気に入った