utilisation de l'attribut attr_imgsize dU MODULE Image

Bonjour

j'ai installé le module Image-Size et je voudrais obtenir la taille de mon image que je upload sans que je n'ai à créer un fichier dans l'immediat ..

j'ai commencé par un test pour vérifier que le module est bien installé voici le premier bout de code

Code:

---

1 2 3 4 5 6 7 8

use Image::Size;   my $photo1 = param ("photo1");   my ($x , $y , $id) = imgsize($photo1); print "Content-type: text/html\n\n"; print $x ;

---

j'obtiens la taille de l'image uploadé je l'ai vérifié pas de souci

maintenant je voudrais connaitre sa taille en Ko ou Mo bref je voulais utiliser le'attribut attr_imgsize

j'ai trouvé un exemple qui l'exploitait de cette façon

Code:

---

1 2 3

@attrs = attr_imgsize("image.gif");

---

j'ai donc fait la même chose mais j'ai une erreur de compilation ...

je voudrais savoir si il est necessaire que le fichier existe sur le serveur ou s'agit-il d'une erreur de code ?

Merci

ahh bon j'ai trouvé mon erreur j'avais mal écris la délcaration

avant

Code:

---

1 2	use Image::Size (attr_imgsize);

---

aprés

Code:

---

1 2 3

use Image::Size qw(attr_imgsize);

---

par contre cela me donne les dimensions (hauteur, largeur) moi je voudrais la taille en octet ...

Merci

Salut

Avec la FAQ, tu aurais vu la commande stat (la même que sous Unix) qui te donne la taille d'un fichier en octets.

@++

Dans le premier post :

Citation:

---

Envoyé par vbcasimir

j'obtiens la taille de l'image uploadé je l'ai vérifié pas de souci

---

Dans le second post :

Citation:

---

Envoyé par vbcasimir

par contre cela me donne les dimensions (hauteur, largeur) moi je voudrais la taille en octet ...

---

Quelle taille obtiens-tu (celle que tu as vérfié) ? Dès le premier post, ce sont déjà des dimensions ?

Quelle taille veux-tu ?
- La taille du fichier ?
- La taille "mémoire" du tampon vidéo correspondant (i.e. le produit des dimensions spatiales par la dimension chromatique) ?
- Autre chose ?

As-tu essayé en regardant la longueur de ton scalaire (fonction length) ?

Quand je parle de taille j'entends le nombre d'octet que représente l'image et non ses dimensions que j'ai obtenu avec la fonction image_size ...

pour repondre à GLDavid je dois préciser que je upload l'image et que je traite les données de cette image à partir d'une variable je ne crée pas de fichier physique sur le serveur donc je ne peux utiliser de commande linux ..

Citation:

---

Envoyé par vbcasimir

pour repondre à GLDavid je dois préciser que je upload l'image et que je traite les données de cette image à partir d'une variable je ne crée pas de fichier physique sur le serveur donc je ne peux utiliser de commande linux ..

---

Donc, un length ($image) , comme je l'ai dit à la fin de mon autre post, ça peut avoir du sens ;)

en utilisant

Code:

---

length($images)

---

on calcule la longueur du nom du fichier de l'image que je upload ...
Ce n'est pas ce que je veux je voudrais obtenir sa taille en octet ... et non pas ses dimensions (hauteur, largeur)

j'ai aussi fait

Code:

---

1 2 3 4 5 6

my $taille = <$images>;   print length($taille);

---

mais j'obtiens pas la taille de mon fichier la valeur obtenue n'est pas la même ...

Et en faisant :

Code:

---

1 2 3 4

my $taille; { local $/; $taille = <$images>; } print length($taille);

---

(tu ouvres bien ton fichier en mode binaire ?)
--
Jedaï

bien avec ce code je retrouve la taille de mon image ...

je voudrais comprendre ce que ça fait d'ajouter local $/ et pourquoi entre accolade ? qu'est ce que ça traduit ?

Code:

---

1 2 3 4 5

my $taille; { local $/; $taille = <$images>; } print length($taille);

---

Merci[/b]

En fait quand tu utilises <> en contexte scalaire, tu lis le fichier de ta position courante à la première occurrence du délimiteur $/ ( $INPUT_RECORD_SEPARATOR avec le module "English", ou $RS). Par défaut, $/ est positionné à "\n" ce qui permet de lire ligne à ligne. Mais évidemment dans un fichier binaire ce comportement est inutile et mauvais... Dans ton cas particulier, ton problème est de lire l'ensemble du fichier, une implémentation naïve serait :
NE FAITES PAS CA

Code:

---

1 2 3

my @content = <FILE>; my $content = join '', @content;

---

$content contient tout le fichier après cela, mais tu as demandé à Perl de découper le fichier, puis tu as jeté tout son boulot pour récupérer les données brutes, or ni le découpage du fichier (surtout) ni le join() ne sont gratuits : c'est du gaspillage !!
$/ a quelques valeurs "particulières" qui affecte le comportement de <> plus radicalement que juste un changement de caractère délimiteur, tu peux en trouver la liste dans la doc, ici ce qui nous intéresse, c'est la valeur "undef" qui désactive tout simplement le découpage du fichier (on dit qu'on slurp le fichier).
"local $var = machin;" est une déclaration qui donne à $var (une variable globale) une valeur particulière pour la durée d'un bloc puis restaure sa valeur initiale.
local $var est équivalent à local $var = undef.
Cet idiôme restreint donc les effets de bord tout en garantissant une lecture rapide de l'intégralité du fichier :

Code:

---

1 2 3

my $content; { local $/; $content = <FILE>; }

---

(pour être encore plus rapide, dans l'ordre on peut utiliser read() ou sysread(), mais leur mise en place est plus complexe et le gain faible si on ne lit pas des centaines de gros fichiers à la suite)

--
Jedaï

merci pour ces explications qui me permette de mieux comprendre ...

Merci beaucoup :wink: