Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/env perl

...
}

print Dumper(\%data);
  2. or download this
    $ perl timehash1.pl 
$VAR1 = {
          '1000' => 3,
          '1010' => 3
        };
  3. or download this
    #!/usr/bin/env perl

...
}

print Dumper(\%data);
  4. or download this
    $ perl timehash2.pl 
$VAR1 = {
...
                      'foo'
                    ]
        };
  5. or download this
    while(@times) {
    push @{$data{shift @times}}, shift @times;
}