Probleme avec grep

J'ai encore un probleme avec grep j'ai un tableau @site dont je souhaite éliminer les valeurs déjà traité
j'ai tente l'approche suivante

Code:

---

@site = grep( { defined $urls{$_} } @site);

---

mais sa domme rien :cry:

Citation:

---

Envoyé par cryptorchild

j'ai tente l'approche suivante

Code:

---

@site = grep( { defined $urls{$_} } @site);

---

mais sa domme rien :cry:

---

C'est pourtant une approche correcte ... à condition que %url soit préalablement rempli :

Code:

---

1 2 3 4 5 6 7

my @l=qw (a b c e h); my %h=qw (a 1 c 1 e 1);   @nl=grep ( { defined ($h{$_}) } @l );   $,=","; print @nl;'

---

Affiche bien a,c,e comme on peut s'y attendre ...

Maintenant, toi tu semble souhaiter éliminer ce qui est déjà dans le hash. Il faut donc inverser ta condition :

Code:

---

1 2 3 4 5 6 7

my @l=qw (a b c e h); my %h=qw (a 1 c 1 e 1);   @nl=grep ( { not defined ($h{$_}) } @l );   $,=","; print @nl;'

---

Affiche alors b,h.

Il te faut donc faire :

Code:

---

@site = grep( { not defined $urls{$_} } @site);

---

En fait je cherche comment remplacé

Code:

---

next if defined $vus{$url};

---

par l'équivalant mais avec un tableau

Dans les fait je veut utiliser cette fonction

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

sub exist {   my $url = shift; my $find; my $sth = $dbh->prepare(' SELECT count(site_url) FROM sites WHERE site_url="$url" '); $sth->execute; $sth->bind_columns(\$find); $sth->fetch(); $sth->finish();   #0 = introuvable, 1 = trouvé return $find }

---

et faire un map ou un grep pour supprimer tout les élément ayant $_ == 1

Me revoila pour cabler le grep() avec la fonction sql j'ai fait cela

Code:

---

@site = grep( {$_ = exist($_); ($_ == 0) } @site);

---

et

Code:

---

@site = grep( { ($_ = exist($_)) not ($_ == 0) } @site);

---

et sa ne marche pas :evil:

Je galère vraiment la help please !!!!!

Si j'ai bien compris la question, un :

Code:

---

@site = grep( { (exist($_) == 0) } @site);

---

devrait suffire.

Merci 2Eurocents :wink: .