Discussion :

[Gad29]

Bonjours a tous.
Mon objectif et d'extraire les adresse et nom de reseaux conetnue dans un fichier dns.
J'utilise donc des expressions régulière mais cela fait 3 semaine au plus que j'ais découvert le perl et j'ais beaucoup de mal avec la syntaxe de ces expression(je ne suis pas un bébé unix )

Voici un exemple de ligne que j'aimerais bien traiter :

;*** 172.21.X.X reseau1
;*** 172.21.250.0 wifi1

Voici mon code pour filtrer le fichier

Code :

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

1
2
3
 
#si la ligne est du type : '<;***---2espaces ou plus---chaîne de caractére---1 a 4 espaces-chaines de caractére>
if($lines =~ /[;***]+\s{2,}+[a-zA-Z0-9]+\s{1,4}+[a-zA-Z0-9]/)

Je veut ensuite mettre les deux chaines adresse et nom de reseau dans un fichier et séparer les deux par un ;

Code :

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

1
2
3
 
#on retire les espaces et les ;*** et on remplace l'espace entre les chaînes de caractére par ;
$lines=~ /[a-zA-Z0-9^;]+[;]+[a-zA-Z0-9]/g;

A l'execution j'ai droit a un :
Nested quantifiers in regex; marked by <-- HERE in m/[;***]+\s{2,}+ <-- HERE [a-zA-Z0-9^;]+\s{1,4}+[a-zA-Z0-9^;]/ at DNS_Analyser.network.pl line 12.

Merci d'avance !

[aikinhdo]

Bonjour,

Il y a des caracteres spéciaux que tu dois proteger, je n'ai pas la liste en tete, mais les caracteres * \ ( ) {} doivent etre proteger.

Tu pourrais faire quelque chose comme ca ..

Code :

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

1
2
3
4
5
 
 
     # Tu cherches ; suivi de 3 étoiles, suivi 1 ou plus d'espace, tu mémorises l'adresse ip, suivi d'un espace suivi du réseau.
 
      if($lines =~ /;\*\*\*\s+(.+)\s(.+)/ )

[Gad29]

Merci de la rapidité de ta reponse.
Tout d'abord ta proposition fonctionne correctement
A l'execution le filtrage a l'aire d ebien se faire mais j'ais encore l'écriture ds le fichier a résoudre. Je souhaite supprimer l'espace entre les 2 chaines pour le remplacer par un ;
je pensait mettre :

Code :

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

1
2
 
$lines=~ /(.+)\;(.+)/;

Sinon pourrait tu me précier ce que signifit " (.+) " dans l'expression réguliére ?
Cela corespond a une chaine de caractére ? au même titre que [a-zA-Z0-9] ?

[aikinhdo]

Le . dans l'expression (.+) cela signifie cherche un caractere quelconque 1 fois ou plus.

Le point ce n'est pas tout à fait comme \w ou [0-9a-zA-Z] car w c'est pour word en anglais, alors que le point peut cherche des caracteres quelconque qui inclure aussi les caracteres [0-9a-zA-Z].

Pour le mettre dans un fichier il faut que tu fasses un open sur un handle

Code :

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

1
2
3
4
5
6
7
 
 
open(FIC,">fichier.txt") or die "Erreur d'ouverture fichier" ;
 
print (FIC "$adresse;$nom" ) ; 
 
close (FIC) ;

Tu devrais quand meme lire les cours et FAQ avant.

[Jedai]

Tu sembles faire un grand nombre de confusions et d'approximations... Tu utilises des classes de caractères ( '[]' ) là où tu devrais utiliser des litérals, tu sembles utiliser un match regex là où tu veux faire une substitution... Tu protèges des caractères qui n'ont pas lieu de l'être (par exemple ';')...

Grosso-modo, ce que tu veux faire est probablement, de ce que j'en ai compris :

Code Perl :

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

$line =~ s/^;\*{3}\s+([\w\.]+)\s+(\w+)\s*$/$1;$2/;

Mais essaie vraiment de relire ton cours, ou la FAQ pour t'éclaircir les idées.

--
Jedaï

[Gad29]

Merci pour ces reponses.
J'ais apprit le perl sur le tas seul j'ais lu divers cours sur in ternet mais je n'ais pas réussi a comprendre le fonctionement des expressions avec les cours que j'avais trouvé.
En tout cas vos expliquation et exemple m'ont bien éclaircit les idées en les complétant avec une lecture de la FAQ j'aurais comprit.

Merci d'avoir prit le temp d'expliquer ca aun débutant.