2004.08.11 sa 00:23 2004.08.11 nq 00:17 2004.08.11 ac 00:12 2004.08.11 nt 00:10 2004.08.11 ta 00:11 2004.08.11 wa 01:09 2004.08.11 vi 01:19 2004.08.11 ml 00:06 2004.08.11 ql 02:16 2004.08.11 ns 03:45 2004.08.10 nt 00:11 2004.08.10 ns 02:06 2004.08.10 sa 00:22 2004.08.10 nq 00:16 2004.08.10 ql 01:12 2004.08.10 ta 00:10 2004.08.10 ac 00:13 2004.08.10 ml 00:07 2004.08.10 vi 01:29 2004.08.10 wa 00:58 2004.08.09 ac 00:12 2004.08.09 nq 00:15 2004.08.09 nt 00:10 2004.08.09 wa 01:01 2004.08.09 sa 00:20 2004.08.09 ml 00:06 2004.08.09 ns 01:39 2004.08.09 vi 01:58 2004.08.09 ta 00:10 2004.08.09 ql 01:30 2004.08.08 nt 00:11 2004.08.08 ns 01:28 2004.08.08 wa 00:51 2004.08.08 ml 00:07 2004.08.08 ql 01:00 #### my @Date = (); my %State = (); my $old_date = ''; while () { my ($date, $state, $duration) = split; if ($date ne $old_date) { push @Date, $date; } $old_date = $date; }