少し調子が悪い
先週の休みに、プログラムの修正をしましたが、
日時が表示（記録）されていませんでした。
連続書き込み禁止とか表示されるので何故だろうと・・・
自分でどこか失敗しています。
ご迷惑をおかけしてすみませんが、
このまま動かしながら修復します。
しばし、ご勘弁ください。
Hobby Bee Keepers
Hobby Bee Keepers
先週の休みに、プログラムの修正をしましたが、
日時が表示（記録）されていませんでした。
連続書き込み禁止とか表示されるので何故だろうと・・・
自分でどこか失敗しています。
ご迷惑をおかけしてすみませんが、
このまま動かしながら修復します。
しばし、ご勘弁ください。
テストです。
追記：よっしゃ！直った♪
サブルーティンのget_timeが２種類あったんですね、
表示用には、こっちを使うように統一しなくっちゃ・・・
#———————————————————–
# 時間取得
#———————————————————–
sub get_time {
# タイムゾーン設定
$ENV{TZ} = "JST-9";
# 時間取得
my ($sec，$min，$hour，$mday，$mon，$year) = (localtime(time))[0..5];
# フォーマット
sprintf("%04d/%02d/%02d-%02d:%02d:%02d"，
$year+1900，$mon+1，$mday，$hour，$min，$sec);
}
ここ数日の書き込みで、タイムの抜けているところも修復しますが、ボチボチやりますので、ご勘弁を！
朝からもう一度、テスト。