Original Usenet thread from de.alt.rec.ascii-art, started 23 Apr 2001.
Kamel
de.alt.rec.ascii-art
· 4 messages · 23 Apr 2001 - 25 Apr 2001
Soeben in meiner Mailbox gefunden, das will ich euch mal nicht
vorenthalten.
#!/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, copywrite 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.
(Markus) Mickey Kottenhahn
--
Jetzt ganz neu im Netz | Mickey im Netz http://www.mkottenhahn.de
http://www.UsenetDigest.de | Einkaufstempel http://www.aldibaran.de
Kommentare erwünscht | Usenet-Kasper http://www.kasperhausen.de
mic...@usenetdigest.de |
On Mon, 23 Apr 2001 18:24:32 +0200, Mickey Kottenhahn wrote: >Soeben in meiner Mailbox gefunden, das will ich euch mal nicht >vorenthalten. > > >#!/usr/bin/perl -w >use strict; > $_='ev > al("seek\040D > ATA,0, 0;");foreach(1..2) [...] Kann ich das ruhigen Gewissens ausf�hren? Was macht dieser Code? Ciao Tobias
Tobias Zimpel am 25 Apr 2001 17:03:23 GMT in
<slr...@xtc.tek-no.de>:
> Kann ich das ruhigen Gewissens ausführen? Was macht dieser Code?
Sorry, keine Ahnung. Ich weiss zwar, dass da irgendwas passiert (angeblich
sogar auch was ganz nettes), aber da ich momentan keinen Perl aufm Rechner
habe (unter Win macht man sowas halt nicht), hab ich mich erstmal nur mit
dem äußeren Erscheinungsbild begnügt.
(Markus) Mickey Kottenhahn
--
Jetzt ganz neu im Netz | Mickey im Netz http://www.mkottenhahn.de
http://www.UsenetDigest.de | Einkaufstempel http://www.aldibaran.de
Kommentare erwünscht | Usenet-Kasper http://www.kasperhausen.de
mic...@usenetdigest.de |
On 25 Apr 2001 17:03:23 GMT, use...@startrek-web.de (Tobias Zimpel) wrote: >On Mon, 23 Apr 2001 18:24:32 +0200, Mickey Kottenhahn wrote: >>Soeben in meiner Mailbox gefunden, das will ich euch mal nicht >>vorenthalten. >> >> >>#!/usr/bin/perl -w >>use strict; >> $_='ev >> al("seek\040D >> ATA,0, 0;");foreach(1..2) >[...] > >Kann ich das ruhigen Gewissens ausf�hren? Was macht dieser Code? > >Ciao > >Tobias Er gibt dieses Bild aus: mJXXLm. .mJXXLm JXXXXXXXXL. JXXLm. .mJXXL .JXXXXXXXXL {XXXXXXXXXXX. JXXXmXXXXm mXXXXmXXXL .XXXXXXXXXXX} .XXXXXXXXXXXXXL. {XXXXXXXXXF 7XXXXXXXXX} .JXXXXXXXXXXXXX. JXXXXXXXXXXXXXXXXL.`XXXXXX. .XXXXXX'.JXXXXXXXXXXXXXXXXL JXXXXXXXXXXXXXXXXXXXmXXXXXXX. .XXXXXXXmXXXXXXXXXXXXXXXXXXXL .XXXXXXXXXXXXXXXXXXXXXXXXXXXXX} {XXXXXXXXXXXXXXXXXXXXXXXXXXXXX. .XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX. JXXXXXXXXXXXXXXXXXXXXXXXXXXXXXF 7XXXXXXXXXXXXXXXXXXXXXXXXXXXXXL XX^7XXXXXXXXXXXXXXXXXXXXXXXXXF 7XXXXXXXXXXXXXXXXXXXXXXXXXF^XX XX {XXXFXXXXXXXXXXXXXXXXXXXF' `7XXXXXXXXXXXXXXXXXXX7XXX} XX `X}{XXX'7XXXFXXXXX^XXXXX `' `' XXXXX^XXXXX7XXXF`XXX}{X' `'XXX' {XXX'XXXXX 7XXXF 7XXXF XXXXX`XXX} `XXX`' .XX} {XXF {XXXX}`XXX} {XXX'{XXXX} 7XX} {XX. {XX `XXL `7XX} 7XX} {XXF {XXF' JXX' XX} `XX `XXL mXXF {XX XX} 7XXm JXX' XX' XX 7XXXF `XX XX' 7XXXF XX XX. JXXXX. 7X. .XF .XXXXL .XX {XXL 7XF7XXX. {XX XX} .XXXF7XF JXX} `XXX' `XXXm mXXX' `XXX' mmm.m.mmm..mm7XXXX.mm.mm. .mm.mm.XXXXFmm..mmm.m.mmm `7LFJXXJX\FLXXL7FLLXJF\X{ }X\7LXJJ7FJXXJ7\XLXXL7JF' `^^^^^`^'^^` '^^`^'^^^^^' .mJXXLm mJXXLm. .mJXXL .JXXXXXXXXL JXXXXXXXXL. JXXLm. mXXXXmXXXL .XXXXXXXXXXX} {XXXXXXXXXXX. JXXXmXXXXm 7XXXXXXXXX} .JXXXXXXXXXXXXX. .XXXXXXXXXXXXXL. {XXXXXXXXXF .XXXXXX'.JXXXXXXXXXXXXXXXXL JXXXXXXXXXXXXXXXXL.`XXXXXX. .XXXXXXXmXXXXXXXXXXXXXXXXXXXL JXXXXXXXXXXXXXXXXXXXmXXXXXXX. {XXXXXXXXXXXXXXXXXXXXXXXXXXXXX. .XXXXXXXXXXXXXXXXXXXXXXXXXXXXX} XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX. .XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 7XXXXXXXXXXXXXXXXXXXXXXXXXXXXXL JXXXXXXXXXXXXXXXXXXXXXXXXXXXXXF 7XXXXXXXXXXXXXXXXXXXXXXXXXF^XX XX^7XXXXXXXXXXXXXXXXXXXXXXXXXF `7XXXXXXXXXXXXXXXXXXX7XXX} XX XX {XXXFXXXXXXXXXXXXXXXXXXXF' `' XXXXX^XXXXX7XXXF`XXX}{X' `X}{XXX'7XXXFXXXXX^XXXXX `' 7XXXF XXXXX`XXX} `XXX`' `'XXX' {XXX'XXXXX 7XXXF {XXX'{XXXX} 7XX} {XX. .XX} {XXF {XXXX}`XXX} {XXF {XXF' JXX' XX} {XX `XXL `7XX} 7XX} XX} 7XXm JXX' XX' `XX `XXL mXXF {XX XX' 7XXXF XX XX 7XXXF `XX .XF .XXXXL .XX XX. JXXXX. 7X. XX} .XXXF7XF JXX} {XXL 7XF7XXX. {XX mXXX' `XXX' `XXX' `XXXm .mm.mm.XXXXFmm..mmm.m.mmm mmm.m.mmm..mm7XXXX.mm.mm. }X\7LXJJ7FJXXJ7\XLXXL7JF' `7LFJXXJX\FLXXL7FLLXJF\X{ '^^`^'^^^^^' `^^^^^`^'^^`
Related ASCII art in the Gallery
Explore these categories from our collection of 11,000+ artworks:
_ _ (o)(o)--. \../ ( )hjw m\/m--m'`--.
_ _
/` \/ `\_ _
\ /` \/ `\
'. .\ /
\/ '. .'
\/jgs __ . . __ (o.\ \/ /.o) \__\/\/__/ /O /==\ O\ (;O/ \/ \O;)
_______ |.-----.| || jgs || ||_ _|| `--)-(--` __[=== o]___ |:::::::::::|\ `-=========-`()
,sSSs ,SSSS_/ ,_ sS/`))\// sS//|_(_/ _, SS\\\ `""-.-'` / sSS` jgs-==-'`'-._\
___________ | _______ | | | | | | | | | | | | | | |_______| | |___________|
Make your own ASCII art
Turn images, text or 3D into ASCII, or draw your own – right in your browser.
About this thread.
These messages were posted publicly to the newsgroup
de.alt.rec.ascii-art
in 2001 and are mirrored here unchanged as part of the Historic Archives – only email addresses are masked.
The artwork and text belong to their original authors: if you copy a piece, keep the artist's initials or signature intact and credit them where you can.
Are you one of the authors? Contact us to get your posts attributed, connected to your artist profile, or removed.
Report this message
Help us keep the archive clean and accurate. Reports are reviewed by a person – nothing is changed automatically.