Discussion :

[SkyDev]

Bonjour à tous,

J'ai essayé de comprendre l'expression régulière mais en vain, j'y n'arrive pas.

Je me demande comment extraire l'adresse du hostname, par exemple:

Code :

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

1
2
3
$variable_snmp = "3750X.mon.domaine.reseaux.fr";
??????
$resultat_host = "3750X";

En clair, je voudrais prendre le premier mot avant le point.

Merci de m'aider.

Je vous souhaite une très bonne we.

[Arioch]

Bonjour,

en étant trivial par rapport à ton exemple :

Code :

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

1
2
3
4
5
$variable_snmp = "3750X.mon.domaine.reseaux.fr";
 
$resultat_host = $1 if ($variable_snmp =~ /^(.[^.]+)\..+/);
 
print "$resultat_host\n";

Mon expression régulière repose sur la recherche en début de chaîne de toute suite de caractère ne contenant pas le caractère . suivie d'un . justement

Autre méthode :

Code :

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

1
2
3
4
5
$variable_snmp = "3750X.mon.domaine.reseaux.fr";
 
$resultat_host = shift((split(/\./, $variable_snmp)));
 
print "$resultat_host\n";

[SkyDev]

Merci beaucoup, et ça marche.

[2Eurocents]

Bonjour,

Je me demande comment extraire l'adresse du hostname, par exemple:

Code :

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

1
2
3
$variable_snmp = "3750X.mon.domaine.reseaux.fr";
??????
$resultat_host = "3750X";

En clair, je voudrais prendre le premier mot avant le point.

Le ., on l'exprime "\." car il a sinon une signification particulière.

Un mot, c'est constitué de caractères de mots exprimés "\w".
Si l'on en veut plusieurs (caractères), mais au moins un, il faut noter "\w+".
Si l'on veut éviter de prendre le maximum de caractères, il faut préciser au + de s'arrêter dès que possible (selon la suite du motif) : "\w+?".
Le mot avant un point, c'est donc "\w+?\.".

Eventuellement, on peut préciser que l'on prend tout ça à partir du début de chaine : "^\w+?\." mais ça me paraît superflu.

On ajoute des parenthèses pour mémoriser ce que l'on veut (le mot, sans le point) : "(\w+?)\.".

Et on met tout ça en musique :

Code :

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

1
2
$variable_snmp = "3750X.mon.domaine.reseaux.fr";
($resultat_host) = ($variable_snmp =~ m/(\w+?)\./);

Je n'ai pas testé, mais on doit être proche du but.

[Edit]
Je suis trop lent ... et Arioch a une bonne solution aussi. En Perl, il y a toujours plus d'une façon de le faire.
[/Edit]

[Edit 2]
Testé et fonctionnel !
[/Edit]

[Arioch]

Par contre ma méthode avec split fonctionne pas (la 2è)

[2Eurocents]

Par contre ma méthode avec split fonctionne pas (la 2è)

Essaie comme ça :

Code :

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

1
2
3
4
5
$variable_snmp = "3750X.mon.domaine.reseaux.fr";
 
$resultat_host = (split(/\./, $variable_snmp))[0];
 
print "$resultat_host\n";

[Arioch]

Merci du tuyau

Par contre, syntaxiquement parlant, mon approche aurait dû fonctionner, me gourre-je ?

shift extrait un élément d'une liste
la liste ici est composé de tous les éléments de la chaine splités via le .

Je pensais (bêtement) qu'on pouvait assigner à notre variable réceptrice le résultat combiné du shift de la liste splitée. On restait dans le contexte scalaire.

Bizarre.

[SkyDev]

Encore une chose, si j'ai envie d'extraire le nom d'un hostname au milieu du texte d'une variable comme par exemple:

Code :

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

1
2
3
$service_description = "GigabitEthernet1/8 Link to 3750X_Gi1/0/2";
???
$resultat = "3750X";

Encore merci pour votre aide, et pouquoi pas intégrer ces deux exemples dans le FAQ du perl?