| Php a Perl
Cordial saludo, tengo el siguiente script en php:
$sql=" select max(campo_id)+1 numero from tabla";
$rs = mysql_query($sql,$conn);
$row = mysql_fetch_array($rs);
$nummax = $row["numero"];
$sql2="insert into tabla2 (campo1, campo2) values (1, $nummax)";
$rs2= mysql_query($sql,$conn);
$row2 = mysql_fetch_array($rs2);
como podria hacerlo en PERL usando el modulo de DBI? |