It seems to me like you should make a hash of arrays mapping dates to their records. So, you could do something like this:
my %records; while( my $row = $sth->fetchrow_hashref ) { push @{ $records{ $row->{start_date} } }, $row; }
Then you can loop through that hash (sorting as necessary) to output the records. Since the outer hash is keyed by the datestamp, we can sort it easily:
foreach my $date( sort keys %records ) { print $date, "\n"; # then get each record, sorted by the start time my @recs = sort { $a->{start_time} cmp $b->{start_time} } @{ $records{$date} }; foreach my $rec( @recs ) { print $rec->{id_number}, "\t", $rec->{start_time}; print "\n"; } }
That's all untested but should get you on the right track.
In reply to Re: help formatting output of particular loop
by friedo
in thread help formatting output of particular loop
by eisdrache
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |