Insertion d'image dans champ blob et escape des caractères spéciaux

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:

---

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 :zoubi:

Bon bah avec un peu de recherche....

Code:

---

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 ;)

Pour une meilleure lisibilité :

Code:

---

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;

---

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 :ccool: