駄日記 (未完結間欠日記)

> 新型コロナウイルス covid-19 関連で世間はいろいろアレな状況が続いているが、 個人的には生活パターンが従来とほとんどまったくと言っていいほど変わってない。 引きこもり生活歴のべ 20年以上で、 出不精極まって外出つったら近所へ買い物に行くくらいだし、 外食も昔から基本的にしないし、 友人達と互いに行き来するようなことも久しくないし (年一以下の頻度でメールをやりとりするかしないか程度)。 違いといえば買い物で、 一部買い漁りや買い占めや需要増加に供給が追い付かないとか政府が無策などで入手しづらいものがあったり、 店舗の営業時間短縮で行きづらくなってたりするくらいだなあ…。 あーあと一応外出時はマスクつけて (古い買い置きがまだある)、 帰ってきたら必ず手洗いするようにはしてるが、 マスクはともかく帰宅時の手洗いは従来も欠かさずやってたからこれも変わらずだな。 ただ「手で顔 (やマスク) に触らない」というのが大事だ、というのはあんましちゃんと認識してなかったんだが、 これがなかなか難しい…。どうしてもなにかの拍子に触ってしまう。 まあ少なくともマスクつけて外出している間は気をつけてなるべく触らないように努力はしてみているが。
あーはやく消毒用エタノールが買えるようにならんかのー。 手指消毒用ジェル系の製品はずいぶん出回り始めてるようだが、 ワシが欲しいのはあくまで消エタなんじゃ。

> メモ。linux mint で起動時のスプラッシュ画面を出さないようにするには、 /etc/default/grub の GRUB_CMDLINE_LINUX_DEFAULT="quiet splash" を GRUB_CMDLINE_LINUX_DEFAULT="" にして sudo update-grub で反映させて再起動。

> メモ。革製品の丸洗いにはサドルソープ。 まあブラシとかクリームとか前処理とか後処理とかもいろいろ必要っぽいので、 丸洗いと言っても“お手軽”な訳ではなさげ。

> えっ、5G ってスモールセル重視なの? なんだよ PHS に回帰してんじゃねぇか。

> Perl のモジュール FindBin の仕様を勘違いしていた。 自作モジュール (など) の中で $FindBin::Bin を使っても、 呼び出し*元*スクリプトのあるパスが設定されてしまうんだった…。
モジュールの中でモジュール自身のパスを取得したい場合は __FILE__ を使う。 たとえば use File::Basename qw/dirname/; dirname(__FILE__); など。

> 双葉社の月刊アクション 6月号が品切れで買えなくなっとった。 品切れに気づいた時点では発売日からまだ半月かそこらだったのに…。 なお Amazon にはあるが例によって 1ケタ上のボッタクリ価格 (中古で)。 いわゆる電子書籍ならバックナンバーも含めていつでも買えるんだが、 DRM かかって「借りる (読む“権利”だけ買う)」タイプのいわゆる電子書籍にはまだ (たぶん死ぬまで) 手を出す気にはなれないので、 月刊アクション 6月号は諦めた。 あるいは中古価格がマトモなラインまで落ちてきたら買ってもいいけど…。 双葉社…月刊アクション売る気ねーだろ…。 近隣の (自転車で 10分程度以内の範囲の) コンビニから完全に姿を消して久しいし…。 もう購読自体ヤメようかな…。 月刊アクションて、割とグロ系とかバッドエンド系の (個人的に好みでない) 作品多くなってる感じだし…。 「私の少年」もいつの間にか他に移籍しちゃったりしてるしなあ… (とか言ってそれほど熱心な読者という訳でもなかったけど)。

> SQLite の INSERT OR REPLACE の動作は、 「Insert がコケたらかわりに Update」(UPSERT) じゃなく、 「Insert がコケたら Delete してから再度 Insert」、というのをちゃんと理解できていなかった。 INSERT OR REPLACE では指定しなかった列 (カラム) の値は残されずに初期化されてしまうんだった。
例えば

 CREATE TABLE main (
   key   INTEGER UNIQUE NOT NULL,
   val1  INTEGER,
   val2  INTEGER
);

なんて構造のテーブルがあって、key, val1, val2 がそれぞれ 1, 100, 200 の組み合わせの行が存在している時、

 INSERT OR REPLACE INTO main (key, val1) VALUES (1, 500);

を実行すると、key, val1, val2 がそれぞれ 1, 500, NULL となってしまい、val2 の元の値 200 は保存されないんだった。
Delete and Insert ではなく、ちゃんと Insert or Update になるように書くにはどうすればいいのか…? PostgreSQL なんかは、INSERT OR REPLACE ではなく、 INSERT INTO ～ ON CONFLICT ～ という形で Inert or Update が使えて、 これだと上記の例のような場合でも val2 の値は保存されて上書き (初期化) されない。 SQLite も 3.24 以降では同じ構文が使えるらしい。 が、諸事情によりウチの Cygwin 環境の SQLite は 3.19 で止まっちゃってるので on conflict は使えない…。 ということでいろいろ探した結果の、 一度の SQL 文で Insert or Update する方法。
ひとつは、ワシの SQL 力でも分かりやすかったこれ。

 INSERT OR REPLACE INTO main (
     key,
     val1,
     val2
 )
 VALUES (
     1,
     500,
     (SELECT val2 FROM main WHERE key = 1)
 );

key = 1 の行が既に存在する場合は val2 には既存の値 200 が入り、存在しなかった場合は val2 の値は NULL が (もしテーブル定義で例えば val2 INTEGER DEFAULT 50 NOT NULL など DEFAULT 制約がついていた場合にはその値が) 入る。 この書き方は、ある意味ぱっと見で分かりやすいんだが、 入力を略す列が多い場合には、その都度サブクエリを呼ぶため記述が煩雑になるのが難点。 特にプリペアードステートメントを使う場合、key の値をサブクエリの回数分突っ込まないといけない (んだよな?)。
もうひとつは、ワシの SQL 力だと理解にちょっと時間がかかったこれ。

   WITH new (key, val1) AS (VALUES(1, 500))
 INSERT OR REPLACE INTO main (key, val1, val2)
 SELECT new.key, new.val1, old.val2
   FROM new LEFT JOIN main AS old ON new.key = old.key;

WITH の使い方をよく飲み込んでなかった (まだよく飲み込んでない) のと、 INSERT INTO ～ SELECT という構文を知らんかったのとでピンと来なかった。 あーあと JOIN をほとんど使わないズブシロだから JOIN でどうなるかのイメージも湧きにくいのもあるかも。 こちらはプリペアードステートメントで値を指定するにも必要最小限の記述で済む。 なお、値を指定しない列 (この例だと val2) に DEFAULT 制約をつける場合は NOT NULL も併記すること (DEFAULT 制約のみだと、key = 1 の行が存在しない正味 INSERT のケースの場合、val2 に DEFAULT 値が適用されず NULL になってしまう)。 まあそういうケースでなくても DEFAULT 制約に NOT NULL 制約はセットで指定しといた方がいいんだよな…たまに忘れちゃうんだけど…。
…以上、一応テストコード書いて検証しながらだけど、なんか間違ってるかもしれない可能性はある。 まあもし違ってたのに気づいたらあとで修正する。

> さくらのレンタルサーバに置いてあるコンテンツ「俺ニュース 動態保存アーカイブ」と「アイコとマコト」の URL をちょっと変更した。 サーバ引っ越しの準備…。
ワシが使うちょるさくらのレンタルサーバ (スタンダード) で Perl のバージョンを 5.14.4 から標準 (推奨) の 5.26.3 に変更したら、 一部のスクリプトがマトモに動かなくなることに気づいた。 具体的には cpan (さくらのサーバ側で用意されてるやつ) とか、自作スクリプトの一部。 走らそうとすると
/home/{ユーザアカウント}/perl5/lib/perl5/amd64-freebsd/auto/List/Util/Util.so: Undefined symbol "Perl_xs_version_bootcheck"
と出る。 出ないでちゃんと走るスクリプトもあるんだが違いがようわからん。 "Perl_xs_version_bootcheck" でググってみても*何も*ヒットしない…。 似たような文字列だが Perl_xs_apiversion_bootcheck のエラーは、 .so をコンパイルした時と Perl のバージョンが違うと出るらしいので、 まあ類似のトラブルなんだろうなーと見当はついた。 cpanm でモジュールを自分の環境下にいくつかインストールしてはいるが、コンパイルが必要なインストールなんてしたっけかな…? サポートにダメ元で問い合わせてみたが、思ったとおり、 ウチのテスト環境じゃ cpan -h 正常に動くしおま環じゃないの、 そもそも勝手にいじった環境のサポートは対象外だし、と丁寧な文面でさらっと返ってきた。 cpan でモジュールをインストールし直せば直るのかもしれんがそもそもその cpan (と cpanm) が動かねえんだし。 まあとりあえずは 5.14.6 のまま使えばいいんだが…。 postderef が使いたかったんだけどね (5.20 以上で使用可能、5.24 以上で標準機能)。 つーか Perl の選択可能なバージョンが 5.14.6 の次がいきなり 5.26.3 てなんやねん。
で、~/perl5/lib/perl5/amd64-freebsd/auto/List/Util/.packlist を元に、 自分で入れた (と思われるがまったく記憶にない) List::Util モジュール一式を強制的に削除してみた。 これでなんとか cpan と cpanm が動くようになる。 しかしまだ他のモジュールが原因で (…/auto/Socket/Socket.so とかで) コケるスクリプトがあるようだ…。 しょうがないのでとりあえず ~/perl5/lib/amd64-freebsd/auto/ 内の *.so がらみの .packlist を適宜拾って強制削除、 もしくは CGI だの cron で呼び出しだのしているあれこれがしばらくまともに動かなくなるのを覚悟で コンパネから Perl のバージョンを 5.26.3 に上げた状態で cpanm --reinstall で強制再インストールしたところ、 なんとかコケなくなったっぽい…。やれやれ…。 まあ後からまたトラブルが出るかもしれんが…。 そん時はそん時だな。どうしようもなければ 5.14 に戻せばいいんだし。
しかしさくらが以前レンサバの OS アップデートをした際、 vim の挙動がおかしくなったのでアップデートミスってないか調べてちょんまげ、と問い合わせた時も、 なんかトンチンカンな回答で結局自力でなんとかするしかなかったんだよなー。 ありゃ絶対アップデートでなんか不備があったのが原因だろうと思う (確信)。 たぶんレンサバユーザで ssh でログインして cpan で Perl のモジュール突っ込んだり vim をカスタマイズして使ったりする人がほとんどいなくて、 問題が表面化してないだけなんじゃないかと思うんだが。確証はないけど。 あるいはそういうユーザはとっとと見切りをつけて他のサービスに引っ越しちゃってるとかかも。確証はないけど。 まあ、サポートに問い合わせるまでもなくサクサクと自力で解決しちゃってるだけかも知れんな。
いずれにしても共有型のレンサバは問題なく使えている間はいいけど、なにかあった時に対処しづらい。不自由でダメだ…。 基本的に管理者権限なしじゃダメなんだ。rms もそう言ってる (言ってない)。 そもそもさくらは FreeBSD な上に csh がデフォルトでなんか勝手が違ったり (bash も一応用意はされているが)、 管理まわりも妙な制約や不要な自由度があって使いづらかったり…。 たとえば追加のメールアカウント毎にアクセスできる Web メール画面を用意しているくせに、 個別のアカウントから各自のパスワード変更ができなかったり、 サーバには複数のドメインを設定できるんだが Web メール画面からメール送信しようとすると、 そのアカウントに紐づけした (したい) ドメインだけ表示されずに全ドメインがプルダウン式に選択可能になってたり …というか選択しないと使えなかったり… (これは個人向けプランならまあ許容範囲と言えなくもないんだが、 知人が借りてるビジネス向けプランでもまったく同じだったりして使い勝手悪くて仕方ないらしい)、 fml が用意されてるのはいいけどバージョンが古すぎて今時のメールを解析し切れず保存ログが化け化けで使いものにならなかったり。 それにワシの場合割り当てディスク容量も結局余りまくっててムダになってるし (100GB の一割も使ってない)、 多少小容量でももっと自由にいろいろ設定できる VPS サービスあたりに引っ越そうかな…という気にちょっとなって、 VPS サービスについていろいろ調べ中。何度目だこれ。 まあ、つっても無難な範囲じゃさくらの VPS が結局いまのところ一番安いっぽいんだけどさあ…。 引っ越し先もさくらってのもなんかヤだしな…。 といってめぼしいところは片っ端から GMO グループだったりして、 GMO グループにはなんとなくの悪印象がどうしても拭えなかったり。 他に安いところも探せばちらほら見つかるんだが、 その値段で安定性とかサービスの質とかはどうなの、ってあたりの情報も探さにゃならんし、 いろいろめんどくせーなー。 また自宅サーバに逆戻りするかな…でも今のプロバイダ (ntt-com 系の wakwak) 激遅だしな…。
実際どうするかは別としても、 いずれも現在のドメインは借りてるレンサバサービス固有のものでサーバを移ったら使えなくなってしまうので、 今のうちにさくら所有ドメインとは関係ないものに切り換えて、 コンテンツ本体をどのタイミングでも引っ越せるように下準備だけしておこう…というような経緯。 とりあえず特定少数の内輪向けのページは後回しとして、不特定多数向けのページだけ。 mydns.jp (Dynamic DNS サービス) は無料なのに設定自由度が高くてすごく助かるわ…。 no-ip も昔はそうだったのにな…今や見る影もなしだな。 仮に将来この mydns.jp が利用できなくなって、 このサイトも含めてワシが利用しているドメイン (URL) が一斉に変更せざるを得なくなったとしても、 さくらのレンタルサーバサービスが利用できなくなってドメイン (URL) を変えざるを得なくなった場合とダメージは特に変わらないので、 つまり Dynamic DNS サービスを利用したドメインに切り換えること自体のデメリットはない。 …サービス持続可能性は、まあ現状では無料 Dynamic DNS よりもレンサバの方がずっと大きいだろうけど…。 でもレンサバだって先方じゃなく当方の事情で利用中断せざるを得なくなる可能性もあるしな。 独自ドメインを取るのも同じことで、諸事情で所有を続けられなくなる可能性だってあるし (まあ金銭的な理由だろうけど)、 そもそも独自ドメインって取得は容易だけど、維持し続けるのはリスクもコストもかかるんで、 少なくとも個人使用目的ではあんまし積極的には持ちたくないんだった。 リスクは維持している間ではなく、むしろ使わなく (使えなく) なってからの方が大きいとも思うし…。 まあうちあたりはコンテンツ規模 (と質) がアレだからそんなに気にするほどのリスクはないだろうけど。

> VPS 調べてたら、VPS にはコンテナタイプと VM タイプがある、というような話が。 コンテナタイプに関係するのが docker と。 docker は名前だけは知っていたがどういう代物かはバクゼンとしたイメージしか持ってなかったが、 というか今もバクゼンとしたイメージしか持ってないが、なるほどそうなのか、という感じで、 こんなところでワシの脳内の乏しい知識同士がリンクした (リンクしただけ)。 …もうちょっとちゃんと調べよう…。

> 結局「レインボーマン」「コンドールマン」に続いて「ダイヤモンドアイ」の DVD も買ってしまった。 ほんとは、定額なり PPV なりでオンラインからよりどりで視聴できるようなサービスを利用した方が (もしくは DVD でもレンタルを利用した方が)、 物理的な場所も取らないし、トータルで見て安く上がったりもしそうだし、 賢いんだろうなあとは思うんだが (利用頻度によっては車を所持するよりもその都度タクシー使った方が安上がり、という類のアレ)。 でもどうしても「モノ」の形で手元に持ってないと、気が済まないんだよな～なんだろうなこれ。 そしてたぶん PPV などでいつでも見られる状態であっても、積極的に視聴はしないだろうと思う…。 …もちろん手元に DVD の形で持っていても、積極的に視聴はしないんだけど。 死ぬまでに手持ちの DVD を全部見終えている自信はまったくない。
「図説 不潔の歴史」は Twitter で後藤羽矢子さんが紹介していたのを目にして、読んでみたくなり。 図書館を利用せず古本を漁る奴。…あれ、今図書館て閉鎖中だっけ…?

> Path::Tiny に続いて HTTP::Tiny も便利そう、というのが分かったよ… (Perl モジュール)。 https にもリダイレクトにも対応してるんだな。 POST は標準では用意されてない、Cookie は非対応、https での認証局検証はしない、とか 制約はありそうだけどまあそのへんは必要に応じて他の選択肢を探せばいいし。
ワシが perl いじり始めたのいつだったっけな…最初の会社にいた頃だから 1990年代前半くらいからかな? 最初は jperl だったような気がする。違ったかもしれないが。 まあ 5 が出たかどうかくらいの頃だったような気はする (5.0 が 1994年 10月。Jperl の最終バージョンでもある 5.5 が 1998年 7月)。 それから延々といじってるけどいまだにこんな程度の使いこなし力だなあ…とちょっとしみじみしてしまった。 use strict; 常用し始めたのもちょっと遅かったしな (2006年あたりから。次の会社辞めた頃だな…)。

> メールアカウント、長年の間になんやかんやで結構たくさん作っちゃってるんだが (ほぼ Gmail とさくらのレンサバ)、 レンサバ引っ越し (未定) 準備として、 レンサバのドメインのメールで登録していた各種サービスのアカウントを順次変更手続きすると同時に、 今までは某個人用アカウントに転送してそっちから読むのと、 転送せずに直接ログインして読むのと半々くらいだったのを、 受信は基本的に (いくつかの例外パターン以外) ぜんぶ同じアドレスに転送してそこから (だけ) 読むように設定を変えてみた。 うーん…なんか、これでぜんぜんオッケーだな。 なんで今まで一部アカウントを送受信とも独立させて運用してたんだろうなワシ。 なんか理由があったハズだけど覚えておらんな…。 Sylpheed (や各種検証用の Thunderbird) で接続してる IMAP4 でも、 最終的に手元に保存しておくため kamail で接続してる POP3 でも、 接続対象が少ない方が負荷も軽いし処理時間も短くて済むし。 あと POP3 ではまとめて一カ所から拾う方がローカルに保存するメールの順番が時系列に揃って都合がいいし。 なお、メールの送信は各アカウント毎の smtp サーバから送信するよう、 melon っつー Windows 用のローカル smtp プロキシで設定してある。 しかし、メール周りに限らずいろいろ惰性でホッタラカシにしてある諸々も、見直した方がいいのがまだありそうだなあ…。

> 先々月の半ばからずっと、URL メモの記録をこの駄日記につけずにいるが、 URL メモの取得 (と保存) 自体は別途行なっている。 これらをあとからこの駄日記にどばっと追加していいもんかどうかほんのちょびっと迷い中…。 別ファイル (別ページ) に分離するパターンもありかな～。 でも駄日記の内容と関連してるリンクもたまにあったりするんだよな～。 う～んどうしよう。 とりあえずまだ追加はしないでおく…実はちょっと整理が追い付いてなかったりもするし。 “あとでやろう症候群”が…。

> 以下、ためこんでた URLメモを遅延吐き出し。