Discussion :

[cryptorchild]

J'ai un probleme avec un if(){} , n'etant pas très doué en explication voila mon 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
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";
 
      }
    }
  }
}

Mon problème vient de

if($x = 1..2560 and $y = 1..1024) { ... }

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 marche .

Merci de votre aide

[ravachol]

Si je comprends bien c'est pour vérifier la taille d'une image, donc à vrai dire je comprends pas pourquoi tu ne ferais pas plutôt comme ca :

Code :

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

1
2
3
if(($x=>1) && ($x<=2560) && ($y=>1) && ($y<=1024)) {
	 print "$zf\n";
}

Par ailleurs, si tu souhaites vraiment que x et y soient des valeurs entières (ce qui pourrait expliquer pourquoi tu as mis les valeurs dans une liste), tu peux rajouter ce test :

Code :

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

1
2
3
if(($x == int($x)) && ($y == int($y))) {
	...
}

Voilà cependant, si tu souhaites vraiment utiliser une liste de la forme (1..2560), je peux pas trop te dire (je suis newb en perl ) mais il me semble que tu peux rechercher un element avec grep()
En esperant que ça t'auras avancé un peu

[cryptorchild]

Merci ravachol