how to create an array of an array?

cjacksonjr has asked for the wisdom of the Perl Monks concerning the following question:

How do I create a new array for the values which meet the timing constraints?

 foreach $record (@records) {
    my $UnixTimeStart = $record->[3];
    if (($UnixTimeStart > $eSeconds1) and ($UnixTimeStart < $eSeconds2
+)) {
      $PSFaultCount++;
      $TLCount++; # Incremnt TL
      if (($TLCount%1000) == 0) {
    $sqla = "dump transaction TomTest with truncate_only";
    $dbAlarm->ct_sql($sqla);
      }
      print "$record->[0], $record->[1], $record->[2], $record->[3],$r
+ecord->[4],$record->[5]\n";
    }
  }
[download]

Comment on how to create an array of an array? Download Code

Replies are listed 'Best First'.
Re: how to create an array of an array? by fglock (Vicar) on Aug 29, 2002 at 14:14 UTC
`my @selected; foreach $record (...) { if (...) { push @selected, $record; } }` [download]	[reply] [d/l]