Discussion :

[vince2005]

Bonjour,

Je souhaiterai ouvrir un fichier et récupérer les lignes qui contiennent les mots ""From=", "To=", "Msg-File".

exemple de fichier :
From=XX@monsite.com;
To= YY@destination.com;
Subject= 123456;
Msg-File=test1.txt;

Et une fois ces lignes récupérer, je voudrais affecter la partie derrière le signe = à des variables. comme la variable $destinaire = XX@monsite.com.... $expediteur.....

voici le départ de mon script, j'arrive bien à récuperer les lignes dans un fichier, mais aprés je cale ! peut etre devrais je les récupére dans un tableau ??

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
 
 
use strict;
use warnings;
 
my $DirLogMDP = "C:/Perl/Monrepertoire" ;
my $FicLog;
my @GestionTableau = ("From=", "To=", "Msg-File");
my $FicError="C:/Perl/Monrepertoire/error.txt";
my $Ligne;
 
open (FIC, "<${DirLogMDP}/fic.txt") || die "Ouverture impossible du fichier fic.txt : $!";
open (FICERREUR, ">$FicError")  || die "Ouverture impossible du fichier  FicError : $!";
 
	while ($Ligne = <FIC> ) 
   	{  
		if (grep { $Ligne =~ m/$_/g } @GestionTableau) { 
   			print FICERREUR  "$Ligne" ; 
   		}
 
            }
 
close (FIC); 
close (FICERREUR);
exit;

merci pour votre aide

[Woufeil]

Bonsoir.

Je pense que l'utilisation des références arrières des regex peut t'être fort utile
Je te donne la syntaxe pour récupérer uniquement test1.txt; dans Msg-File=test1.txt; à toi de voir ce que tu peux en faire.
Supposons que que Msg-File=test1.txt; soit contenu dans $ligne.

Code :

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

1
2
3
4
$ligne =~ m/=(.*)/;
my $var = $1;
#ou en plus court
my ($var) = $ligne =~ m/=(.*)/;

Attention, avec cette syntaxe tu vas aussi récupérer le ; en fin de ligne

[vince2005]

et comment puis je faire pour retirer mon ; en fin de ligne.

merci

[Arioch]

s/;$//; ou autrement formulé : supprime le caractère ; s'il existe en fin de chaîne par rien

[vince2005]

j'ai écris cela , mais ça fonctionne pas !

Code :

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

1
2
 
$Ligne =~ s/;$//;

[Arioch]

alors ça signifie qu'il y a un autre caractère en fin de ligne après ton ;

retour chariot probablement

[vince2005]

mais en une ligne comment puis je ecrire que je veux ce tous ce qu'il y a aprés le signe = et le ;

[Arioch]

Voici un exemple par l'exemple

Exemple de fichier :

Code :

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

1
2
3
4
From=XX@monsite.com;
To= YY@destination.com;
Subject= 123456;
Msg-File=test1.txt;

Et un bout de code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
use strict;
 
my %Hash;
 
open(FIC, "fichier.txt") or die ("pb lecture fichier.txt : $!\n");
while(<FIC>)
{
    chomp();
    $Hash{$1} = $2 if (/^(.+)=(.+);$/);
}

En faisant un print de son contenu, ton hash contient désormais :

Code :

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

1
2
3
4
5
 
$Hash{From}      = "XX@monsite.com";
$Hash{To}         = "YY@destination.com";
$Hash{Subject}  = "123456";
$Hash{Msg-File} ="test1.txt";

A toi d'adapter maintenant

[vince2005]

à ta ligne

Code :

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

1
2
3
 
 
$Hash{$1} = $2 if (/^(.+)=(.+);$/;

ne manqe t il pas ? une parenthése

et les accolades !!!

je reprends ton meme exemple, mais je n'arrive pas à le faire fonctionner

[Arioch]

oui, il manque la parenthèse fermante à la fin, désolé (code corrigé)

[vince2005]

et j'ai aussi une ligne se finissant par ;,

Et je voudrais supprimer en chaque fin de ligne ,

soit le ;
ou ;,

Code :

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

1
2
 
my ($Ficjoint) = $Ligne =~ (/=(.+);$/);

[vince2005]

dans quel article puis je trouver la syntaxe , comme (/^(.+)=(.+);$/


merci

[Woufeil]

Bonsoir.

La FAQ Perl devrait te donner toutes les informations nécéssaires sur les regex
Bon courage !