たつをの ChangeLog : 2007-10-11

このブログのケータイゲートウェイ (clkeitai.cgi) を
昨日、リニューアルしました。



ためしにモバイルアドセンス[2007-10-10-2]と
モバイルアマゾンを埋め込んでみました。
またそれだけではなく全面的に改造しています。
ソースコードがすっきり。

古い機種のケータイだと見れないかも…。
不具合等ありましたらご連絡下さい。

たつをの ChangeLog [モバイル]
ttp://chalow.net/clkeitai.cgi


なお、上記のQRコードは「QRコードBlog　QRコード無料作成フォーム」
(http://www.qrcodeblog.com/date/qrcgi/) で作りました。


追記:
さらに、モバイル検索CGIも作りました。
これで、出先でも自分のブログを検索できるぜい！


あと、モバイルランダムジャンプCGIも作りました (ref. [2004-11-30-5])。
これで、出先でも自分のブログの誤植とかが手軽に探せるぜい！
「ふりかえり」とか「自分マイニング」とかにも有用！

自分用メモ。
よく使っている find コマンドの利用形態。

find ./cache -mtime +60 -delete
find ./cache -name "*.html" -depth 1 -mtime +30 -delete
find ./cache -type f -depth 1 -mtime +30 -delete

ref.
- http://www.jp.freebsd.org/cgi/mroff.cgi?sect=1&cmd=&lc=1
  &subdir=man&dir=jpman-6.0.0%2Fman&man=find
- http://www.jp.freebsd.org/man-jp/search.html

弾さんのご指摘により（感謝！）、
最近は perl でのハッシュキーの存在確認に exists を
使うようにしています。

- 404 Blog Not Found:perl, et al. - キーの存在確認
  http://blog.livedoor.jp/dankogai/archives/50849003.html

それはそうと、やっかいなのが、ハッシュでツリーを扱うとき。
一度でも $a->{"a"}->{"b"} を見に行くと、
$a->{"a"} が存在するようになっちゃうんですよね。
確認するためにアクセスしただけなのに、
途中ノードができちゃうなんてちょっとなあ…。

if (defined %{$a->{"a"}}) { ...

といった方法で確認しているのですが、なんかバッドノウハウ的。
何か良い方法はないでしょうか？

下記、defined と exists の動作確認スクリプト：

use strict;
use warnings;
my $a;

# exists
if (exists $a->{"a"}) {
    print qq(\$a->{"a"} exists\n);
} else {
    print qq(\$a->{"a"} does not exist\n);
}
if (exists $a->{"a"}->{"b"}) {
    print qq(\$a->{"a"}->{"b"} exists\n);
} else {
    print qq(\$a->{"a"}->{"b"} does not exist\n);
}
if (exists $a->{"a"}) {
    print qq(\$a->{"a"} exists\n);
} else {
    print qq(\$a->{"a"} does not exist\n);
}

# defined
if (defined $a->{"c"}) {
    print qq(\$a->{"c"} is defined\n);
} else {
    print qq(\$a->{"c"} is not defined\n);
}
if (defined $a->{"c"}->{"b"}) {
    print qq(\$a->{"c"}->{"b"} defined\n);
} else {
    print qq(\$a->{"c"}->{"b"} does not defined\n);
}
if (defined $a->{"c"}) {
    print qq(\$a->{"c"} is defined\n);
} else {
    print qq(\$a->{"c"} is not defined\n);
}

# 途中ノードの存在確認
if (defined %{$a->{"a"}}) {
    print qq(%{\$a->{"a"}} is defined\n);
} else {
    print qq(%{\$a->{"a"}} is not defined\n);
}
if (defined %{$a->{"c"}}) {
    print qq(%{\$a->{"c"}} is defined\n);
} else {
    print qq(%{\$a->{"c"}} is not defined\n);
}

追記071012:
弾さんにツリーを壊さない方法を教えていただきました。
ありがとうございます！
- 404 Blog Not Found:perl - 木を痛めない枝チェック
  http://blog.livedoor.jp/dankogai/archives/50929096.html

■初めてのPerl

■続・初めてのPerl 改訂版