Help for this page

Select Code to Download


  1. or download this
    my $dbh;
eval { $dbh = DBI->connect( $dsn, $user, $pass, { 'RaiseError' => 1 } 
+) };
...
my $st_handle;
eval { $st_handle = $dbh->prepare( $insert_query ) };
eval { $st_handle->execute( @row_values ) };
  2. or download this
    s**lil*;  $*=join'',sort split q**;  s;.*;grr; &&s+(.(.)).+$2$1+; $; =
qq-$_-;s,.*,ahc,;$,.=chop for split q,,,reverse;print for($,,$;,$*,$/)