So tippen wir ein Kamel über die Tastatur ein!
Seite 1 von 1 Neuester Beitrag: 25.12.02 15:32 | ||||
| Eröffnet am: | 25.12.02 15:32 | von: Jessyca | Anzahl Beiträge: | 1 |
| Neuester Beitrag: | 25.12.02 15:32 | von: Jessyca | Leser gesamt: | 574 |
| Forum: | Talk | Leser heute: | 1 | |
| Bewertet mit: |  | |||
al("seek\040D
ATA,0, 0;");foreach(1..2)
{;}my @camel1hump;my$camel;
my$Camel ;while( ){$_=sprintf("%-6
9s",$_);my@dromedary 1=split(//);if(defined($
_=)){@camel1hum p=split(//);}while(@dromeda
ry1){my$camel1hump=0 ;my$CAMEL=3;if(defined($_=shif
t(@dromedary1 ))&&/\S/){$camel1hump+=1 $CAMEL--;if(defined
$camel1hump+=1 @camel1hump))&&/\S/){$camel1hump+=1 defined
ump];}$camel.="\n";}@camel1hump=split(/\n/,$camel);foreach(@
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$/;$_=;s$\s*$$g;( );;s
;^.*_;;;map{eval"print\"$_\"";}/.{4}/g; __DATA__ \124
\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
camel code, copywrite 2002 by Jessyca Parker-Bowls
The use of a camel image with the topic of Perl
is a trademark of Jessyca O'Reilly & Associates, Inc.