Tｼｬﾂ

ﾘﾛｰﾄﾞ規制です｡10分ほどで解除するので､他のﾌﾞﾗｳｻﾞへ避難してください｡

10: 名無しさん＠お腹いっぱい。 [] 01/12/18 20:14

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

http://mevius.5ch.net/test/read.cgi/unix/1008648582/10

上下前次 1-新書関写板覧索設栞歴

ｽﾚ情報赤ﾚｽ抽出画像ﾚｽ抽出歴の未読ｽﾚ AAｻﾑﾈｲﾙ

ぬこの手ぬこTOP 0.022s