Discussion :

[ssc37]

Bonjour,

j'espère être dans la bonne section

Je suis actuellement sur un projet dans lequel je génère des graphiques avec gd, qui doivent ensuite être insérés dans Mysql (champ de type blob).
Pour diverses raisons je ne fais pas l'update Mysql via le module DBI et ne peut donc utiliser "->quote()"
J'ai pour le moment quelque chose du genre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
open(IMG, ">>$update_graph") or die $!;
#binmode IMG;
my $graph_bin = $my_graph->plot(\@data)->png;
my $graph_id = join('_',@vals);
$graph_bin =~ s/'/\'/g;
$graph_bin =~ s/"/\"/g;
print IMG "INSERT INTO GRAPH_TEST (graph_id,graph_data) values ( '".$graph_id."','".$graph_bin."' );\n";
close IMG;

Pour le moment j'ai tenté d'escape les ' et " mais même eux ne sont pas escape dans mon fichier de sortie, une idée ?
Quels caractères escape exactement ->quote ? Juste les ' et " ou il y en a aussi d'autres?

Merci

[ssc37]

Bon bah avec un peu de recherche....

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
$graph_bin =~ s/\\/\\\\/sg;
$graph_bin =~ s/\0/\\0/sg;
$graph_bin =~ s/\'/\\\'/sg;
$graph_bin =~ s/\n/\\n/sg;
$graph_bin =~ s/\r/\\r/sg;

Merci

[djibril]

Pour une meilleure lisibilité :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
$graph_bin =~ s{\\}{\\\\}sg;
$graph_bin =~ s{\0}{\\0}sg;
$graph_bin =~ s{'}{\\'}sg;
$graph_bin =~ s{\n}{\\n}sg;
$graph_bin =~ s{\r}{\\r}sg;

[ssc37]

Je n'avais pas encore rencontré ce type d'écriture pour les regexp sous perl

Merci pour le tips djibril bien utile à la lisibilité en effet