Help for this page

Select Code to Download


  1. or download this
    if (/^\s*(\S+)\s+(\S+)\s+(.+\S)\s*$/) {
      $dbh->do('replace into reference_code values (?,?,?)',undef,$1,$
+2,$3) or die $dbh->errstr ;
  2. or download this
    if (/^\s*(\S+)\s+(\S+)\s+(.+\S)\s*$/) {
      $dbh->do('replace into reference_code values (?,?,?)',undef,$1,$
+2,$3) or die "[$1] [$2] [$3] [". $dbh->errstr ."]";
  3. or download this
    if (/^\s*(\S+)\s+(\S+)\s+(.+\S)\s*$/) {
      print "[$1] [$2] [$3]\n";
      $dbh->do('replace into reference_code values (?,?,?)',undef,$1,$
+2,$3) or die "[$1] [$2] [$3] [". $dbh->errstr ."]";