Here is a little script I am working on, first part executes without any problem... The database is deleted from MySQL but the second part of the script which is supposed to take a file on my disk and insert it into my db does not work...
Second part (after for (split(// #!/usr/bin/perl $in = "/Users/thomas/Sites/update/base.html"; $enregistre = 0; $tete=1; open(FILE,"<$in") || die "Erreur d'ouverture : $!"; system("/usr/local/bin/mysql -u greg -pEud -e \"DELETE FROM ferrari\" ferrari"); ################# ## Second part ## ################# for (split(//,<FILE>)) { if (/^<\/TR>$/) { $enregistre = 0; $script = "/usr/local/bin/mysql -u greg -pCt -e \"INSERT INTO ferrari VALUES \('" . @data[0] . "','@data[1]','@data[2]','@data[3]','@data[4]','@data[5]','@data[6]','@data[ 7]','@data[8]','@data[9]','@data[10]',NULL,'@data[11]'\)\" ferrari"; if ($tete eq "0") {system "$script\n";} else {$tete = 0;} } if ($enregistre eq "1") { s#^<TD>(.*)</TD>$#$1#; s#'#\\'#g; s#^([0-9]{2})/([0-9]{2})/([0-9]{4}).*$#$3-$2-$1#; s/&#([0-9]*);/pack("C",$1)/eg; @data[$champ]="$_"; $champ++; } if (/^<TR>$/) { $enregistre = 1; $champ = 0; } } system("date +%d/%m/%Y > /Users/thomas/Sites/modif.inc"); ________________________________________________ «?»¥«?»§«?»¥«?»§«?»¥«?»§«?»¥«?»§«?»¥«?»§«?»¥«?»§ ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯ Grégory Bernard 21, rue JJ Rousseau Directeur 75001 Paris France www.ToDoo.biz tel : +(33) 1 40 26 43 14 ________________________________________________ «?»¥«?»§«?»¥«?»§«?»¥«?»§«?»¥«?»§«?»¥«?»§«?»¥«?»§ ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯ PGP ID --> 0x1BA3C2FD -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]