Discussion :

[vbcasimir]

bonjour

j'ai le script suivant qui me permet d'obtenir la taille en ko d'une image que
je upload

Code :

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

1
2
3
4
5
6
7
8
 
 
$photo1 = param ("photo1");
 
 
{ local $/;$taille = <$photo1>; }
 
$total = int(length($taille) / 1024 ) + 1;

mon souci est que je veux egalement recupérer le contenu binaire de mon image uploadée du coup je rajoute ceci

Code :

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

1
2
3
4
 
 
@tabphoto = <$photo1>;
$contenu = (join '', @tabphoto);

nous avons donc l'ensemble suivant

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
 
$photo1 = param ("photo1");
 
@tabphoto = <$photo1>;
 
{ local $/;$taille = <$photo1>; }
 
$total = int(length($taille) / 1024 ) + 1;
 
$contenu = (join '', @tabphoto);

bien là ça ne va plus si j'ajoute les lignes

@tabphoto = <$photo1>;
$contenu = (join '', @tabphoto);

si je fais un print sur ma variable $total il me retourne rien
par contre si j'enlèvre le code ci-dessus je trouve une valeur qui est celle de la taille de l'image .. mais dans ce cas je ne peux plus recupérer la valeur binaire de mon image ...

j'ai tenté de déplacer le tableau "@tabphoto" de cette façon

Code :

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

1
2
3
4
5
6
7
8
9
 
 
$photo1 = param ("photo1");
 
{ local $/;$taille = <$photo1>; }
$total = int(length($taille) / 1024 ) + 1;
 
@tabphoto = <$photo1>; <--- je met cette ligne ici
$contenu = (join '', @tabphoto);

mais si je fais ça c'est cette fois la valeur "$contenu" qui est vide ...

j'avoue que je ne comprends ce qui se passe ??

auriez-vous une idée

Merci

[2Eurocents]

Code :

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

1
2
3
4
5
$photo1 = param ("photo1");
 
{ local $/; $contenu = <$photo1>; }
 
$total = int(length($contenu) / 1024 ) + 1;

Ceci devrait être suffisant ... non ?

$photo1 ne doit être lu qu'une seule fois (ne pas faire deux fois <$photo1>)

Si l'on est en mode slurp ($/ vide), pas besoin de join sur le résultat de la lecture qui rentre d'ailleurs dans un scalaire, et plus dans une liste.

Bonne continuation.

[vbcasimir]

effectivement c'est suffisant ...

merci bcp

[GLDavid]

Une remarque, ne serait-ce pas plus simple d'utiliser les modules de CPAN : http://search.cpan.org/~rjray/Image-Size-2.992/Size.pm

@++

[djibril]

+1

[2Eurocents]

Une remarque, ne serait-ce pas plus simple d'utiliser les modules de CPAN : http://search.cpan.org/~rjray/Image-Size-2.992/Size.pm

@++

A priori, je dirai "oui", et "non".

Le code fourni actuellement permet de connaître le "poids" de l'image, c'est à dire son volume de données.

Image::Size permet de connaître la taille de l'image mais, cette fois-ci, du point de vue géométrique.

Rien n'empêche d'utiliser Image::Size après pour d'autres traitements.

Le "poids" de l'image est cependant une donnée intéressante à plusieurs titres (sélection des images à aspirer dans un aspirateur web, calcul du volume total d'un document où d'un site, notamment pour respecter des quotas serveur, etc.).

Ne pouvant conclure sur le but poursuivi par vbcasimir, autant lui donner toutes les pistes