problème avec le recupération de la taille d'une image
bonjour
j'ai le script suivant qui me permet d'obtenir la taille en ko d'une image que
je upload
Code:
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:
1 2 3 4
|
@tabphoto = <$photo1>;
$contenu = (join '', @tabphoto); |
nous avons donc l'ensemble suivant
Code:
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
Citation:
@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:
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
Re: problème avec le recupération de la taille d'une image
Code:
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.