perlで該当する行のみ別ファイル出力

timelog.txtのファイルの中に、[時:分:秒,不特定数値]が入っている状態で、
[00時]台が検出された場合にその前にある23時台で始まる行だけをtimelog_yesterday.txtで出力したいのですが
どのようにしたらいいでしょうか？


例）
timelog.txt
------------------------------
23:58:00,-2
23:59:00,-1
00:00:00,0
00:01:00,1
00:02:00,2
00:03:00,3
00:04:00,4
------------------------------

↓

timelog_yesterday.txt
------------------------------
23:58:00,-2
23:59:00,-1
------------------------------

timelog.txt
------------------------------
00:00:00,0
00:01:00,1
00:02:00,2
00:03:00,3
00:04:00,4
------------------------------



また、この時[00:]で始まるものがない場合はそのままにしたいです。

例）
timelog.txt
------------------------------
00:00:00,0
00:01:00,1
00:02:00,2
00:03:00,3
00:04:00,4
------------------------------

↓

timelog.txt
------------------------------
00:00:00,0
00:01:00,1
00:02:00,2
00:03:00,3
00:04:00,4
------------------------------

お手数をお掛けしますが、ご教授いただけると幸いです。
よろしくお願い致します。

No.1 ベストアンサー 回答者： Tacosan 回答日時： 2013/04/10 09:44

下の例は意味不明ですが (「[00:]で始まるものがない場合は」と書いているがすべてのデータが「00:」で始まっている), 本質的には何も考えず

「00:」で始まる行を見つける
→その前にある「23時台で始まる行」だけを別の配列に切り出す (元の配列からは取り除く)
→それぞれの配列を個別のファイルに出力する
でいいのでは?