Discussion :

[vodevil]

Bonjour j'ai une erreur avec une fonction d'un script perl me renvoie les erreurs suivantes

[Fri Jan 20 20:41:54 2006] IMAGE~1.PL: Useless use of private variable in void context at C:\DOCUME~1\Vodevil\Bureau\IMAGE~1.PL line 322.
[Fri Jan 20 20:41:54 2006] IMAGE~1.PL: Useless use of private variable in void context at C:\DOCUME~1\Vodevil\Bureau\IMAGE~1.PL line 322.

voici le code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
sub get_pictures {
  foreach my $zf (@_) {
   my $r = HTTP::Request->new('GET', $zf);
   my $s = $ua->request($r);
    if ($s->is_success) {
     my $p = $s->content;
      my ($x, $y) = imgsize(\$p);
      if(($x=>29) && ($x<=2560) && ($y=>29) && ($y<=1024)) {
        push(@psh, $zf);
     }
    }
  }
  return @psh;
}

Je comprend vraiment pas ou est le problème

merci

[Jedai]

Si tu nous disais exactement quelle ligne est la 322 ça aiderait sans doute. Par ailleurs il me semble qu'il manque la déclaration de "@psh" dans ta fonction. Et finalement ceci est un warning, pas une erreur (autrement dit ça ne t'empêche pas de compiler et d'exécuter).

--
Jedaï

[vodevil]

Désolé voici la ligne qui pose problème

Code :

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

if(($x=>29) && ($x<=2560) && ($y=>29) && ($y<=1024))

Pour @psh il est déclaré au début de mon script

[Jedai]

Désolé voici la ligne qui pose problème

Code :

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

if(($x=>29) && ($x<=2560) && ($y=>29) && ($y<=1024))

Le "=>" est équivalent à "," en Perl, c'est du sucre syntaxique pour les hashs. Tu voulais sans doute mettre ">=" (et tant que tu y est, je serais toi je mettrais plutôt des "<" et ">", c'est plus lisible).

Pour @psh il est déclaré au début de mon script

Tu es bien conscient que @psh n'est pas vidé entre les appels à la fonction ? Pourquoi le renvoies-tu dans ce cas ?

--
Jedaï