Discussion :

[cryptorchild]

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 :

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

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

mais sa domme rien

[2Eurocents]

j'ai tente l'approche suivante

Code :

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

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

mais sa domme rien

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

Code :

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

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 :

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

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 :

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

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

[cryptorchild]

En fait je cherche comment remplacé

Code :

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

next if defined $vus{$url};

par l'équivalant mais avec un tableau

Dans les fait je veut utiliser cette fonction

Code :

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

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

[cryptorchild]

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

Code :

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

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

et

Code :

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

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

et sa ne marche pas

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

[2Eurocents]

Si j'ai bien compris la question, un :

Code :

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

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

devrait suffire.

[cryptorchild]

Merci 2Eurocents .