Bonjour j'ai une erreur avec une fonction d'un script perl me renvoie les erreurs suivantes
voici le code[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.
Je comprend vraiment pas ou est le problème
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; }
merci
Partager