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]
