perlで自作したおひとり様ActivityPubサーバーはその後も増築改築をちまちま続けていて、例によってその場での思いつき、やっつけ仕事の現物合わせ仕様で、わけわかめ状態となっている。

Activityを約束事どおりに対応するモジュール（pmファイル）で、いったい何をしてるのか。

もうすでに忘れてる自分がいるので、サブルーチンの洗い出し用にテキトーなスクリプトをでっちあげた。という覚え書きが今回のエントリ。

#!/usr/bin/perl
use strict；
use utf8；
use Encode；
my $f = shift(@ARGV)；
if(! -e $f ){
    printf qq{Not Found pm %s\n}， $f；
    exit；
}
open(IN， $f) || die；
my $name； my @buf=<IN>； close(IN)；
foreach (@buf){
    if( m!^sub (.+) *\{! ){
        $name->{$1}++；
    }
}
printf qq{sum : %s\n}， scalar( keys %{$name} )；
foreach my $sub (sort keys %{$name}){
    my $pm = join(’’， @buf)；
    my $cnt = $pm =~ s!$sub!!g； 
    printf qq{%s :\n}， $sub；
    my @called； my $zzz；
    if( $cnt > 1 ){
        my $subname；
        foreach (@buf){
            if(m!^sub (.+) *\{!){
                $subname = $1；
                next；
            }
            if( m!\$self\-\>$sub! && !$zzz->{$subname}++ ){
                push(@called， $subname)；
            }
        }
    }
    printf qq{\t%s\n}， join("\t"， sort @called)；
}

・サブルーチンの総数

・サブルーチンの名前

・サブルーチンを呼び出しているサブルーチン

ぐらい見えれば、そこそこ役に立つかなあ、と。

文字列検索でひっかけてるだけで、signなんかはサブルーチン呼び出しじゃない部分にもヒットする。本当は動かしながらcaller()でチェックするのが確実…だけど、ざっくり見るだけのためにあちこちにcaller()を仕込むのはうっとーしいんで却下。

使い捨てのつもりで書いたスクリプトだけど、思ったよりちゃんと見えるようにしてくれたので自画自賛＆エントリとして書き起こし

10/4、ポケモンGOの対人戦GBLでACEに到達。

初期レートが1984で、ACE到達時のレートは2007。GBLで遊んでいて、ずっと継続してACEにたどり着いてたんだけど、前期初めてACEに到達できず、今期もやべえかなあ、と思ってたので、ほっとひと息。

まる6年続いているゲームで、まだ全然飽きないのがすげーす。

写真が面白いのは自分の痕跡だからかもなあ。その時々の視線の先を面白いと思った自分がいたわけで、それを思い出させてくれる。その時の状況もろもろ、空気や匂いさえ蘇ることもある。さらに都合の良いことに、記憶ロンダリングされている。絵だけの情報なので、足りないところは脳内物質で補完されるのだ。そりゃ面白くないわけがない。

そういや写真って年寄りの道楽のひとつ。ゴールが近づいてるんで、なんとか今のうちに自分の痕跡を止どめておきたい、という本能的なものかもしれん。

仕事絡みでadwordsに出稿して、受け側のadsenseもやると、広告主側と媒体側の両方から見ることができて面白い。現状は、どちらもしょぼいレベルでの話なので言い切るわけにはいかないけど、媒体側との比較では、広告主側は合わねえなあ、てのが感想。

ついでにamazonとgoogle adsenseで比較するとどうなんだろうと、トイカメラのページには、amazonのアソシエイトタグも並べて置いてみた。

とはいえ、トイカメラのページのコンテンツを充実させないと、比較もできない広告の精度だし、しょぼいアクセス数だし。写真を見せびらかすためのページだ。無駄にテキストをいれてもしかたがない。

ここは写真点数を増やすぐらいか。

なんか秋っぽく涼しくなった、と思ったら毎日眠くていけません。

ゆうべは、急遽団地の寄り合いでＢ29の中。うんざりあんぐり。なんも決まらないのだ。急に、平日の夜に、招集しといてなんの準備もなし。言い出しっぺは仕事で欠席というふざけた話も。Ｂ29同士、妙な派閥争いがあってそれも影響してるようだ。齢食えば枯れるなんて大ウソだ。

今日は午後からほぼずっとフラッシュ。「青空文庫」とそれを朗読しているmp3と適当な画像で作ってみた。耳の遠いひとは字幕というかテロップというか、文章で読めるだろうし、目の弱ってきているひとは朗読で読めるだろうし、高齢者ネタのひとつだ。

朗読と字幕の同期は大ざっぱだし、画像はしょぼい。でもこんな程度のものでも面白いなあ。まだ全容は掴めてないけど、なんとか所期の目的のものはできそうだ。これをとっかかりに本家MX様に馴染めれば一石二鳥。

高齢者のかたでも楽に、懐かしい古典・名作に触れてもらえれば、と思ったのがきっかけなんだが、うちのＢ29どものことを忘れてた。こいつらに芥川だの太宰だのはとても無理…だな。ウケるようなら作品内容に沿ったイラストとか写真とかきちんと依頼して、なんて膨らんでみたものの猿とＢ29じゃねえ。

[更新]2026-02-04 11:11:16

I see trees of green， red roses too

I see them bloom for me and you

And I think to myself， what a wonderful world

I see skies of blue and clouds of white

The bright blessed day， the dark sacred night

And I think to myself， what a wonderful world

The colors of the rainbow， so pretty in the sky

Are also on the faces of people going by

I see friends shaking hands， saying how do you do

They’re really saying， I love you

I hear babies cry， I watch them grow

They’ll learn much more than I’ll ever know

And I think to myself， what a wonderful world

Yes， I think to myself， what a wonderful world

いや、久しぶりにサッチモをmp3に放りこんで電車で聞き流してたら、ボロっと涙が落ちてびっくりしたー。

これって意訳すると、

樹の緑が目に染みるだろ、バラの赤いのもええ感じやん。ほぅれ、見上げてみそ、空は青いし雲は真っ白だろ。なにやらうれしい輝かしい昼間と、神聖な夜と、まいんち、うれしたのしいじゃないか。

空にかかる虹はいとしいし、ほれ、そこここで握手して愛し合ってるじゃないか。赤ん坊の元気な泣き声をきくと、その成長が想像できるだろ。

なんやしらん、ごっつええ感じやなぁ。

ということだろう。縁側でぼーっとしてるジジイのタワゴトだかウワゴトにしか思えない歌詞なんだけど（あ。誤解されそうだ。決してけなしてるわけじゃないです。念のため）これがサッチモの声に乗ると、しみじみシアワセ感漂う。で、不覚にも電車の中でじんわりしてしまった。

昔、読んだエッセイだかで。

「いや関東のなんちゃらっちゅー落語家が、落語は芸術だ、みたいなこといっとりましたが、そんなことありません。落語そのものは芸術でもなんでもありまへん。

落語っちゅーのは良くできたお話を、上手な話し手が、上手にお話して、その瞬間が芸術になるんですな。

…で、その芸術をこれからやるわけですが」

という落語のマクラを思い出した。

じゃすらっく、という音楽関係の著作権者権利を守るごりっぱな団体さんが、歌詞の一部引用にすらいちゃもんをつけるのはどうかと。

歌詞だけで、その歌が成り立っているわけじゃない。歌詞、曲、演奏・歌い手があって初めて完成するものだろう。

冒頭のように全部書き写すなんてのは論外の違法行為。しかししかし、この歌詞だけでどれほどサッチモの「WHAT A WONDERFUL WORLD」が分かるというのか。

これすごいんだゼ、と感動したら人に伝えたくなるのが人情ってやつで、むしろ宣伝になるっちゅーもんだろ。

騙されたと思ってサッチモ買いなされ。聞きなされ。あのダミ声で「ばら色の人生」とか「チムチムチェリー」とか、もう傑作です。たまりませんです。

実はまだ自粛モードなのに、ついつい。やはし、サーバー移転で使えないCGIが出たなぁ。今んとこ修正する気力がないので放置プレイ。

[更新]2026-02-04 13:41:12

朝、今にも雨が降りそうな空だったんで、今日は電車。だまされた。微妙に曇ってきてるけど、これなら自転車でくるんだった。…とはいえ、久しぶりに読んでるSF「あなたの人生の物語」（テッド・チャン）が面白いんで電車通勤も苦にならない。いわゆる短篇集で、ドキドキワクワクびっくりさせてくれる一発芸。イワン・ワトソンのマーシャンインカを読んだ時のような「センス・オブ・ワンダー」というちょっと古臭い言葉を思い起こさせてくれる。解説にもあるように、長編にしてもイイようなネタなんだけど、あえて短篇にしてるというより、物語を語る自信がないから、しかたなく短篇で、ということかも知れないなぁ。

短篇の名手と言われた結城昌治が長編も傑作ぞろいだったように、今後に期待、かしらん。

企画モノのコミックスのカバーイラストが揃ったんで、ラフレイアウト。今回はバック用にイラストを別注してあるので、それがあがってきてから本レイアウトだ。

今日の昼飯は野らぼーで讃岐うどん。わたしはけっこう大食い早食いの方だと思うんだけど、ここのかけうどん大（２玉）、トッピング煮干天におぼろ昆布（とろろ昆布）で、どっぷり満腹。

ところがここでは、讃岐うどんのハシゴをしてる人たちが…。うーん、おそるべし鉄の胃袋。

わたしも根性出してカレーとか讃岐うどんの主食系のハシゴをやってみるかなぁ。