少し調子が悪い by 奈良すずめ · 公開 2012年6月7日 · 更新済み -0001年11月30日 先週の休みに、プログラムの修正をしましたが、日時が表示（記録）されていませんでした。連続書き込み禁止とか表示されるので何故だろうと・・・自分でどこか失敗しています。 ご迷惑をおかけしてすみませんが、このまま動かしながら修復します。しばし、ご勘弁ください。 シェアする
テストです。
追記：よっしゃ！直った♪
サブルーティンの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);
}
ここ数日の書き込みで、タイムの抜けているところも修復しますが、ボチボチやりますので、ご勘弁を！
朝からもう一度、テスト。