Discussion :

[shad797]

Bonjour à tous,

voici mon problème j'ai deux fichiers, l'un est compose de ce si "info1+BAUER+Romain+rbauer+Xgum9Th7p" (il y a +/-50ligne comme sa)
et l'autre +/- la même chose
"Gregory*CRANSFELD*gcransfe*ocP2rPfv6*a ajouter dans le groupe info1"

dans le cas du 1er fichier j'arrive très bien à extraire la chaine et à mettre les différents mots dans des variable et a les afficher

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
21
22
23
24
25
26
27
28
29
30
#! /usr/bin/perl
use strict; 
 
my $prenom; 
my $nom; 
my $groupe;
my $pass;
my $login;
my $erreur;
 
open (FHANDLE, "<liste-user2.txt") or die "Fichier non trouve \n" ;
 
$erreur=0;
 
while (<FHANDLE>)
{
	chomp;
 
	if($_ !="#")
	{		
		# groupe+NOM+prenom+login+pass
		# prenom*NOM*login*pass*groupe
		if ( $_ =~ /^\s*(.*)[+](.*)[+](.*)[+](.*)[+](.*)$/)
		{			
			print("$1*$2*$3*$4*$5\n");
 
		}
	}
}
close (FHANDLE);

par contre pour le 2e fichier j'ai juste remplacé dans mon code les "+" par des "*"

Code :

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

 $_ =~ /^\s*(.*)[+](.*)[+](.*)[+](.*)[+](.*)$/

par

Code :

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

 $_ =~ /^\s*(.*)[*](.*)[*](.*)[*](.*)[*](.*)$/

et la il ne m'afficher plus rien.

Quelqu'un aurai t'il une solution svp

Merci d'avance a tous

[Jasmine80]

par contre pour le 2e fichier j'ai juste remplacé dans mon code les "+" par des "*"

Essaie :

Code :

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

if ( $_ =~ m/^\s*(.*?)\*(.*?)\*(.*?)\*(.*?)\*(.*)$/)

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
21
22
23
24
25
26
27
28
29
30
31
#!/usr/bin/perl
 
use strict;
use warnings;
 
 
my $prenom; 
my $nom; 
my $groupe;
my $pass;
my $login;
my $erreur = 0;
 
open my $f_handle, "<liste-user2.txt", or die $_ ;
 
 
while (<$f_handle>)
{
 
	if($_ ne "#")
	{		
		# groupe+NOM+prenom+login+pass
		# prenom*NOM*login*pass*groupe
		if ( $_ =~ m/^\s*(.*?)\*(.*?)\*(.*?)\*(.*?)\*(.*)$/)
		{			
			print("$1*$2*$3*$4*$5\n");
 
		}
	}
}
close $f_handle;

Il est préférable d'ouvrir le fichier avec

Code :

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

open my $f_handle, "<liste-user2.txt", or die $_ ;

Code :

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

if($_ != "#")

'!=' implique une comparaison numérique, il faut utiliser 'ne' dans ton cas, voire '!~'.

[psylox]

Bonjour,

Dans les regexp les caractères * et + sont réservés :
* : 0 ou x fois
+ : au moins une fois
Donc pour les utiliser dans ton cas du devrait les échapper: \* et \+
Regarde peut-etre la fonction split qui peut être util.

[Jasmine80]

Bonjour,

Dans les regexp les caractères * et + sont réservés :
* : 0 ou x fois
+ : au moins une fois
Donc pour les utiliser dans ton cas du devrait les échapper: \* et \+
Regarde peut-etre la fonction split qui peut être util.

Utiliser [+] comme il le fait est également une solution même si c'est moins joli.

Code :

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

 $_ =~ /^\s*(.*)[+](.*)[+](.*)[+](.*)[+](.*)$/

[shad797]

Bonjour à tous et merci pour vos solutions qui fonction très bien merci encore a vous