ホーム » t-saitoh の投稿 (ページ 13)

作者アーカイブ: t-saitoh

神田明神のお守り

2023-08-17

長男が、お盆休みを少しずらしての帰省。私が入院したのもあって、お守りがお土産。^_^

台風7号通過後で余裕の帰省のはずだったけど、静岡の雨による東海道新幹線の混乱で、東京駅で指定の新幹線待ちで、1時間待たされたらしい。

あ〜のスマホ機種変

2023-08-16

娘のスマホがガラス割れで4年目なので機種変。古い端末は、ZenFone Max Pro(M2) だったけど、今回は mineo で買える端末からということで、Xperia 10 v となった。

mineo から端末が届いて、早速ヤマダ電機で、保護フィルムとスマホケースを購入。売れ筋なのか簡単に見つかった。データ移行も、micro USB-Type-C ケーブルでスムーズに完了。まだまだ細かい移行作業はあるけど、自分でできるだろう。

エコ〇イフからの電話

2023-08-15

自宅固定電話に電話。越前市のうんたらかんたら….不用品の買い取りで….と電話があった。

私：　この電話番号は、どうやって調べました？
　　　越前市からの情報提供というのなら
　　　個人情報保護法的に問題があるし...
相手：情報を確認しますので....
　　　(上司に伺いをたててる様子...)
　　　NTT の電話帳で調べて....
私：　この電話番号は電話帳に載せてない。
　　　言ってること最初っから嘘じゃん。
　　　会社の名前もういちど教えて？
相手：エコラ〇フです。
　　　(上司の一言があったんだろうけど)
　　　「豊島区」のエコ〇イフです！

絶対、同名他社の名前騙ってるな。改めて会社名で調べると不用品買い取りで、社名入力するだけで「電話しつこい」がサジェストされらぁ。
「豊島区」は、絶対「同社他部門」か「同名他社」だな。

猫の診察

2023-08-15

歩き方がちょっと変、お尻触ると怒る、ウンチ出てない…ということで、急遽、動物病院の診察。お盆でも午前中だけとはいえ、開いてて助かった。

結果は、特に問題なし。レントゲンで、お腹が変とか足が骨折とかも、大丈夫みたい。8歳だし便秘も安心はできないので、便軟化剤と痛み止めの薬が処方された。

無事にTie-inn

2023-08-13

数年前に、人間ドックで左副腎に小さな腫瘍があるけど様子見となった後、健康診断でカリウム値が低めの傾向があり、去年の秋に足の裏が攣る…ということで病院に相談したら、低カリウム症で副腎腫瘍が原因か？という流れの中、色々検査して今回の手術。

術部のドレイン管の後は、ジクジクが残ってる。数日後の退院だと台風直撃になりそうと思ってたけど、医師の方から日曜か月曜なら退院OKとの話があって、台風前に帰ろうということで、日曜退院となった。

手術明けには、よく寝れない日が続いたので、何気なくググったら、手術で睡眠障害の可能性もあるみたい。でも医師だと慣れない病室で寝れないこともあるので、ひとまずは様子見。

自宅で動かしているスクリプト、自前だから手抜きもあって、サーバトラブル時には他の機器が巻き込まれてエラーが増えることも多い。自室の homebridge などを動かしている Raspberry-Pi が暑さもあってか、再起動させたら一時的に気絶。復旧は問題なかったけど、気絶中に他の外気温測定のRaspberry-Pi がブローカーとなっている Raspberry-Pi が落ちているため、MQTT のデータ送信に失敗のエラーを出してる。

ちゃんと、connect で出るエラーを try-except で例外処理を追加した。

try :
  client = mqtt.Client( ... )
  client.connect( BROKER )

  client.publish( ... )
except ValueError as err :
  print( err )
except OSError as err :
  print( err )

以前から、トラブル時にウザいのが、Perl で書かれた RSS 情報をまとめるスクリプト。Perl での try-catch もどきということで eval{} if ( $@ ) … でエラー対策してるつもりなんだけどトラブル時のエラーがうまく動いていないような。今回あらためて、Perl try-catch で検索したら、Perl 5.34 で try-catch が実験的にサポートされているらしいので使ってみた。

use feature qw( try ) ;
no warnings "experimental::try" ;
:
try {
  $feed->merge( $rss ) ;
} catch( $e ) {
  print "catch $e" ;
}
# eval { $feed->merge( $rss ) ; } ;
# if ( $@ ) {
#    warn "..." ;
# }