grep sur fichier

Version imprimable

21/03/2006, 13h59
vince2005

grep sur fichier

bonjour,

Je voudrai savoir si mon fichier toto.txt contient des erreurs et ressortir la ligne dans un fichier erreur.log.

En fait , je veux grepper, les mots erreur, error, bad......

comment puis je faire ??

merci pour vos solutions
21/03/2006, 14h36
GLDavid

A grands coup de regexps :roll: ?
Ca semble assez facile pour peu que ton fichier soit bien explicite (d'ailleurs, peut-on en voir un morceau d'exemple ?).

@++
21/03/2006, 14h44
vince2005

.....

on peut trouver où des exemples de regexps ??

exemple de ce que l'on peut trouver dans le fichier toto.txt

[Native Error code: 3621]
[Message Class: 10]
[Message State: 0]
21/03/2006, 15h16
GLDavid

Notre FAQ, pardi ! Djibril nous a écrit de superbes articles sur le sujet : http://perl.developpez.com/faq/?page=sectionB7

@++
21/03/2006, 16h07
vince2005

......

je dois vraiment etre pas trés bon, parce que je ne retrouve pas d'exemple ou de script sur lequel , je pourrai m'inspirer.

si quelqu'un veut bien m'aider !!!

merci d'avance

Hello

Voici un code simple : il se contente de t'afficher qu'il a trouvé le motif Native Error:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 #!/usr/bin/perl -w use strict; open FILE,"< toto.txt" or die "$!\n"; while(<FILE>){ if(/Native\sError/){ print "Native error found"; } } close FILE;
Attention, code non testé. Mais cela peut t'inspirer.

@++

21/03/2006, 16h46
djibril

essaye déjà d'ecrire toi même le script et on va t'aider si possible.
piste :
-ouverture de fichier en lecture
-ouverture de fichier en ecriture
- traitement des lignes (regex)
- print dans error.log
- fermeture fichiers
et c'est fini

....

voici mon script !!

mais je ne comprends pas la fonction regexps ?? c'est quoi ??

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 
 
my $FicLog="L:/Solendi/EXP/GRC/LOG/toto.txt";
my $Erreur = "";
 
open (FIC_LOG, "<$FicLog") ;
    while ($ligne = <FIC_LOG>)
   {
         $Erreur = grep {\error\} $ligne;
 
   }
 
close (FIC_LOG);

21/03/2006, 17h15
GLDavid

Je t'ai grillé Djibril !!! :lol:
21/03/2006, 17h18
djibril

:lol: :lol: :cry: :cry:
21/03/2006, 17h18
vince2005

......

En quoi tu m'as grillé ?? je vois pas le rapport avec ma question !!
21/03/2006, 18h05
vince2005

.....

enfin pour info, ça ne fonctionne toujours pas !!!
21/03/2006, 18h23
djibril

GLdavid t'as donné la reponse. Adapte le à tes besoins
21/03/2006, 22h08
Mr6
et à la limite, s'il n'y a pas de traitement spécifique derrière, pourquoi ne pas FAIRE un grep ?
Code:

1 2 #grep err(eu|o)r|bad toto.txt > erreur.log
ou qqch comme ca ;)

@+
Mr6
27/03/2006, 15h13
vince2005

c'est du perl, pas du ksh, je ne suis pas sur que tu puisses rediriger des grep dans un fichier par le >>.
27/03/2006, 15h34
Mr6
bah tu testes et on en reparle ;) sur mon aix ca marche pour sûr 8)
par contre, je mets la regex entre double quotes contrairement à mon exemple (qui n'était que de principe, et non testé). celà dit, si tu as d'autres traitements à faire sur tes fichiers derrière le grep en lui-même ne t'intéressera pas.
tu peux utiliser ceci :
Code:

1 2 3 4 while (<<FIC_LOG>) { $erreur.= $_ if /error/; }