Perl

[perl] comparer une chaine de caractère de plusieurs lignes

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [perl] comparer une chaine de caractère de plusieurs lignes

DarkAngel_s

voila je cherche à savoir si toute une chaine de caractère qui tiens sur plusieurs lignes est presente ds un fichier de log sous linux
j'arrive pour l'instant a savoir si un mot est present ds un fichier mais pas une serie de ligne

exemple ds un fichier de log je voudrais savoir si le texte suivant est present :
CL313 V2.1.5 23-JAN-2002 06:15:23 0 30 5 4 7234 D <-- Default
CL314 V2.1.5 23-JAN-2002 06:15:46 0 30 5 4 7990 D
CL315 V2.1.5 23-JAN-2002 06:16:55 0 30 5 4 10212 D <-- Default

Code :

#!/usr/bin/perl -w
$lineno=0;
$filename=$ARGV[0];
$search=$ARGV[1];
sub find_string {
open(IN, $filename) || die ("open failed: $!\n" );
while (<IN> ){
if (/$search/){
$lineno++;
printf "%3s ",$lineno;
print $_;
exit 0;
}
}
if($lineno==0){
print "pas de chaine\n";
exit 1;
}
}
find_string();

Publicité

anapajari

s/travail/glanding on hfr/gs;

arrête de lire ligne par ligne si tu cherches sur plusiers [:spamafote]
Donc lis tout ton fichier et fais la recherche dessus!

DarkAngel_s

comment faire aussi pour passer en parametre une recherche de plusieurs lignes ?

Aricoh

gentil mais fo po pousser

Je modifie ta fonction find_string :

Code :

sub find_string {
open(IN, $filename) || die ("open failed: $!\n" );
# rajout ici
@_ = <IN>; # @_ reçoit tout le fichier d'un coup
close(IN);
chomp(@_); # on lui vire chaque "\n" en fin d'élément
$_ = join("", @_); # $_ récupère une longue chaîne correspondant à TOUS les élements de @_
if ($_ =~ /$search/){
$lineno++;
printf "%3s ",$lineno;
print $_;
exit 0;
}
if($lineno==0){
print "pas de chaine\n";
exit 1;
}
}
find_string();

Je n'ai pas testé mon code mais il doit fonctionner.

Remarque : pourquoi fais-tu un exit 0 ou 1 dans ta fonction ? Tu pourrais faire un return plutôt et tester la valeur que te retourne la fonction ?

---------------
Samsung Galaxy S1 -> Samsung Galaxy S2 -> Samsung Note 2 -> Huawei Ascend Mate 7 -> ZTE Axon 7 -> OnePlus 6T -> Oppo Find X2 PRO

DarkAngel_s

les exit c en effet une erreur de ma part

anapajari

s/travail/glanding on hfr/gs;

Aricoh, je pense qu'il y a un truc qui merde
Le compteur de ligne il est au far-west avec ton code!!!

Aricoh

gentil mais fo po pousser

Le problème, c'est que ton compteur de ligne ne peut QUE merder à présent puisque $_ récupère toutes les lignes en une seule.

Mais vu que ce que tu cherches peut être éclaté sur plus d'une ligne, la recherche devient nettement plus chaud si tu dois conserver les lignes telles quelles.

Message édité par Aricoh le 04-08-2006 à 12:13:27

---------------
Samsung Galaxy S1 -> Samsung Galaxy S2 -> Samsung Note 2 -> Huawei Ascend Mate 7 -> ZTE Axon 7 -> OnePlus 6T -> Oppo Find X2 PRO

DarkAngel_s

le plus simple reste de lancer plusieurs fois le script en tester ligne par ligne finalement

anapajari

s/travail/glanding on hfr/gs;

Tu splittes ton motif sur les retour à la ligne.
Tu testes uniquement si tu trouves une occurence de la 1ère ligne du motif dans ton fichier si oui tu testes les lignes suivantes si tout est bon tu récupères le numéro de la ligne qui matchait la 1ere ligne de ton motif.

Je sais pas si c'est clair, je crois que j'aurais mieux fait d'écrire le code!

Message cité 1 fois
Message édité par anapajari le 04-08-2006 à 16:18:43

franceso

anapajari a écrit :

Le problème d'une solution comme ça, c'est que tu risques d'avoir du mal à gérer les cas dans lesquels la première ligne du motif apparait plusieurs fois à la suite dans le fichier de log. Quitte à se lancer dans une solution "compliquée", autant programmer directement l'automate fini qui fait la recherche de la suite de lignes en question. C'est moins facile à coder, mais ça permet d'éviter de gérer "à la main" tous les cas particuliers un peu tordus.

---------------
TriScale innov

FORUM HardWare.fr

Programmation

Perl

[perl] comparer une chaine de caractère de plusieurs lignes

Sujets relatifs
Redirection type shell avec script perl cgi	Installation d'un module sous Perl
Récupérer le dernier caractère d'une ligne	[C#.Net] Traduction C# -> VB.Net (2 lignes)
[Perl] Librairie et fonctions	Caractère '<' par défaut dans un champs de texte
[Résolu] chaine.Contains un élément d'un tableau de chaine ?	Comparer 2 tableau
Comparer deux tableaux excel	[TXT] Supprimer le dernier caractère
Plus de sujets relatifs à : [perl] comparer une chaine de caractère de plusieurs lignes

Page générée en 0.051 secondes