1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41
|
# MYSQL CONFIG VARIABLES
$host = "localhost";
$database = "lapresse";
$tablename = "article";
$user = "root@localhost";
$pw = "";
#PERL MYSQL CONNECT()
$connect = Mysql->connect($host, $database, $user, $pw);
#SELECT DB
$connect->selectdb($database);
$myquery = "INSERT INTO $tablename (id, valeur) VALUES (?,?)";
si vous avez des solutions s'il vous plait aidez moi!!!! c'est urgent
et merci pour vous en avance
cordialement..............
##############################################
my $separateur = "</a>";
my @tab = split($separateur, $page);
foreach $var (@tab)
{
if (!((substr($var,0,4) eq "HTTP") or (substr($var,0,3) le "<") or (substr($var,0,1) eq "<")))
{
# EXECUTE THE QUERY FUNCTION
$execute = $connect->query($myquery);
$myquery="INSERT INTO article(id,valeur) VALUE (DEFAULT,$var)";
# AFFECTED ROWS
$affectedrows = $execute->affectedrows($myquery);
# ID OF LAST INSERT
$lastid = $execute->insertid($myquery);
print "\n*****************************************************************\n";
}
} |
Partager