Saídas Happy Birthday!!
(Foi entregue a um amigo programador que odeia Perl.)
O espaço em branco e o ponto-e-vírgula como os caracteres delimitadores devem enganar.
qq; \ 1108; (equivalente a "H8")
Os pontos-e-vírgulas são os delimitadores do método de aspas duplas. \ 110 é o código octal para H, seguido por um 8 simples, fornecendo o código de embalagem "H8", que significa 8 dígitos hexadecimais
hex
Converte uma cadeia hexadecimal em um número inteiro. Nenhum parâmetro significa que ele roda em $ _ (variável padrão)
para qw; 2e5d66e 4b88fad 4560770 3aedf79;
Os pontos e vírgulas são os delimitadores para o método de lista entre aspas. for
indica para executar o bloco inteiro à esquerda uma vez por cada sequência hexadecimal.
"Não ofuscado", o script é:
print pack("H8", hex($_)) for (2e5d66e 4b88fad 4560770 3aedf79);
Cada um desses valores hexadecimais, quando hexadecimal em um número de 8 dígitos e depois compactado em 4 caracteres, imprimirá 4 das letras de feliz aniversário !!