Beefy Boxes and Bandwidth Generously Provided by pair Networks
"be consistent"
 
PerlMonks  

coec's scratchpad

by coec (Chaplain)
on Jun 02, 2004 at 22:25 UTC ( #359789=scratchpad: print w/ replies, xml ) Need Help??

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; }
Log In?
Username:
Password:

What's my password?
Create A New User
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others wandering the Monastery: (6)
As of 2014-10-25 17:59 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    For retirement, I am banking on:










    Results (147 votes), past polls