Help for this page

Select Code to Download


  1. or download this
    my $x;
$x->{foo};
print $x; # it's a hash!
  2. or download this
    my $x;
$x->[0];
print $x; # it's an array!
  3. or download this
    my $event;

...
    my ( $time, $lane, $factory, $event ) = split " ", $_;
    $event->{ $factory }{ $lane }{ $time } = $event;
}
  4. or download this
    my $event = {};

...

    $event->{ $factory }{ $lane }{ $time } = $event;
}