Help for this page

Select Code to Download


  1. or download this
    my %each_record = ( );
foreach my $element( @record_time){
    my $time = time();
    $each_record{$time} = $element;
}
  2. or download this
    use strict;
use warnings;
...

# Verify the results
printf "Results => %s\n", Dumper(\%each_record);
  3. or download this
    use Data::Dumper;
my %each_record = ( );
...
  push @store_all_data, \%each_record;
  printf "\@store_all_data    [%s]\n", Dumper(\@store_all_data);
}