J'ai un probleme avec un if(){} , n'etant pas très doué en explication voila mon code
Mon problème vient de
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15 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 = 1..2560 and $y = 1..1024) { print "$zf\n"; } } } }qui ne marche pas , perl en renvoie pas d'erreur mais c'est faut car le print() n'est jamais effectué alors que sa if beh sa marcheif($x = 1..2560 and $y = 1..1024) { ... }.
Merci de votre aide
Partager