Coup de pouce sur expression reguliere

Bonjour a tous,
je coince sur l'expression regulier suivante:

Code:

---

1 2 3 4 5 6 7 8 9 10

#!/usr/bin/perl use strict; my $type="enterprises.9.1.503"; my $num_type;   if (($num_type)=(($type)=~/\.(\d{3})/)) { print $num_type; }

---

Je souhaiterais afficher juste le chiffre 503 !!
Merci d avance Jules

Mais ... quel est le problème ???

Chez moi, cela affiche 503 ...

Je ne l'aurai pas codé ainsi, mais il y a toujours plus d'une façon de le faire ;)

C'est normal je suis un boulet !!!!!! et je l asume toute mes excuses n ayant pas mis de suat de ligne j ai pas vu qu il collait a mon prompt ! toutes mes excuses ! Mais quelle serait ta methode je cherche toujours a apprendre et a penser differemment.
Jules un newbee forever

Citation:

---

Envoyé par calimero642

... Mais quelle serait ta methode je cherche toujours a apprendre et a penser differemment.

---

Ma méthode dépendrait étroitement de la spécification du format de la chaine de version ...

Par exemple, en supposant que le matricule à récupérer en est la partie terminale, que je n'en connait pas le nombre de chiffres et qu'il est séparé des autres numéros de versions par un "truc" qui n'est pas un chiffre, je ferais :

Code:

---

if (($num_type)=($type =~ /\D(\d+)$/))

---

Merci c est nickel et ta solution est plus robuste en cas ou les chiffres sont different de 3 !!!
Merci
Jules

J'ai une autre question sur une expression réguliere, je voudrais placer dans la variable $bonne_ligne une ligne complete d'un fichier contenant { ciscoProducts 564 }:

Code:

---

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

#!/usr/bin/perl use strict; my $num_cisco; my $bonne_ligne; my $numero=564; my $Ligne_Fichier; open(Fichier_mib_cisco,"<CISCO-PRODUCTS-MIB.my") || die ("Vérifiez la présence du fichier resultat.txt ou son chemin à la ligne :\n $! "); while ($Ligne_Fichier = <Fichier_mib_cisco> ) { if ( ($bonne_ligne)= (($Ligne_Fichier) =~/\{\sciscoProducts\s$numero\s\}/ )) { print "\n$bonne_ligne"; }   }

---

Voici la ligne complete
catalyst356048PS OBJECT IDENTIFIER ::= { ciscoProducts 564 } -- Catalyst 3750 48 10/100 ports with In-Line Power + 4

Merci d avacnce pour un coup de pouce.
Jules[/code]

Encore une fois, penser "spécification de format" ...

Ta spécification, c'est "toute la ligne contenant { ciscoProducts 564 }".

On peut le traduire par "tous les caractères, depuis le début, avec aussi une correspondance de { ciscoProducts 564 } et tous les caractères qui suivent, jusqu'à la fin.

Ca donne : m/^(.*{ ciscoProducts 564 }.*)$/

Et finalement, ça n'a aucun sens car s'il s'agit de récupérer une variable complète contenant ce motif, pourquoi procéder à une extraction mémorisante ... pourquoi ne pas faire une simple affectation de variable sur un succès de match ?

Code:

---

$bonne_ligne = $Ligne_Fichier if ( $Ligne_Fichier =~ m/\{\sciscoProducts\s$numero\s\}/ );

---

Ca devrait pouvoir être marqué [Résolu], alors ;)

Merci pour ton coup de pouce mais pourquoi si j'incorpore une variable cela ne fonctionne plus ?
Deuxieme question c'est que ta solution fonctionnait mais elle bouclais elle me sortait la reponse autant de fois qu il y a de ligne dans le fichier ? Pour quelle raison ?
voici mon code

Code:

---

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

#!/usr/bin/perl use strict; my $num_cisco; my $bonne_ligne; my $numero="564"; my $Ligne_Fichier; open(Fichier_mib_cisco,"<CISCO-PRODUCTS-MIB.my") || die ("Vérifiez la présence du fichier resultat.txt ou son chemin à la ligne :\n $! "); while ($Ligne_Fichier = <Fichier_mib_cisco>) { $bonne_ligne = $Ligne_Fichier if ( $Ligne_Fichier =~ m/^(.*{ ciscoProducts.$numero}.*)$/ ); # if ( ($bonne_ligne)= (($Ligne_Fichier) =~/\{\sciscoProducts\s$numero\s\}/ )) # { print "\n$bonne_ligne"; #} }

---

Merci d avance Jules

Euh excuses j etais pas assez precis,, j'ai incorporé une variable dans la regle que tu m a donné .
Et la c est le drame !

C est bon j ai trouve j avais place un espace dc il trouvais plus l expression c est reglé !!!
Merci