Help for this page

Select Code to Download


  1. or download this
    tie my @array, 'Tie::File', $filename, mode => O_RDONLY;
my $recs = @array;
...
foreach my $element ( @array ) {
   print "ok, we'd be updating $element \n";
}
  2. or download this
    we have 280579 records to parse  at ./upd_res_data2.pl line 72, <FH> l
+ine 280579.
Couldn't write record: Bad file descriptor at /usr/lib/perl5/5.8.0/Tie
+/File.pm line 665, <FH> line 280580.