Help for this page

Select Code to Download


  1. or download this
    
  my $dumper = Data::Dumper->new();
...
    or die "closing $id_file_name: $!";

  $sth->finish();
  2. or download this
      # open a file to track all ids
  my $id_file_name = 'all-ids.txt';
...

      $ins->execute( @$aref );
  }
  3. or download this
      my $subdir = sprintf '%03d', $id % 1000;
  unless ( -d $subdir ) { mkdir $subdir, 0777; }
  my $file = "$subdir/$id";