🚀 go-pugleaf

Ik ben ��n van mijn Perl programmatjes aan't opkuisen, en ik zit een beetje
geblokkeerd.

Ik haal een lijst programma's, en de uren waarop ze worden uitgezonden,
gesplitst door komma's, uit mijn database met DBI.  

Voorbeeld van wat data:

+-------------------------+-------------------------+
| titles                  | times                   |
+-------------------------+-------------------------+
| Kinderen!?! :De were    | 01:00,08:00,15:00,22:00 |
| Vitali-Tijd: Chiropr    | 04:00,11:00,18:00       |
| Eet Wijzer: Pekingee    | 00:00,07:00,14:00,21:00 |
| Mensen en Gevoelens:    | 03:00,10:00,17:00       |
| Mode & Beauty: Meest    | 05:00,12:00,19:00       |
| Vrije Tijd: Cruise r    | 02:00,09:00,16:00,23:00 |
| Wonen: De Tuinen van    | 05:00,12:00,19:00       |
+-------------------------+-------------------------+

Nu het probleem: ik zou deze data in een hash met uren als keys willen proppen
($today{'01:00'}[0] = "Kinderen!?! ...", $today{'08:00'}[0] = "Kinderen!?!
...", enz) om dan makkelijk te kunnen sorteren, maar ik zie niet echt direct
een effici�nte manier om die data in die hash te proppen.

Heeft er iemand geniale idee�n?

Dit is mijn SQL-statement om de data te verkrijgen:

my $sth = $dbh->prepare("SELECT epg_main.title, epg_loops.times_$dow
                         FROM epg_main
                         LEFT JOIN epg_loops ON epg_main.loop_id = epg_loops.id
                         WHERE epg_main.start BETWEEN '$date_today' AND '$date_nextw'");
$sth->execute();

Vermoedelijk 'dead obvious', maar ik zit er nu al een uur of twee naar te
staren, en te klungelen met lusjes en references, maar ik kom nergens.

Any help greatly appreciated.

 - Philip

-- 
Philip Paeps                                                   philip@paeps.cx

  The one ingredient you made a special trip to the store
  to get will be the one thing your guest is allergic to.