Coup de pouce sur expression reguliere

**calimero642** · 17/03/2006, 10h32

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

Code :

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

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

**2Eurocents** · 17/03/2006, 10h37

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

**calimero642** · 17/03/2006, 10h40

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

**2Eurocents** · 17/03/2006, 10h51

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 :

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

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

**calimero642** · 17/03/2006, 10h54

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

**calimero642** · 17/03/2006, 11h55

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 :

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

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]

**2Eurocents** · 17/03/2006, 12h03

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 :

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

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

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

**calimero642** · 17/03/2006, 12h27

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 :

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

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