Recently in Perl Category

公式戦の時間発表来てた〜!

ということで、開幕版に差し替え〜。

カープ試合日程-2012 開幕版(zip)

 

広島ブログ

カープの2012年の試合日程を iPhone で見れるようにしたかったので、公式からデータを引っ張ってくる&そのデータを加工して、iCalendar を生成するスクリプトを作成してみた。

折角 ics として作成したので、一応圧縮ファイルとしては公開。

カープ試合日程-2012 暫定版(zip)

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();
}

広島ブログ

About this Archive

This page is an archive of recent entries in the Perl category.

JavaScript is the previous category.

その他 is the next category.

Find recent content on the main index or look in the archives to find all content.