Original Usenet thread from alt.ascii-art, started 9 Jul 2005.
perl ascii - witch / halloween
alt.ascii-art
· 1 message · 9 Jul 2005
From: <http://www.perlmonks.org/?node_id=398757>
Running this script will produce an ascii pumpkin
#!/usr/bin/perl
$
q=
"Ju
stPe
rl";#
;my@g=
<DATA>;
;;;my$
h =join''
,@ g;;;;$h
=~ s/\s+//g; my
($a,$b,$c,$d,$ e,$
f)=split/:/,$h;###
chomp($a,$b,$c,$d,$e,$
f );system($^O=~Win?CLS:
"clear");my@a=split//,$a;my@b
=split//,$b;my@c=split//,$c;;;;;
my@d=split//,$d;;;;;;;;;;;;;;;;
my@e=split//,$e;;;;;;;;;;;;;;;;;;
my @f=split//,$f;;;;;;;;;;;;;;;;;
;;; for(@f){for(1..$_){;;;;;;;;;;;;;
;;; my$g=shift@a;$g*=10;;;;;;;;;;;;;;;
;;; $g+=shift@a;my$x=shift@c;;;;;;;;;;;;
;;; $x*=10;$x+=shift@c;;;;;;;;;;;;;;;;;;;
;;; print"",chr(32)x$g;;;;;;;;;;;;;;;;;;;
hex ;; "hacker,"; ;;;;;;;;;;;;;;;;;;;;;
print"" ,"X"x$x;}; ;;;;;;;;;;;;;;;;;;;;
print" \n";};another ;;;;;;;;;;;;;;;;;;;
print"\n\n";;;;my$g=shift@b ;;;;;;;;;;;;;;;;;
$g*=10;$g+=shift@b;halloween ;;;;;;;;;;;;;;;;;
print""," "x$g;;while(@d){ ;;;;;;;;;;;;;;;;;
my$c=shift@d;$c.=shift@d ;;;;;;;;;;;;;;;
print"",chr(hex("0x$c"));} ;;;;;;;;;;;;;;
print"\n";$g=shift@b;booo ;;;;;;;;;;;;
$g*=10;$g+=shift@b;bats ;;;;;;;;;
print" "x$g;while(@e){ ;;;;;
my$c=shift@e;$c.=shift@e ;;;
print"",chr( hex("0x$c"
));};;<STDIN> ;;;__DATA__
353433292520 18171602021504
04140606140 214041406150202160
3031 707081 815202529:1925:0202
0311192 9333509141009121009101
0192018 1917180819080815080804
080 909291911:4A4150483A204
A757 37420616E6F74686572205
0756D 706B696E206861636B6 5 7
221 :2848617070792048 6 1
6C6C6F7765656 E 2 1 2
9:111 1 1 1 1 1 3 3
3 2 2 2 3 3 3
2 1 1 1
--
Mark Hill
Related ASCII art in the Gallery
Explore these categories from our collection of 11,000+ artworks:
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
alt.ascii-art
in 2005 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.