Discussion :

[vince2005]

Bonjour,

J'ouvre un fichier et je souhaiterai récupérer les lignes qui contiennent le mot "export=" et "jour=".

Le but est de récupérer ces lignes pour récupérer la valeur derriére le "=" et afficher la ligne + cette valeur.

exemple de ligne :
toto
le fichier d'export=7
tata
la mise à jour=8
toto

voici mon script , mais il m'affiche en permanence la premiére ligne

use File::Basename;
use File::Copy;
use MIME::Lite;
use Cwd;
use POSIX 'strftime';
use strict;
use warnings;

my $DirLogMDP = "C:/logs" ;
my $FicLog = "toto.log" ;
my $Ligne1Export="export=";
my $Ligne2Export="jour=";
my $Ligne;
my $anomalies1="";
my $anomalies2="";

open (FIC, "<${DirLogMDP}/${FicLog}") || die "Ouverture impossible du fichier ${FicLog} : $!";

while ($Ligne = <FIC> )
{
if (grep { $Ligne =~ m/$_/g } $Ligne1Export || grep { $Ligne =~ m/$_/g } $Ligne2Export)
{
my ($envoi1, $anomalies1) = $Ligne =~ /(\d+).+(\d+)/;
my ($envoi2, $anomalies2) = $Ligne =~ /(\d+).+(\d+)/;
print "$Ligne\n";
print "$anomalies1\n";
print "$Ligne\n";
print "$anomalies2\n";

}
}
close (FIC);

[pospos]

grep doit s'utiliser sur une liste

au lieu de

if (grep { $Ligne =~ m/$_/g } $Ligne1Export || grep { $Ligne =~ m/$_/g } $Ligne2Export)

tu dois ecrire

if ($Ligne =~ /$Ligne1Export|Ligne2Export/)


mais en utilisant grep comme il faut tu peux faire tout ce traitement en deux ou trois lignes

[vince2005]

en fait, dans mon fichier, je veux récupérer le dernier export= et le dernier jour=. A partir de celui ci j'affiche les lignes le fichier d'export=10, la mise à jour=10 et je compare si les valeurs sont égaux.


tata
toto
le fichier d'export=7
la mise à jour=8
tata
le fichier d'export=10
la mise à jour=10
itit
lulu

voici mon script :

use File::Basename;
use File::Copy;
use MIME::Lite;
use Cwd;
use POSIX 'strftime';
use strict;
use warnings;



my $DirLog = "C:/logs" ;
my $FicLog = "toto.log" ;

my @LigneExport=("fichier d'export=", "mise à jour=");
my $NbFlux="";



open (FIC, "<${DirLog}/${FicLog}") || die "Ouverture impossible du fichier ${FicLog} : $!";

while ($Ligne = <FIC> )
{

if (grep { $Ligne =~ m/$_/g } @LigneExport)
{
my ($export, $NbFlux) = $Ligne =~ /(\d+).+(\d+)/;

print "$Ligne\n";
print "$NbFlux\n";

}


}
close (FIC);

merci pour le coup de de main

[pospos]

je persiste à dire que ton grep, meme si il est un peux mieux utiliser que dans ton premier script, ne sert à rien ici
pourkoi ne fait tu pas un test directe de regexp?

ensuite pour ce qui est de recuperer la derniere valeur et bien il suffit que tu definisse tes variable (my) avant le while, pour qu'elles soient visible pendant et apres celui ci, et à chaque fois que tu croise une ligne qui match ce que tu veux elle ecrasera les valeurs precedentes, jusqu'à la derniere qui elle restera, et que tu pourra traiter par la suite

[vince2005]

aurais tu un exemple pour le regexp ??

merci d'avance

[pospos]

oui, dans mon premier post

[Petitcodeur]

regex, veut dire en français expressions régulières.
Une recherche simple sur google devrait t'aider. Voici un lien qui détaille un peu les regex.