Help for this page

Select Code to Download


  1. or download this
        $_ =~ m/^(.*) UTC.*refs = (\d+)$/;
    my $dt = $Strp->parse_datetime($1);
    my $timestamp = $dt ->epoch();
    my $refs = $2;
    if ( defined($lookup{$refs}) && ....
  2. or download this
       my ($dt, $timestamp, $refs);
   if ( m/^(.*) UTC.*refs = (\d+)$/ ){
...
      next;
   } 
   if ( defined($lookup{$refs}) && ....