six apart さんからの挑戦状 #yapcasia

無限コーヒーのカップに書いてあるコードを転記してみた。

vim カップ

#!/usr/bin/env perl
$_ = 'Drink coffee! Supported by Six Apart';
tr/a-z/Blogging after this event!/;
tr/N-ZA-z/A-za-m/;

@m = split //, $_;
$j = sub { join(chr(0), @_) };
$_ = chr(104) . $j->(@m[10, 11]) . pack("H*", join('', qw/70 3a 2f 2f/));
$_ .= $m[4] . chr(46) . $m[4] . '<3';
$_ .= 'x' . $m[29] . chr(112) . $j->(@m[29, 15, 10]) . chr(46) . 'Asia/Tokyo';
$_ .= chr(47) . $j->(@m[24, 29]) . chr(112);

s!/Asia/Tokyo!jp!;
reverse; tr.ap.a xis.;
$anniversary = 10;
y.apc.asia.;
$_ .= chr('10th' * $anniversary - 1);
$_ .= '2015';
y. ET ANOTHER .pERL HACKER.;
s/<3/i/g;
print;