今日は少し元気なので，課題に😓実質的に着手しました．
とりあえず今日のところの成果物は，日付とモードとコールサイン指定して，検索して，もし結果が返らなかったら”die”する，つまり最初に未登録のデータを見つけたらそこまででおしまいというプリミティブなものです．
作業的には元のスクリプトから削除するのが大部分となりました．
走らせたところ，3時間ちょっとで終了です．Perlの実行時間はなんとそのうちの33.7秒で，ほとんどはmysqldの所要時間です．
topからも，そこら辺が解ります．
まだ，dieしなければ，何にも返ってこない仕様なので，これだけではスクリプトが正しいかどうか解りません．また，日付とモードとコールサインだけで指定しているので，コンテストなどだと，複数レコードが返ってくるはずなので，そこら辺を表示するように改良したいと思います．