Discussion :

[vbcasimir]

bonjour

je fais des upload d'images dans une base mysql et chose curieuse j'ai des fichier "CGItemp27789" qui se crée dans le répertoire où s'execute le script

je voudrais comprendre pourquoi ces fichiers apparaissent car ils font grossir le repértoire peut -on les éviter ? ou font-ils parti d'une étape necessaire produit par un module perl ?

Merci

[djibril]

comment fonctionne tes scripts? crees tu des images? tout est possible en perl, même de les suprimer tes fichiers temp au cas où.

[vbcasimir]

en fait ces fichiers apparaissent lorsque je upload des fichiers images mais je ne comprends pas car à aucun moment je crée des fichiers temporaire sur le serveur puisque j'envois directement le flux binaire dans une base de donnée

voici le code que j'utilise

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
 
$photo1 = param ("photo1");
@tabphoto = <$photo1>;
$contenu = (join '', @tabphoto);
 
my ($dbh);
 
$dbh=DBI->connect("dbi:mysql:database=donnee;host=localhost","root","");
 
$dbh->do("INSERT into table (donne1 , donnee2 , donne3) values('$id', ".$dbh->quote($contenu).",'$total')");
$dbh->disconnect();

puis celui qui me permet de visualiser l'image

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
 
 
my ($dbh,$req,@t,$i);
 
$dbh=DBI->connect("dbi:mysql:database=donnee;host=localhost","root","");
 
my $req=$dbh->prepare("select image from table where donnee1 = '64' and donnee2 = '147'") or die($dbh->errstr());
$req->execute() or die($dbh->errstr()); 
 
print "Content-type: image/gif\n\n";
 
while (my $image =$req->fetchrow_array())
  {
	print $image;
 
 
   }

[djibril]

c'est quoi cette commande

Code :

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

@tabphoto = <$photo1>;

et qu'est ce qu'il y a dans $image?

[vbcasimir]

c'est quoi cette commande
Code:
@tabphoto = <$photo1>;

bien je recupère dans ce tableau le "flux binaire" de mon image uploadée
si je faisais un print de ce @tabphoto je verrais tout un tas de petits symboles
... et pour recupérer ce "flux" j'ai trouvé cette façon de faire maintenant je ne sais pas si c'est la meilleur mais ça fonctionne bien ...

ensuite

et qu'est ce qu'il y a dans $image?

bien je recupère donc les donnée binaire de mon image .. ce que tu peux voir dans le code

Code :

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

1
2
3
4
5
6
7
8
9
10
 
 
my $req=$dbh->prepare("select image from table where donnee1 = '64' and donnee2 = '147'") or die($dbh->errstr()); 
 
while (my $image =$req->fetchrow_array())
  {
   print $image;
 
 
   }