Help for this page

Select Code to Download


  1. or download this
    
use strict;
...
        push @data, $rec;
}
  2. or download this
    
my @Fields=(
...
my $person;
my $i=0;
  3. or download this
    
my $ta=time();
...

my $tb=time();
  4. or download this
    
my $use=1;
...
}
my $tc=time;
  5. or download this
    
my $iab=$tb-$ta;
...
print "TIMES:\nab: $iab\nbc: $ibc\n";
print "COUNTS:\nab: ", $#Persons,"\nbc: ",$#Rset,"\n";
  6. or download this
    
mpneves@voyager perl$ ./test.pl
...
ab: 1213
bc: 1213