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'
出力は次のとおりです.
▒▓▒▓▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▓▓▒▒▒▓▒▒▒▒▒▒▓▒▒▓▒▒▒▒▒▓▒▒▒▒▒▒▒▒▒▒▒▓▓▒▒▒▒▒▒▒▒▒▒▓▒▒▒ ▒▓▒▓▒▒▓▓▒▓▓▒▒▓▓▒▒▓▒▓▒▒▒▓▒▓▒▒▒▒▓▓▓▒▓▓▓▒▓▓▒▒▒▓▓▒▒▓▓▒▓▒▓▒▒▒▓▒▓▒▓▓▓▒▓▓▓▒▓▒▒▒ ▒▓▓▓▒▓▒▓▒▓▒▓▒▓▒▓▒▓▓▓▒▒▒▓▓▒▒▒▓▒▓▒▒▒▒▓▒▒▓▒▓▒▓▒▓▒▓▒▓▒▓▓▓▒▒▒▓▓▒▒▓▓▒▒▓▒▒▒▓▒▒▒ ▒▓▒▓▒▒▓▓▒▓▓▒▒▓▓▒▒▒▒▓▒▒▒▓▒▓▒▒▓▒▓▒▒▒▒▓▒▒▓▒▓▒▒▓▓▒▒▓▓▒▒▒▓▒▒▒▓▒▒▒▓▓▓▒▓▒▒▒▒▓▒▒ ▒▓▒▓▒▒▒▒▒▓▒▒▒▓▒▒▒▓▓▒▒▒▒▓▓▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▓▓▒▒▒▒▓▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒
ここは著者の詳細な説明である.