Recently in Perl Category
カープの2012年の試合日程を iPhone で見れるようにしたかったので、公式からデータを引っ張ってくる＆そのデータを加工して、iCalendar を生成するスクリプトを作成してみた。
折角 ics として作成したので、一応圧縮ファイルとしては公開。
ics ダイレクトでないのは、このサーバの負荷を懸念したため。なので、適当なサーバにアップして自己責任でご活用下さい。（リアル友人は応相談）
ちなみに、（暫定版）とあるとおり、まだ公式戦の時間が公式サイトに記載されていないため、終日スケジュールとして表示される。
これは、記載され次第更新予定。
CSS Sprites 使いたいなーと思ってはいたのですが、画像の数が多く、メンテナンスにかける時間がもったいない。
じゃあ、CSS Sprites Generatorを利用すれば良いのでは？とか言われそうですが、更新や追加もそれなりの頻度が発生するので、その都度作り直すのも面倒くさいし、開発中の画像とはいえ著作物を外部に流すのには抵抗がある。かといってクライアント系だと全自動的なツールが見当たらない。
とまぁ、極力面倒な手間はかけたくない病により、なかなか使用に踏み切れなかったわけです。
である日、何かの移動中、ふとImageMagickとかのコマンド使えば割と簡単に自動化できんじゃね？と思い立ち、実際に仕事の上でも話があがったため、じゃあ実際に作ってみようということで作ってみました。
Q: 以下のPerl(V5.6.x)の実行結果を答えなさい。
#!/usr/local/bin/perl
use strict;print "[1]##################\n";
print join(",", array()) . "\n";print "[2]##################\n";
print join(",", sort array()) . "\n";print "[3]##################\n";
print join(",", sort {$a cmp $b} array()) . "\n";print "[4]##################\n";
print join(",", sort &array()) . "\n";print "[a]##################\n";
print join(",", Sample::array()) . "\n";print "[b]##################\n";
print join(",", sort Sample::array()) . "\n";print "[c]##################\n";
print join(",", sort {$a cmp $b} Sample::array()) . "\n";print "[d]##################\n";
print join(",", sort &Sample::array()) . "\n";exit;
sub array {
return qw(aaa ddd ccc bbb);
}sub Sample::array {
return &array();
}
