Discussion :

[calimero642]

Bonjour,
je souhaiterais recuperer la premiere partie d'une chaine qui peut contenir des chifres ou des lettres sans savoir leur position ou la quantite !


$bonne_partie = catalyst356048PS OBJECT IDENTIFIER ::= { ciscoProducts 564 } -- Catalyst 3750 48 10/100 ports with In-Line Power + 4 Gigabit SFP ports fixed configuration Layer 2/Layer 3 Ethernet Switch.(SFP Small Formfactor Pluggable)

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
 
#!/usr/bin/perl
use strict;
my $num_cisco;
my $bonne_ligne;
my $numero="564";
my $Ligne_Fichier;
my $bonne_partie;
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 }.*)$/) ;
}
$bonne_partie = $bonne_ligne if ($bonne_ligne =~/^(\S)/);
print "\n $bonne_partie";

Merci d'avance Jules

[Mr6]

qu'appelles-tu "la première partie" de ta chaine ? A quoi correspond-elle dans ton exemple ?

[calimero642]

Oui c est vrai j ai pas ete assez explicite


catalyst356048PS

Merci

[Mr6]

Code :

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

1
2
 
($bonne_chaine,@a) = split /\s/,$bonne_partie;

ca t'irait ca ?

[2Eurocents]

C'est à dire, si je comprends bien : l'ensemble de tous les premiers "caractères constitutifs de mot".

Or, il existe une classe de caractères pour les "caractères constitutifs de mot" : \w

Un bon motif pourrait donc être :

Code :

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

($partie) = ($tout =~ m/(\w*)/);

Edit: re-grillé par Mr6, dont le split sur un caractère séparateur est aussi pertinent
Il y a toujours plus d'une façon de le faire

[calimero642]

Je t avouerais que je ne comprends pas l expression, pourrais tu me la detailler stp ?
Merci
Jules un newbee qui ve ne plus en etre un !!!

[Mr6]

celà dit j'aime beaucoup ta recherche de motif 2Eurocents, mon split étant une methode de feignant vu que je ne suis pas assez rôdé sur les regex

[2Eurocents]

Code :

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

($partie) = ($tout =~ m/^(\w*)/);

Pour être rigoureux, il manquait le marqueur de début de chaine (^).

La base de mon motif, c'est : \w - cette classe de caractères matche tout caractère de "mot". C'est un peu magique et très pratique.

On quantifie \w par * (ou par +, pour un minimum de 1) afin d'avoir tout un mot (tous les caractères consécutifs du mot).

On met des parenthèses autour du tout pour mémoriser ce qui matche ...

On rajoute le marqueur de début que j'avais oublié ...

On fait le match et on récupère ce qui a matché ... 8)

[calimero642]

Merci ca fonctionne mais avant de passer ce thread en resolu,
pourrais je avoir qq explication surce code svp:

Code :

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

($bonne_chaine,@a) = split /\s/,$bonne_partie;

Merci Jules

[Mr6]

bah je sépare ta chaine par rapport aux caractères de séparation (\s regrouppant \t, \n, etc...), je mets la 1ère occurence dans $bonne_chaine et le reste dans @a, c'est tout !

[Jedai]

La base de mon motif, c'est : \w - cette classe de caractères matche tout caractère de "mot". C'est un peu magique et très pratique.

Le gros avantage de '\w', c'est qu'il s'adapte à la locale. Autrement dit, si tu mets 'use locale;' au début du script, '\w' reconnaîtra les caractères accentués par exemple.

--
Jedaï