Discussion :

[koukia]

Bonjour
je suis un débutant en perl et je veux récupérer le contenue de fichier log de mrtg pour faire des tests sur la dernière colonne de ce fichier selon une valeur entrer par l'utilisateur
le format de ce fichier et le suivant;

1036567881 2313865839 3040227868
1036567881 937 713 937 713
1036567581 1561 229 1561 229
1036567500 1831 240 2561 273
1036567200 2473 643 2561 1647
1036566900 2312 1305 2513 1647

Merci pour votre aide

[iblis]

Bonsoir. On dirait que personne n'a répondu sur ce coup-là...

Si tu débutes en Perl, tu peux jeter un oeil à la FAQ pour voir comment ouvrir et parser un fichier. Et t'initier aux regex, si besoin est.

Pour ce qui t'occupe, voilà un exemple (idiot) qui imprime la deuxième colonne si la dernière colonne est supérieure à 1000.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
#!/usr/bin/perl
use strict; use warnings;
 
my $filename = 'path/to/file.log';
open my $fh, '<', $filename
    or die "$!\n";
 
while (<$fh>) {
    chomp;
    my @fields = split /\s+/;
    print $fields[0], "\n" if $fields[-1] < 1000;
}

Tu peux obtenir le même résultat avec un uniligne (en ligne de commande).

Code :

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

perl -F'\s+' -lane 'chomp; print $F[0] if $F[-1] < 1000' file.log