perl ascii - witch / halloween
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
Original message headers
X-Google-Thread: f996b,4f97843f1878234e,start X-Google-Attributes: gidf996b,public X-Google-Language: ENGLISH,ASCII-7-bit Path: g2news1.google.com!news1.google.com!fu-berlin.de!uni-berlin.de!individual.net!not-for-mail From: Mark Hill <m...@rk.invalid> Newsgroups: alt.ascii-art Subject: perl ascii - witch / halloween Date: 9 Jul 2005 23:54:42 GMT Lines: 65 Message-ID: <200...@blackhole.markhill.me.uk> X-Trace: individual.net 6wodGiQjFc/HlxJBvPSL2AzC7S8zmh+Tid9sa0nGMy7a7UF5jZ User-Agent: slrn/0.9.8.1 (Linux) Xref: g2news1.google.com alt.ascii-art:4289
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 message.
This message was posted publicly to the newsgroup
alt.ascii-art
in 2005 and is 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 the author? 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.