#!/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
скоро Halloween
Цитата:
Originally posted by ReDrum
Код:
#!/usr/bin/perl
Прикольно!
А это работает или только картинка?
Работает - работает ;)=