Help for this page

Select Code to Download


  1. or download this
    $db->{RaiseError} = 0;
...
...
    $body    || "-",
    $headers || "-"
) or die $db->errstr;
  2. or download this
    ~% slocate Heavy.pm
/usr/lib/perl5/5.8.6/Carp/Heavy.pm
/usr/lib/perl5/5.8.6/Exporter/Heavy.pm
  3. or download this
    #!/usr/bin/perl -Tw

...
for ( 1 .. 2000) {
    $sth->execute($_,$_,$_,$_,$_,$_) or die $db->errstr;
}