Çıktılar Happy Birthday!!
(Perl'den nefret eden bir programcı arkadaşa verildi.)
Beyaz boşluk ve sınırlayıcı karakter olarak noktalı virgül aldatmaya yöneliktir.
qq; \ 1108; ("H8" 'e eşdeğerdir)
Noktalı virgül, çift alıntı yönteminin sınırlayıcılarıdır. \ 110, H için sekizli koddur, ardından düz bir 8, bize 8 Heks basamak anlamına gelen "H8" paketleme kodunu verir.
hex
Bir hex dizesini bir tamsayıya dönüştürür. Parametre yok, $ _ üzerinde çalıştığı anlamına gelir (varsayılan değişken)
qw için 2e5d66e 4b88fad 4560770 3aedf79;
Noktalı virgüller, verilen liste yönteminin sınırlayıcılarıdır. for
tüm bloğun her onaltılık dize için bir kez solda çalıştırılacağını belirtir.
"Unobfuscated", komut dosyası:
print pack("H8", hex($_)) for (2e5d66e 4b88fad 4560770 3aedf79);
Bu onaltılık değerlerin her biri, 8 basamaklı bir sayıya bölündüğünde ve daha sonra 4 karakter halinde paketlendiğinde, İyi ki doğdun harflerinin 4'ünü basacaktır !