Discussion :

[Krispy]

Hello !
Voilà, je recherche une expression reguiliere me permettant dans ceci :

Code :

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

1
2
3
 
 
Jun 27 17:00:40 kwinf5104 me-filter_in_fr[4571]: X-me-spamrating: 0.002894  | UUID=20060627150007338.5274F3400150@kwinf0102.orange.fr

de récupérer le Spamrating.


sachant que varient :
le jour
l'heure
le kwinfXXXX
le chiffre entre []
le UUID
le truc derriere

une idée sur comment faire ?

Merci, je galere pas mal

[djibril]

va voir coté perl

[Krispy]

voui, c'est ce à quoi je pensais :

j'ai donc :

Code :

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

if( $ligne =~ m/^... .. ..:..:.. mwinf\[.*\] me-filter_in_fr\[.*\]: X-me-spamrating: (\d.\d)/o )

mais apparement, ça ne matche pas :/


\[.*\] est bien pour 5104 par exemple ?

de plus comment lui dire qu'apres ça, il n'y a que du texte pas interessant ?

Merci

PS : vive la FAQ j'ai trouvé des trucs pas mal dedans

[gege2061]

Code :

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

if( $ligne =~ m/^... .. ..:..:.. mwinf\[.*\] me-filter_in_fr\[.*\]: X-me-spamrating: (\d.\d)/o )

Le point doit être échapé et il faut mettre un quantifieur pour le nombre de chiffre sinon il en cherche qu'un :

Code :

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

$ligne =~ /X-me-spamrating: (\d*\.\d*)/

Je n'ai pas testé.

[ripat]

Si le nombre de colonnes ne change pas, pourquoi ne pas simplement utiliser awk?

Code :

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

echo 'chaine' |  awk '{print $7}'

[vosaray]

Tu te prendrais pas moins la tete avec cut ?

Code :

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

1
2
 
cut -f5 -d':' <ton_fichier>

devrait faire l'affaire.

Si tu veux vraiment utiliser perl, ce serait plutot un truc de ce gout la :

Code :

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

1
2
3
4
5
6
7
 
...
if ( $line =~ m/^(.*)([0-9]\:){3}(.*)\:(.*)\:(\s)\|(UUID\=)(.*)$/ )
{
  print "Date $2:$:3:$4 Rating $4\n UUID=$6";
}
...

Ca te permetterait de recuperer les autres champs de ton fichier et de les traiter

[ Resultat perl non garanti car pas testé ]