Discussion :

[kornichon]

Bonjour !
Je suis en débutant en Perl et je n'arrive pas à trouver d'aide sur le traitement des chaines de caractère... (expression régulière ?)

J'ai un fichier txt en entré de mon prog avec des lignes comme ça:

host('fr100tf2c4nds53','usf').
host('DT1_blc04sw02','dt1_lan').
host('MIC_TUZ-SS1100-IRODA-FA','mic_lan').

J'aimerai récupérer les données entre le "_" et le ' , pour en faire un fichier CSV, exemple :
host('DT1_blc04sw02','dt1_lan')
=>
DT1;blc04sw02
seulement pour les lignes qui contiennent DT1 et dt1_lan dans la ligne... oui je sais je sais un peu compliqué... Un dieu des expresions régulière pourrait il m'aider ??

Merci beaucoup !

[Jasmine80]

je n'arrive pas à trouver d'aide sur le traitement des chaines de caractère... (expression régulière ?)

http://www.dil.univ-mrs.fr/~chris/Perl/Regex.htm

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
17
18
19
20
#!/usr/local/bin/perl
 
use strict;
use warnings;
 
my $InFile = "P:/Perl/scripts/Files/host.txt";
open (InFile,"$InFile") or die "Can't open file\n";
my $Ligne;
 
 
while ($Ligne=<InFile>)
{
        if($Ligne=~ /(DT1)_(.*)','dt1_lan/)
        {
                print $1."\t".$2."\n";
        }       
}
 
 
close;

Jasmine,

[kornichon]

Génial Merci Jasmine pour ton aide !!!

Et en plus ça marche ! Merci encore

[Jasmine80]

De rien, si tu n'as plus de questions, n'oublie pas de clore ce sujet.
Si tu n'as que des chiffres et des lettres à récupérer tu peux remplacer le (.*) par (\w*) ça sera plus sélectif.

Code :

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

if($Ligne=~ /(DT1)_(\w*)','dt1_lan/)

Jasmine,

[kornichon]

salut,

Je me suis documenter sur les exp régulière, mais j'y arrive pas c'est trop dur... Jasmine m'a beaucoup aidée déja et la solution proposée est presque bonne, mais mon cahier des charges a évolué...
Je cherche donc a récupérer les infos suivantes (en rouge) seulement pour les lignes contenant la sous chaine dt1_lan:

host('DT1_blc04sw02','dt1_lan')
host('TOT_tototo','dt1_lan')
host('TAT_tatatata','dt1_lan')
host('fr100tf2c4nds53','usf').
host('TIC_blc04sw02','dt1_lan').
host('MIC_TUZ-SS1100-IRODA-FA','mic_lan').

La solution proposée pas Jasmine (merci encore) est presque bonne sauf que lles 3 caractères avant le "_" ne sont pas les mêmes... Quelqu'un pourrait il m'aider ?
La solution serait peut etre d'extraire le texte contenue entre les 2 premiers ' ' et ensuite de faire un split avec le caractère _ comme séparateur nan ?

merci par avance

[Jedai]

Code :

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

if($Ligne=~ /(\w{3})_(\w*)','dt1_lan/)

Essaie tout de même d'apprendre les regexs, ce n'est pas si dur...

--
Jedaï

[Woufeil]

Pour info, après le code de jedai, les 3 lettres en majuscule seront dans $1 et ce qui est après le tiret sera dans $2.

Comme dis Jedai, essaye d'apprendre. Il y a de très bon cours, notamment dans le cours de Sylvain Lhullier. La FAQ Perl contient aussi pas mal d'infos...

[kornichon]

Ok merci beaucoup !
J'avais pas vu la possibilité de sélectionner les caractères précèdents avec les accolades.

Merci beaucoup !

[glouffy6]

question par rapport au regex:

est-ce que dans le meme cason peut également faire

if($Ligne=~ /(\w+)_(\w*)','dt1_lan/) ??

[Jedai]

question par rapport au regex:

est-ce que dans le meme cason peut également faire

if($Ligne=~ /(\w+)_(\w*)','dt1_lan/) ??

Oui, mais on n'impose plus que le nombre de caractères reconnus avant le "_" fasse 3 caractères, simplement plus d'un. Nous ne pouvons pas juger de ce qui te convient aussi bien que toi, car nous n'avons pas les mêmes éléments que toi.

--
Jedaï