Discussion :

[Gad29]

Bonjour ,

J'ais extrait d'un fichier dns les adresse des reseau (elles étaient en commentaire) malheuresement certaines sont de la forme 127.25.x.x 132.56.X.y ou encore 127.0.2.x et je voudrais les avoir toutes sous la forme 125.32.0.0.
Je veut donc remplacer les lettres contenues dans les adresse par des zero :
J'ai efféctué le code suivant :

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
$i=0;
while($lines = <FICH>){
#si la ligne est du type : '<;*** - 2 ou + espaces - chaîne de caractére - 1 ou + espaces - chaines de caractére>
	if($lines =~ /;\*\*\*\s{2,}(.+?)\s+(.+)/)
	{
		#On memorise les variables temporaire
		$adresse=$1;
		$nom=$2;
 
		#Test si l'adresse est du type 127.2.x.x pour le transformer en 127.2.0.0
		if($adresse=~/\w.\w.[a-z].[a-z]/)
		{
		$adresse=~s/[a-z].[a-z]/0.0/g; #Remplacement des x.x par 0.0
		}
		#on retire les espaces et les ;*** et on inscrit le resultat deu traitemant dans le fichier
		print(FICHOUT "$adresse;$nom\n");
		$i++; #Incrémentation du nombre de reseau trouvé dans le fichier
	}
 
}

Mais il ne fonctionne que pour la première ligne du fichier alors que la modif est située dans la boucle qui parcourt le fichier. Je ne voit pas pourquoi ? ?
Pourriez jeté un petit coup d'oeil rapide , quand on a un point de vu exterieur c'est plus claire et facile.Ce n'est pas évident de l'avoir sur ses propre travaux.

Je continue de reflechir au probléme

Merci d'avance

[aikinhdo]

Essaie ca,

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
 
my $adresse = "111.22.33.44";
 
if ($adresse=~/\d+\.\d+\...*/)
{
        $adresse =~ s/(\d+)\.(\d+)\..*/$1.$2.0.0/;
}
print "$adresse\n" ;
 
#Affiche 111.222.0.0

[Gad29]

Cela marche parfaitement je n'avais pas pensé a sauvegarder les premier termes de l'adresse dans les variables temporaires.
Je ne comprend pas pourquoi les lignes que j'avais écrite ne fonctionne que pour la premiére ligne du fichier ? ?
A chaque passage dans la boucle la variable adresse prendera une nouvelle valeur c'est pour cela que je voyais pas pourquoi sauvegarder certains termes.

Merci de me faire partager tes competences

[Jedai]

Cela marche parfaitement je n'avais pas pensé a sauvegarder les premier termes de l'adresse dans les variables temporaires.

Que veux tu dire ? Je ne touche même pas aux premiers termes de l'adresse.

Je ne comprend pas pourquoi les lignes que j'avais écrite ne fonctionne que pour la premiére ligne du fichier ? ?
A chaque passage dans la boucle la variable adresse prendera une nouvelle valeur c'est pour cela que je voyais pas pourquoi sauvegarder certains termes.

Merci de me faire partager tes competences

C'est très probablement parce que ta première ligne correspondait par miracle à ta regex et les autres non, si tu mélangeais les lignes, ce ne serait plus la première qui serait modifiée, mais toujours la même.

--
Jedaï

[Gad29]

Encore un fois votre aide m'as étée précieuse merci encore

[Jedai]

J'ai efféctué le code suivant :

Code :

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

1
2
 
		if($adresse=~/\w.\w.[a-z].[a-z]/)

Je résume donc : une lettre ou un chiffre suivie par "n'importe quoi" (le point est un caractère particulier pour les regex), suivie par une lettre ou un chiffre suivie par "n'importe quoi", suivie par une lettre suivie par "n'importe quoi", suivie par une lettre suivie par "n'importe quoi".

Pas tout à fait une adresse IP ça...

Par ailleurs, il est inutile de faire un test puis de faire la substitution, alors que la substitution n'aura pas lieu de toute façon si on la met directement et que la chaîne ne correspond pas au test :

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
$i=0;
while($lines = <FICH>){
#si la ligne est du type : '<;*** - 2 ou + espaces - chaîne de caractére - 1 ou + espaces - chaines de caractére>
	if($lines =~ /;\*\*\*\s{2,}(.+?)\s+(.+)/)
	{
		#On memorise les variables temporaire
		$adresse=$1;
		$nom=$2;
 
		$adresse =~ s/[a-z]+\.[a-z]+$/0.0/i;
		$adresse =~ s/[a-z]+$/0/i;
		#on retire les espaces et les ;*** et on inscrit le resultat deu traitemant dans le fichier
		print(FICHOUT "$adresse;$nom\n");
		$i++; #Incrémentation du nombre de reseau trouvé dans le fichier
	}
 
}

--
Jedaï