1 2 3 4 5 6 7 8 9
| #!/usr/bin/perl -w
use DBI;
open(STDERR, ">Error.txt" ) or die "cannot redirect stderr output in log file : $!\n";
my $DSN = 'driver={SQL Server};Server=sql\mssql; database=web; uid=sa;pwd=****************/;';
my $db = DBI->connect("dbi:ODBC:$DSN", { odbc_cursortype => DBI::SQL_CURSOR_DYNAMIC, AutoCommit => 1 } ) or die ( db($DBI::errstr) );
my $i = $db->prepare("insert into web(link,idcategory,id,idcountry,date,revisit,body,title,description,feed,size,bluemap,last) values(?,?,?,?,?,?,?,?,?,?,?,?,?)");
$i->execute('http://www.free.fr','1','137','1','26/09/1985','7','maison sa savs ?','tittre','la desc','not_found','7.0','0','12/05/2006'); |
Partager