デバックのために配列や連想配列の内容が知りたいときの手法。

PHP には print_r があるけれど perl には標準には無いので外部ライブラリを使う。

use Data::Dump qw(dump);
print dump(\%hash);

拙作プラグイン「CategoryCloud」の作成において各カテゴリ毎の記事数を取得したいのだけど、html化した個別記事では記事数が取得できない状況。

dumpしてみたらどうやら、 $var{'entryinfo'}{'category'} の {'category'} のキーが undef で定義されてない模様。

同じエントリの表示でも個別htmlとsb.cgiからeidで表示させるので違うのね。

例：$var{'entryinfo'} を dump で表示
・sb.cgi?eid=xxxで表示

do { my $a = \{ category => { "0" => 167, 1 => 50, 2 => 14, 3 => 5, 4 => 12, 5 => 35, 6 => 17, 7 => 21, 8 => 9, 9 => 8, 10 => 1, 11 => 17, 12 => 6, 13 => 190, 14 => 13, 15 => 59, 16 => 122, 17 => 36, 18 => 6, 19 => 17, 20 => 3, 21 => 3, 22 => 51, 23 => 22, 24 => 7, 25 => 4, 26 => 55, 27 => 58, 28 => 10, 29 => 43, 30 => 38, 31 => 7, 32 => 1, 33 => 108, 34 => 3, 35 => 16, 36 => 7, 37 => 13, 38 => 11, 39 => 13, 40 => 12, 41 => 7, 42 => 1, 43 => 33, 44 => 21, 45 => 2, 46 => 34, 47 => 22, 48 => 5, 49 => 17, 50 => 5, 51 => 5, 52 => 5, 53 => 6, 54 => 11, 55 => 4, }, daily => { 20060801 => 7, 20060802 => 6, 20060803 => 9, 20060804 => 8, 20060805 => 1, 20060806 => 4, 20060807 => 6, 20060808 => 11, 20060809 => 6, 20060810 => 10, 20060811 => 5, 20060812 => 7, 20060813 => 1, 20060815 => 4, 20060816 => 9, 20060817 => 10, 20060818 => 10, 20060819 => 5, 20060820 => 3, 20060821 => 4, 20060822 => 6, 20060823 => 3, 20060824 => 13, 20060825 => 4, }, latest => [ bless({ add => undef, auth => 0, cat => 4, com => 0, content_list => [ "id", "wid", "subj", "cat", "date", "auth", "stat", "com", "tb", "file", "tz", "add", "edit", "acm", "atb", "form", "ping", "body", "more", "sum", "key", "ext", "tmp", ], date => "1156479454", file => "", id => 1133, "stat" => 1, subj => pack("H*","435353a5b9a5bfa5a4a5eba5aca5a4a5c9"), tb => 0, trash_can => 0, tz => "+0900", wid => 0, }, "sb::Data::Entry"), bless({ add => undef, auth => 0, cat => 43, com => 0, content_list => 'fix', date => "1156478297", file => "", id => 1132, "stat" => 1, subj => pack("H*","a5e9a5b9a5afbdf1b4caa4dea4c8a4e1"), tb => 0, trash_can => 0, tz => "+0900", wid => 0, }, "sb::Data::Entry"), bless({ add => undef, auth => 0, cat => 1, com => 0, content_list => 'fix', date => "1156472341", file => "", id => 1131, "stat" => 1, subj => pack("H*","b8c2b3a6a4cfa4c9a4cea4d8a4f3a4c0a4eda4a6"), tb => 0, trash_can => 0, tz => "+0900", wid => 0, }, "sb::Data::Entry"), bless({ add => ",1,2,", auth => 0, cat => 6, com => 0, content_list => 'fix', date => "1156470033", file => "", id => 1130, "stat" => 1, subj => "[sb2] CategoryCloud v1.00", tb => 0, trash_can => 0, tz => "+0900", wid => 0, }, "sb::Data::Entry"), bless({ add => ",13,", auth => 0, cat => 35, com => 0, content_list => 'fix', date => "1156425766", file => "", id => 1129, "stat" => 1, subj => pack("H*","a5bca5eda4cebbc8a4a4cbe220233820a5bfa5d0a5b5a4cec8ebcca9"), tb => 0, trash_can => 0, tz => "+0900", wid => 0, }, "sb::Data::Entry"), ], monthly => { 200410 => { count => 54, name => "October 2004" }, 200411 => { count => 37, name => "November 2004" }, 200412 => { count => 24, name => "December 2004" }, 200501 => { count => 32, name => "January 2005" }, 200502 => { count => 21, name => "February 2005" }, 200503 => { count => 28, name => "March 2005" }, 200504 => { count => 42, name => "April 2005" }, 200505 => { count => 20, name => "May 2005" }, 200506 => { count => 22, name => "June 2005" }, 200507 => { count => 27, name => "July 2005" }, 200508 => { count => 34, name => "August 2005" }, 200509 => { count => 27, name => "September 2005" }, 200510 => { count => 35, name => "October 2005" }, 200511 => { count => 24, name => "November 2005" }, 200512 => { count => 54, name => "December 2005" }, 200601 => { count => 64, name => "January 2006" }, 200602 => { count => 78, name => "February 2006" }, 200603 => { count => 47, name => "March 2006" }, 200604 => { count => 69, name => "April 2006" }, 200605 => { count => 39, name => "May 2006" }, 200606 => { count => 76, name => "June 2006" }, 200607 => { count => 118, name => "July 2006" }, 200608 => { count => 152, name => "August 2006" }, }, neighbor => { "next" => undef, prev => 'fix' }, }; $$a->{latest}[1]{content_list} = $$a->{latest}[0]{content_list}; $$a->{latest}[2]{content_list} = $$a->{latest}[0]{content_list}; $$a->{latest}[3]{content_list} = $$a->{latest}[0]{content_list}; $$a->{latest}[4]{content_list} = $$a->{latest}[0]{content_list}; $$a->{neighbor}{prev} = $$a->{latest}[1]; $a; }

・個別htmlでの表示

do { require MIME::Base64; \{ neighbor => { "next" => undef, prev => bless({ acm => 1, add => "", atb => 1, auth => 0, body => MIME::Base64::decode("w93F58zkwuqkx6GipMikxqTita69xaTIu9ekpqXppbmlr73xtMqkzqTepMik4QoKPGEgaHJlZj0iaHR0cDovL2Jicy5lbmpveWtvcmVhLmpwL3RiYnMvcmVhZC5waHA/Ym9hcmRfaWQ9cGhpc3RvcnkmbmlkPTY5MDgyIiB0YXJnZXQ9Il9ibGFuayIgdGl0bGU9ImVuam95IEtvcmVhIj48c3Ryb25nPr7Xt+KhqsPdxeehysbIxeehy6TPpOSkw6TRpOrG/MvcpM7OzsXapMCkw6S/oarGqKSypOukyqGqt+ikt6TGxqiksqTrpMqhqqHKsLW+oaHLPC9zdHJvbmc+PC9hPgooZW5qb3kgS29yZWEp"), cat => 43, com => 0, content_list => [ "id", "wid", "subj", "cat", "date", "auth", "stat", "com", "tb", "file", "tz", "add", "edit", "acm", "atb", "form", "ping", "body", "more", "sum", "key", "ext", "tmp", ], date => "1156478297", edit => 0, ext => undef, file => "", form => 1, id => 1132, key => undef, more => undef, ping => "", "stat" => 1, subj => pack("H*","a5e9a5b9a5afbdf1b4caa4dea4c8a4e1"), sum => undef, tb => 0, tmp => undef, trash_can => 0, tz => "+0900", wid => 0, }, "sb::Data::Entry"), }, }; }

明らかに情報量が違うのだけど・・base64でエンコードされた中に隠されているのかね？


でも、標準のカテゴリリストでは html出力でもちゃんと記事数を取得できてるんだよなぁ。
で、標準のカテゴリリストの部分をテンプレートに出力するブロック名だけ変えてまるコピーしただけのプラグインを作って、html 出力してみたら・・


うわーん；；；

取得できないのはプラグインが呼び出されるタイミングなのかなぁ・・・；；

さて・・・どうしたらよかんべ。

CCさくら×BLEACH オープニングMAD「RELEASE」
(SWFBLOG)

うまいなぁ。BLEACH が RELEASE に・・か。

iTunesと連動したアーティスト情報サイト「veena!」ベータサービス開始
(INTERNET WATCH)

veena!は、AmazonやiTunes Music Storeのニュース情報、アーティストのオフィシャルサイトやファンサイトなどから特定のアーティストの情報を検索・閲覧できるサービス。mixiのアカウント保有者であればmixiのコミュニティの情報を閲覧できるほか、YouTubeの検索結果の一覧表示もveena!にて閲覧できる。

なるほど、好きなアーティストを一人一人登録していくよりは iTunes のデータから引っ張ってきた方が確かに楽だ。
おあつらえ向きに iTunes もライブラリ情報は XML で保存されてるしね。


とりあえず、ぽちっと登録してみたり。

veena!

WEBSHOT Script by phpspot

出たとこBlogger: ▲涼宮ハルヒの憂鬱　DVD第2巻
(出たとこBlogger)

TV放映時もクオリティが高かったけれど、DVD版も追加シーンとかがあってさらにクオリティを高めてるようだ。
そして極めつけは _mikuru フォルダとかｗ
アニメハルヒの企画の人はうまくヲタのツボをついてると思う。


にしても、こういう修正シーンをみつけるパワーはすごいやｗ

涼宮ハルヒの憂鬱 2 限定版 谷川流 石原立也 杉田智和 角川エンタテインメント 2006-08-25 by G-Tools

化学品積載トラックがダムに転落、水源汚染　中国
(CNN.co.jp)

貯水池はダムから５キロの地点にあり、同省政府はアルカリ性の水酸化ナトリウムを中和するため、現場に塩酸１０トンを運び込んだ。

「毒をもって毒を制す」とは言うけれど、これは激しく間違ってる気がするｗ

・沖縄戦の集団自決は軍命令ではなかった　〜明らかになる歴史の真実〜
(アジアの真実)
[>>Sankei Web　社会　渡嘉敷島集団自決、軍命令を否定する証言(08/27 12:16)]

支給を受けるためについた嘘と単純に攻められない当時の状況があったんだろうしなぁ・・。
なにはともあれ真実が公になるのは歓迎すべき事ですな。

カテゴリをタグクラウドの様に並べて表示するプラグインです。
該当カテゴリのエントリ数によって文字サイズが大きくなります。



上下の親子関係のある既存のカテゴリと横の広がりを主とするタグとではカテゴライズの仕方が異なると思いますので、タグらしい使い方をするとなるとカテゴリの再設定が必要になるかと思います。

■v.1.00からの変更点
・表示順を（sb設定準拠・名前昇順・名前降順)から選べるようになりました。


■インストール・アップデート
・DLし、解凍したファイルをPluginフォルダにアップロードしてください。
・管理メニューの環境設定＞プラグイン から該当プラグインの有効にチェックを入れてください。
・アップデートの場合は解凍したファイルを全て上書きアップロードしてください。

[DOWNLOAD]

品薄が続いてるらしい AGP版7600GT をようやく昨日ゲット。

ゲーム用PCにさくっと設置。

GPUパワーを使うのは GuildWars くらいしか持っていないけれど、今まで中の下くらいの画質設定が最高設定でもカクカクすることなく動いてくれる。

あとは RF Online かなぁ。このゲームもほとんど下限設定で動かしてた気がする。
2月くらいから継続停止してるけれど来月頭にアップデートが入るのでちょっと様子見でログインしてみるときに比べてみよう。

ついでに既存ゲーム用の 6600GT をメイン用の FX5200 と入れ替え。
全体的にパワーアップ。ぉぅぃぇ。


〜 GeForce 7600GT 搭載 AGP-8X 対応 ： WinFast A7600GT TDH 製品 概要＆機能 〜
(Leadtek 3D グラフィックス 製品)

ケットシーが絡む不思議話。

アクアを知りたいと心から思ってる灯里に対して、灯里を知りたいと思う心がケットシーではないかというアリシア。
なるほどね。今までケットシーは独立した何かかと思っていたのだけど、アクア所以のものであれば数々の不思議世界も納得できそう。

ただ、最終的な話の落とし所としてはどうなるのかね。
ARIAの世界観なら「今日も素敵な一日でした。明日も素敵な一日がおくれますよう」とか曖昧な終わり方をしそうだけどｗ


ＴＶアニメーション「ARIA The NATURAL」公式サイト

WEBSHOT Script by phpspot

ARIA The NATURAL Navigation.1 佐藤順一 葉月絵理乃 大原さやか メディアファクトリー 2006-07-25 by G-Tools