How can I massage the following data into this?
Date,sa,nq,ac,nt,ta,wa,vi,ml,ql,ns,nt
2004.08.11,00:23,00:17,00:12,00:10,00:11
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
All I can manage is
my @Date = ();
my %State = ();
my $old_date = '';
while (<DATA>) {
my ($date, $state, $duration) = split;
if ($date ne $old_date) {
push @Date, $date;
}
$old_date = $date;
}
|