布団の上に毛布を載せる。冬だ。冬になるにはちょっと早いと思うのだが。

あら、コリン・パウエルさん亡くなったのか。COVID-19の合併症らしい。84歳。以前、この人が書いた本を読んだよな……と思って自分の読書記録を検索してみたところ、2019年8月3日に「リーダーを目指す人の心得」を読了していた。単著ではなく共著だな、これは。

お好み焼きを食べた。とても久しぶりだ。美味い。

アメリカでの2万2千人の結果から、ワクチン3回目の副反応は、どうやら2回目とほぼ変わらないようだ。全体的には3回目の方がやや低くなっている。

Perlで何のモジュールも利用せずに画像の縦横サイズを取得する方法はないものだとばかり思っていたのだが、少なくともPNG・GIFやJPEG形式の場合は、画像のバイナリを直接読めば縦横サイズが分かると知った。参考にしたサイトは、Perlからの画像ピクセルサイズ取得方法は？（2000年の情報だ^^;）とImageMagickを使わずperlだけで画像サイズを取得だ。とても役に立った。ありがたい。SVGは中身がテキストなので何の工夫もなく縦横サイズを抽出できるので、それも加えて、GIF、PNG、JPEG、SVGの4形式で画像の縦横サイズを自動取得できるようにしてみた。webp形式は分からないままだが。

【朗報】うまい解決策を思いついて実現できた。正規表現の否定戻り読み記法が使えれば不要だった処理が9行ほど増えたが、その程度で済んで良かった。何か考えれば思いつくものだ。

【悲報】うまく実装できたと思ったが、ローカルの Perl 5.32.0 な環境で実行すると「Variable length lookbehind is experimental in regex～」というワーニングが出ている。プログラム自体は意図通りに動作しているのだが、ググると Perl 5.30 未満ではエラーで実行できないとのこと。試しにWebサーバにUPして Perl 5.14.4 な環境で実行してみると 500 Internal Server Error が出た。エラーログを確認すると「Variable length lookbehind not implemented in regex～」と出ていた。orz せっかく正規表現の否定戻り読み記法でうまく実装できたと思ったのだが、この書き方がPerlでは動いたり動かなかったりするとは……。orz 他の実装方法を考えないといけないようだ。