Happy 25 anniversary, Perl

851 ワード

今年12月18日まで、Perlは25年を経験した.彼の誕生日を祝うためにonelinerを書いた人がいます.
perl -C -e'print map+(v9635 x8^unpack B8).(v10)[++$n%9],(unpack u,"MK__^=^WW_S_WK)FNO\$3F5U\$7BJJ.=>U51S-WK)GNM>UF=W%[K[N>?___SW__")=~/./g'

出力は次のとおりです.
 
▒▓▒▓▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▓▓▒▒▒▓▒▒▒▒▒▒▓▒▒▓▒▒▒▒▒▓▒▒▒▒▒▒▒▒▒▒▒▓▓▒▒▒▒▒▒▒▒▒▒▓▒▒▒ ▒▓▒▓▒▒▓▓▒▓▓▒▒▓▓▒▒▓▒▓▒▒▒▓▒▓▒▒▒▒▓▓▓▒▓▓▓▒▓▓▒▒▒▓▓▒▒▓▓▒▓▒▓▒▒▒▓▒▓▒▓▓▓▒▓▓▓▒▓▒▒▒ ▒▓▓▓▒▓▒▓▒▓▒▓▒▓▒▓▒▓▓▓▒▒▒▓▓▒▒▒▓▒▓▒▒▒▒▓▒▒▓▒▓▒▓▒▓▒▓▒▓▒▓▓▓▒▒▒▓▓▒▒▓▓▒▒▓▒▒▒▓▒▒▒ ▒▓▒▓▒▒▓▓▒▓▓▒▒▓▓▒▒▒▒▓▒▒▒▓▒▓▒▒▓▒▓▒▒▒▒▓▒▒▓▒▓▒▒▓▓▒▒▓▓▒▒▒▓▒▒▒▓▒▒▒▓▓▓▒▓▒▒▒▒▓▒▒ ▒▓▒▓▒▒▒▒▒▓▒▒▒▓▒▒▒▓▓▒▒▒▒▓▓▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▓▓▒▒▒▒▓▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒
 
ここは著者の詳細な説明である.