Discussion :

[aindoula]

Bonjour ,

Voilà mon problème si quelqu'un peut m'aider à le resoudre :

Code :

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

1
2
3
4
5
 
#je recupere une liste de serveur en interrogeant une base de donnes
$serveur = $dbh->selectall_arrayref(....);
#je recupère le nom par 
foreach $host ( @$serveur ) { $host->{name} =~ s/\s.*$//;}

Comment puis-je faire pour enlever du tableau d'adresses @$serveur les host
qui ont un nom donnés ?
Quelque soit la méthode, j'ai toujours une réference au host quand je reparcours la tableau @$serveur.

Merci.

[EvilCoyote]

Bonjour,

A ce que je vois et si je comprend bien( çà c'est moins sûr ) , c'est normal que tu gardes une référence dans ton tableau : tu substitues le contenu de la variable $host->{name} en la remplaçant par une chaine vide, mais je ne vois pas ou tu indiques que tu veux detruire l'élément du tableau.

J'essayerai quelque chose du style: vérifier par un test que l'on match la regexp (mais ne pas changer le contenu) et essayer de detruire l'élément s'il y a correspondance :

Code :

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

1
2
3
4
5
 
if( $host->{name} =~ m/\s.*$/ )
{
   delete  @serveur{$host} ;
}

mais je t'avoue je ne suis pas sûr de moi sur ce coup là. En attendant que quelqu'un de plus compétent vienne me corriger.

[Philou67430]

Si je comprends bien, @$serveur contient des "hash" (structure) dont un attribut est le nom.
Tu souhaites supprimer du tableau @$serveur les éléments dont le nom de host répond à une expression régulière (ou toute autre condition).

Une manière de faire est d'utiliser grep :

Code :

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

@$serveur = grep $_->{nom} !~ /$host_a_supprimer/, @$serveur;

[aindoula]

Ok, c'est super ca marche
Je connaissais pas grep sous perl ....