Help for this page

Select Code to Download


  1. or download this
    use strict;
use warnings;

my %data;
  2. or download this
    map {chomp $_->[2]; $data{$_->[0]}{$_->[1]}{$_->[2]} = ''} [split /\s+
+/]
    for <DATA>;
  3. or download this
    $data{$_->[0]}{$_->[1]}{$_->[2]} = '' for map [split], <DATA>;

...
261    05/24/06    13:00
261    05/24/06    13:00
261    05/24/06    13:00
  4. or download this
    848    05/23/06    12:30,11:00,14:00,13:00
848    05/25/06    11:00,12:00
261    05/24/06    12:30,11:00,13:00