今年はいろいろあった。

家人の手術入院が一番大きかった。

幸い、手術も無事済んで入院も予定通り。

これには正直かなりびびった…本人はもっとびびってた。あたりまえ。手術決定〜手術〜入院中、いろいろ考えさせられた。

ほんと、つくづくしみじみ「健康第一」を実感した一年だったなあ。

【生活・仕事】

今年64歳になって「特別支給老齢年金」の需給が始まった。65歳からの満額ではないけど安定収入だ。40年以上働いて保険料を支払い続けてきて、今度は受けとる側。

「年金請求手続きに行ってきた」

もちろんこれだけで食っていけるわけもない。

でも、これでライスワークを辞めることができたのは本当に助かった。

今年3月で契約を終了。実質2月でシフト仕事から足を洗った。

「手取り金額」も減ってきていて、このぐらいなら年金で補填になるかな、と。

そもそも、仕事自体、IT軽作業で自分のスキルアップになるものでないし、なんらかの知見・経験に繋がるようなものでなくて、食うための仕事と割り切ってた。

ただ、たかが10人ぐらいのチームだというのに、ヒエラルキーにしがみつく会社ごっこ大好きの猿山がストレスでしかなかった。

ありがたいことに、電子書籍制作の在宅仕事は継続中。

こっちは、もともと仕事も面白いし、ひとの入力が相手ということもあって、毎回イレギュラーが発生したりその対応でスクリプトを書いてたりで充実感もある。

年金と在宅仕事でどうにか食えるぐらいはなんとかなった一年だった。

今年はまだ社会保険などライスワークでまかなえてたところもあるけど、来年になると全部負担になるんで、どうなることやら、というところかな。

ネットの方は相変わらず、この通り。

SNSでは今年2025年は今日今時点で

→投稿日数365日/投稿数2929回/一日平均8.0回

と入り浸り状態。

「ところてん」

ここ、ひまつぶし雑記帖はこのエントリで今年40件め。

mac miniやノパソに linux Mintをインストールして復活させた記事が、アクセスログを見てみたらちょっとバズってた。

「10年以上前のMac miniをlinuxで復活」

「元WINDOWS10のノパソにlinux mint」

ホームページ「On Golden Pond」

デジカメ日記を毎月更新。

ActivityPub実装記事を追加。

ヨタ小話を追加。

と、そこそこちゃんと更新できてた。

シフト仕事を辞めてからリアルで他人との関わりがまったくない。話し相手は家人ぐらい。

ストレスのない生活はいいんだけど、さすがにこれってボケるのに50cmぐらいまで来てるんじゃないか疑惑も。

それもあって、ネットに入り浸りなのかもしれんなあ。

【健康】

家人が大変だったんだけど、わたしは3月に頚椎の異常と肋骨の骨折が判明。

背中に激痛が走るし、なんか姿勢の都合でビキっと痛むし内臓の問題かと思ったら骨の問題だった。

どちらも原因不明で、どちらも治療は特になく自然治癒待ち。

…結局なんだったんだろう、だなあ。

年初はデジカメを持って毎日ウォーキングで1万歩だったのに、夏の暑さに負けて4000歩程度になり、秋になったらと思ってたら秋が短かくていきなり冬の寒さ。

部屋で踏み台昇降をちょっとやってみたものの、これは飽きる。続かない。

身体を動かすことを考えないと、歳も歳だし、かなりまずい。

【映画館で観た映画】

15戦 12勝2敗1分

『羅小黒戦記2』

『九龍城砦 トワイライト・ウォリアーズ』

この2本が問答無用のツートップ。

あと、オススメしにくいけど

『アンデッド』

は、観たひとと答え合わせをしたくなる映画だったなぁ。

・以下、今年観た順番

お坊さまと鉄砲

ビーキーパー 養蜂家

トワイライト・ウォリアーズ

アンデッド

ザ ルーム ネクスト ドア

鹿の國

教皇選挙

ミッションインポッシブル ファイナル レコニング

鬼滅の刃 無限城編 第1章

スーパーマン

バレリーナ

プレデター バッドランド

羅小黒戦記2

KILL 超覚醒

悪魔祓い株式会社

以上、老人特有。

無駄に長くてとりとめもない「2025年ふりかえり」記事となりました。

来年2026年、健康で良い年でありますように!

タイトル通り、perlと長いつきあいになったなあ、というのが今回のエントリ。

還暦過ぎの爺さんの無駄に長いだけのネタですみません。

シンボリルドルフのダービーから競馬を始めた。1984年がわたしの競馬元年。

1991年にJRA PAT、馬券をパソコン通信で購入できるというので申し込み、たぶん2回めの募集で滑り込み、モデムやら回線、銀行口座やら揃えて、その延長でPC-VANに登録してパソコン通信を始めた。

すべては競馬ありきだった。

どっぷり競馬、馬券にハマって当時PC-VANの競馬SIGのひとたちと競馬データを分担して収集加工整形するようになった。

この競馬データいじりが、perl歴の始まりとなる。だいたい1990年代はパソコンをいじり倒してたと思う。

当時の仕事(エロ本エロ漫画編集)にはパソコンなんて1mmも関係がないし、1円にもならないことにほとんどの時間を使っていて、そんなことして何になるの？と言われると謝るしかない。

そもそも、競馬データを集めて解析分析したところで馬券には繋がらない。競馬に限らず、ギャンブルの本質は「気合と根性」だということがわかった。自分にどれだけのものを賭けられるか、その快感がギャンブルの麻薬的魅力。

最初はMS-DOSでawkを使っていて、次にjperlを使うようになって現在に至る…なので、30年ぐらいperlを使ってることになる。

この時やってたことが30年以上経ったいまになって使えるんだから、何が役にたつかなんて、わからないものだ。

perlを使うために

・MS-DOSではメモリも足りず、PANIXやFreeBSDといったPC-UNIXを使い

・perlはCGIに使われることもあってWEB(ホームページ)を作るようになり

競馬から離れたところでperlを使うようにもなっていた。

unixを構築したり、CGIを使うようになると、webやデータベース、メールサーバーなどのサーバー類も構築するようになった。

FreeBSD、apache、postgresql、mysql、sqlite、sendmailなどなど、どれも独学独習の素人芸。

IT業界未経験、ただの元エロ本編集という私立文系一本道の穀潰しでもそれっぽい仕事にありつくことができて、どうにか食えるようになってるのはperlのおかげだ。

perlとエロ本編集時代の知識でepub3電子書籍の制作もできてるし。

21世紀のいま、perlは終わった言語という扱いらしい。

いまどきのrubyやpython、GOなんかは精力的に開発されていて、バージョンアップ、アップグレードも頻繁で改善されている。その点perlは音沙汰もない。ほとんどのunix系OSにはデフォルトで入ってるんだけどね。

でも、今も昔も変わらない、枯れた言語だからこそわたしは助かってる。

どのIT現場でも30年前の知識が通用するわけだから。perlひとつでどうにかしてきた。

ほかの言語だとアップグレードについていくのが大変で投げてたと思う。

いやいや、perlがいま何か貢献してるわけ？とか言われるとわからないし、時代の進歩にあんまり貢献してないと思う。

けど、わたし個人、還暦過ぎ爺さんにはとても役に立ってくれてることは確か。それはそれでいいんじゃないのかなあ。

爺さんが説教くさいことをひとつだけ言うとしたら

コスパとかタイパとか効率などというのは、その時じゃわからない、いつ何が身を助けることになるかわからない。だったら好きなことを一生懸命やった方が面白いんじゃないかなあ、ということかな

ActivityPubの投稿を削除するには2つ必要で。

・自分んち、ローカルは

→データベースから該当の投稿を削除する。

・他所んち、リモートには

→「Delete」のActivityをリクエストする。

今回のネタはこの2つ。

1)なんでautoincrementを設定してなかったんだ!？

2)Mastodon系とMisskey系で削除したNoteのIDの扱いが違っていた？

この投稿のうち、真ん中の2つ「6453」と「6454」は一度削除後に再投稿したもの

・一度データベースから削除

・DeleteのActivityをリモートにリクエスト

・削除されていることを確認して

・削除後に新たに別の内容を投稿したもの

ローカルから消すために、データベースからの削除はスグできる。

リモートには、対象の投稿はもう「墓石」です、というのを「Delete」のActivityに入れてリクエストする。

{
  "id":"https://tokoroten.doncha.net/t2aki/items/03881-20250208"，
  "url":"https://tokoroten.doncha.net/t2aki/items/03881-20250208"，
  "type":"Tombstone"
}

「投稿を削除する::On Golden Pond」

https://www.doncha.net/activitypub/activitypub007.html

お相手は削除のリクエストが飛んできたのを見て、対象のNoteは墓の下になったということで、タイムラインからも削除する。

そのIDはもう使えない。

削除後に新しく別のものを投稿すると

データベース的には、primarykeyにautoincrementを設定してないもんだから、IDの最大値を使う。

つまり、一度使用した・削除されたIDをまた使うことがある(IDの使い回しなどあってはいけない自業自得案件)

削除したIDを使い回して新たに投稿

mastodon.social

misskey.io

そもそも、IDの使い回しなどあってはいけない、というのが大前提なので、わたしのポカなんだけど。

mastodonは削除IDの復活はない、misskeyは削除IDを墓の下から復活する。

同じIDの使い回しというと「Update」(投稿の編集更新)があるけど、これもサーバーによって対応がビミョーに違ってた、かなあ。

IDの使い回しなどあってはなりません(教訓

SQLiteはAlterなんちゃらでautoincrementを後付けできない。

改めてテーブルを作って、そこに既存データをコピーすることになる…ので、いろいろ危険だなあ。これは「運用でカバー」という腐った対応にしておこう。そのためのメモだ。

[12/10 20:30:37] 追記

言い訳をしておくと。

mastodonの仕様は把握していた。miskkeyが意外だった。

autoincrementをつけるかどうかは、データベースを作る時にちょっと迷った。

投稿作成フローで、うちはまず「下書き」状態でデータベースに登録。この時点でIDがふられる。下書きを確認した後、問題がなさそうだったらリモートに配送する。

ということは、実際に配送に至らなかった投稿でもIDを消費してしまう。これを嫌ってautoincrementを見送ったという経緯。配送IDとか別建てにしておけば良かったんだろうけど…手抜きしちゃったなあ。

その時々のできごとや思ったことはリアルタイムWEBのSNS(フェディバース)に放流。

あとから参照することもありそうなことは蓄積型のこのブログに積み上げ。

という大雑把な棲み分けをするようにしてるつもり(SNSのなかった昔はともかく)

…なんだけど、ここ最近みたニュースがもうほんと未来に来ちゃってスゲー! ので、こっちに。

「核融合　小さな太陽を造る壮大な実験「ITER」は人類のエネルギー危機を救えるか？」

https://natgeo.nikkeibp.co.jp/atcl/news/25/102100578/

「核融合発電の技術開発で日本がリード、最終実証装置の建設に着手」

https://monoist.itmedia.co.jp/mn/articles/2510/29/news037.html

核融合なんて、太陽を手に入れるようなもので、人類には無理、と言われてたと思う。

まさかその太陽が手の届くところまできてた。びっくりするしかない。

イカロスになりませんように、だなあ。

核融合が実現すると、核廃棄物、地球温暖化CO2問題なんかが解決する、らしい…生きてるうちに知りたい世界だよなあ。

「HTV-X1号機、軌道制御マヌーバを完了し、油井宇宙飛行士によって把持（キャプチャ）されました」

https://humans-in-space.jaxa.jp/htv/mission/htv-x1/news/detail/005078.html

宇宙ステーションが地球の周回軌道にいて、そこに滞在する宇宙飛行士がいるだけで、それいつのSF？という世界で改めて胸熱なのに、地上から打ち上げた貨物宇宙船で荷物を届ける世界だ。

計算通りということだろうけど、いったいどれだけの距離がある？ どんなスピードで地球上を周回してる？ それをピンポイントでドッキングとか。

JAXAやNASAの動画を見るといま自分はどんな世界にいるのかくらくらしてくる。

いやまじで未来。

先日上げたエントリの続きも少し。

「ブログのアクセス制限」

たぶんA.I.のクローラー。その連続アクセスがちょっと行儀が悪くてアクセス制限をかけた。

かなり雑にやっちゃったもんで、クローラーじゃない「ひと」も巻き込んでしまった。

ということで少しずつ様子を見ながら制限することに。

↑クローラーと思しきアクセスはこのページに案内するようにした。

A.I.も未来なんだけど、なんか不幸な生い立ちになりそうだなぁ

プロバイダのメールを取得表示するperlスクリプトをでっちあげた。

今まではgoogleのGmailでプロバイダのメールを取得して、WEBやアプリのGmailでメールを確認してたんだけど、GmailがPOPのサポートを終了という話。

「Gmail、POPのサポートを2026年1月に終了へ」

となると、迷惑メール＝SPAMメールが面倒くさくなる。

Gmailを使ってる一番のメリットは迷惑メールの振り分け。迷惑メールフォルダは中を確認することもなくそのまま全削除してた。

これが使えなくなる。

WEBサービスを公開してたり、ブログで仕事受注していたこともあって、プロバイダのメールアドレスはオープンにしてた…なもんで、お問い合わせやプロモーションなどのメール以外、残り95%ぐらいは迷惑メール。

GmailのPOPサポートが終了となってから慌てても、空白期間が生じるんで、今のうちに対応しておこうというところ。

やることは単純で。

・pop3でプロバイダのメールサーバーにログイン

・届いてるメールを取得してログアウト

・メールの中身を確認、解析

・迷惑メールは削除

・迷惑メール以外は表示

これだけ。

Net::POP3を使ってメールサーバーにログイン、取得。

MIME::Base64とMIME::QuotedPrintを使ってメールのエンコードされている部分(本文やSubject、From)をデコード。

メールのヘッダーを解析するためにMIME::Emailというモジュールがあるんだけど、レンサバのロリポップにはインストールされていないので、ここは自作実装。

問答無用のスパムリスト

sub list_spam{
    my $self = shift；
    my $args = shift；

    my @list = (
        ’[spam]’，’bizocean’，’visa’，’JACCS’，’ETC’，
        ’日本郵便’，’楽天会員’，’楽天カード’，’東京電力’，’セゾンカード’，’宝くじ公式’，’メルカリ’，’マネックス’，
        ’大和証券’，’クロネコ’，’ソースネクスト’，
        ’マイル’，’マイレージ’，’お客様サービスセンター’，’入金’，’分割・リボ’，’統計調査’，’即日’，
        ’裏ワザ’，’サービス停止’，’セキュリティ警告’，’無料でもらえる’，’ガス料金’
    )；
    map {$_= quotemeta($_)} @list；
    return join(’|’， @list)；    
}

プロバイダのメールで登録していない銀行やサービスは明らかにスパムだし、それ以外の「裏ワザ」「即日」といった文言を使うようなもの、「サービス停止」だのプロバイダのメールアドレス宛に飛んできそうにないものを列挙羅列して、SubjectやFromに含まれていたら削除。

このほか、ワードの組合せや本文中に含まれるリンクなんかでも判定を入れたので迷惑メールはほぼほぼシャットアウトできたと思う。

また、これらの判定の前にホワイトリストを通すようにしてるんで、必要なメールを削除するようなことはないだろう。

gmailをありがたく便利に使わせてもらってるんだけど、いつかのSPFレコードうんぬんの時も、gmailの仕様変更(？)は、影響が大きいんだよなあ。