[PERL]- Extraire lignes d'un fichier à partir Résolu/Fermé

Question

Bonjour,

je suis nouveau sur ce forum et je dois pour mon stage extraire les "nb" derinères lignes d'un fichier, les trier et les mettre dans un autre fichier.

En gros je voudrais faire cela en perl:
tail -$nb $fichier | sort -k 5 -u | sed -e 's/$$[0-9]*$$:/:/g' > $file.analyse

Au secours!!

tonixm · Answer

J'ai essayer ceci :


					open (FIC,"$file");
					my $line;
					$line=0;
					while (<FIC>){
					  # par défaut chaque ligne lue (y compris le délimiteur
					  # de fin de ligne) est stockée dans $_
					  if($line >= $nb_line){
						 $_=~ s/$$[0-9]*$$:/:/g;
						 system("cat $_ > $file_analyse");
					  }
					$line++;
				 	}
					close (FIC); 


Mais sans succès.

lami20j · Answer

Salut,

mets ton fichier sur ci-joint.com
je vais regarder

ta demande n'est pas claire

si je comprends bien tu veux 
1. traiter les n dernières lignes dans fichies
2. trier les lignes

Je vois aussi que tu fait une substitution.

Veux-tu être plus explicite?
Merci.

tonixm · Answer

Salut,

j'ai un fichier de log qu'il faut que je trie. J'ai mis un index "nbline" afin de ne pas retraiter a chaque fois ce que j'ai deja fait.
Il faut que:
1. traiter les n dernières lignes de mon fichier 
2. trier les lignes
3. substituer certains caractères
4. remettre tout cela dans un autre fichier X.analyse

Mon tuteur m'a dit qu'il fallais "simplement" que je traduise cela en perl:
tail -$nb $fichier | sort -k 5 -u | sed -e 's/$$[0-9]*$$:/:/g' > $file.analyse 

merci

lami20j · Answer

Re,

ce qui t'as demandé ton tuteur c'est ton problème

pour t'aider j'ai besoi de ton fichier
pour faire la traduction, il faut que je comprenne le problème
c'est comme ça que je travail moi ;-)

donc j'attends ton fichier pour faire des test
merci

tonixm · Answer

c'est un fichier confidentiel et je ne peux pas te le mettre sur cijoint.com ou .fr je ne me rappel plus sinon je l'aurais fait depuis lontemps.
merci quand même

lami20j · Answer

Je n'ai pas besoin de connaître le contenu de ton fichier
En revanche j'ai besoin de la structure de ton fichier (tu n'as qu'à mettre des données bidons ;-))

tonixm · Answer

LOG_DIR="/var/adm/syslog.dated/current"
        CONF_DIR="/doi/lib"

        for file in $(echo "daemon.log kern.log") ; do

            FILE=$LOG_DIR/$file
            if [ ! -e $FILE ]; then
                echo "Error EXP039" >> $FILE.focal
                exit 1
            fi

            CONF_FILE=$CONF_DIR/$file.cfg
            if [ ! -e $CONF_FILE ]; then
                echo "Error EXP039" >> $FILE.focal
                exit 1
            fi

            PREVIOUS_FILE=$(echo $FILE | sed -e 's/current/previous/')
            CURRENT_FILE_LENGHT=$(($(cat $FILE | wc -l)))

            if [ ! -e $FILE.focal.end ] ; then
            # Si le fichier de log n'a jamais ete parse,
            # ne pas oublier de parser le fichier de log de la veille !
                if [ ! -e $PREVIOUS_FILE.focal.end ] ; then
                # Si le fichier de log de la veille n'a jamais ete parse,
                # on a un pb ! => erreur focal !! dans le fichier du jour !
                    echo "Error EXP040" >> $FILE.focal
                else
                # Sinon, on parse le fichier de la veille
                    PREVIOUS_FILE_LENGHT=$(($(cat $PREVIOUS_FILE | wc -l)))
                    . $PREVIOUS_FILE.focal.end
                    NB_LINE=$(($PREVIOUS_FILE_LENGHT-$LAST_LINE))

                    # On redirige les logs dans un fichier temporaire
                    tail -$NB_LINE $PREVIOUS_FILE | sort -k 5 -u | sed -e 's/$$[
0-9]*$$:/:/g' > $FILE.sort

                    # On exclue les messages qui ne nous interessent pas
                    cat $CONF_FILE | while read line
                      do
                      cat $FILE.sort | grep -v "$line" > $FILE.tmp
                      cat $FILE.tmp > $FILE.sort
                    done

                    # Sans oublier de rediriger les logs dans le fichier du jour
 !
                    # en les remettant dans l'ordre.
                    cat $FILE.sort | sort >> $FILE.focal
                    KEEP_LENGHT=$(($(cat $FILE.sort | wc -l)))
                    rm -rf $FILE.sort
                    rm -rf $FILE.tmp

                    echo "LAST_LINE=$PREVIOUS_FILE_LENGHT" > $PREVIOUS_FILE.foca
l.end
                    tracer "Keeping $KEEP_LENGHT/$NB_LINE line(s) of $PREVIOUS_F
ILE"

                fi

                # Une fois les logs de la veille traites, on s'occuppe des logs
du jour.
                NB_LINE=$(($CURRENT_FILE_LENGHT))
            else
                # On reprend la ou on en etait
                . $FILE.focal.end
                NB_LINE=$(($CURRENT_FILE_LENGHT-$LAST_LINE))
            fi

            # On redirige les logs dans un fichier temporaire
            tail -$NB_LINE $FILE | sort -k 5 -u | sed -e 's/$$[0-9]*$$:/:/g' > $
FILE.sort

            # On exclue les messages qui ne nous interessent pas
            cat $CONF_FILE | while read line
              do
              cat $FILE.sort | grep -v  "$line" > $FILE.tmp
              cat $FILE.tmp > $FILE.sort
            done

           # Sans oublier de rediriger les logs dans le fichier du jour !
           # en les remettant dans l'ordre.
            cat $FILE.sort | sort >> $FILE.focal
            KEEP_LENGHT=$(($(cat $FILE.sort | wc -l)))
            rm -rf $FILE.sort
            rm -rf $FILE.tmp

            echo "LAST_LINE=$CURRENT_FILE_LENGHT" > $FILE.focal.end
            tracer "Keeping $KEEP_LENGHT/$NB_LINE line(s) of $FILE"

lami20j · Answer

Bon,

je vois qu'on ne se comprends pas

ce n'est pas le script que j'ai demandé
j'ai demandé un fichier que tu traites (donc un fichier log)

tonixm · Answer

ha dsl:

daemon.log:

Apr  9 15:58:32 vmonitor ntpd[31608]: ntpd 4.2.0a@1.1190-r Thu Oct  5 04:11:32 E
DT 2006 (1)
Apr  9 15:58:32 vmonitor ntpd[31608]: precision = 17.000 usec
Apr  9 15:58:32 vmonitor ntpd[31608]: Listening on interface wildcard, 0.0.0.0#1
23
Apr  9 15:58:32 vmonitor ntpd[31608]: Listening on interface wildcard, ::#123
Apr  9 15:58:32 vmonitor ntpd[31608]: Listening on interface lo, 127.0.0.1#123
Apr  9 15:58:32 vmonitor ntpd[31608]: Listening on interface eth0, 172.16.15.39#
123
Apr  9 15:58:32 vmonitor ntpd[31608]: kernel time sync status 0040

lami20j · Answer

je vais voir ce soir à la maison

tonixm · Answer

d'accord merci

tonixm · Answer

en fait on voudrait garder par exemple pour:

Apr 9 15:58:32 vmonitor ntpd[31608]: precision = 17.000 usec 

pour cette ligne on voudrait : 

 vmonitor ntpd: precision = 17.000 usec

tonixm · Answer

c'est pour sa que je trie et fait une substitution!

tonixm · Answer

il faut prendre les "nb-line" dernières lignes d'un fichier X.sort, faire un sort -k 5 -u (je ne sais pas ce que cela veut dire) puis enlevé les chiffres avant ":" par substitution.
finalement mettre tout cela dans un fichier X.analyse
aie aie je suis mal en point

lami20j · Answer

Bon, voici un exemple, tester sur le fichier tonixm.log
donc j'ai pris tes lignes et je les ai multipliés
tu remarques bien que j'ai changé les valeurs pour précision pour mettre en evidence le tri
si j'ai bien compris ce sont les lignes qui contiennent le mot precision qui t'interesse

donc d'abord je selecte seulement les lignes contenant le mot precision (5 dans ce cas) et je vais traiter seulement les 3 dernières lignes

ensuite je vais traiter selons le champe se trouvant après le signe = 
sort -k 5 veut dire que le tri se fait  en commencant avec le champ 5 (le séparateur étant l'espace)

lami20j@debian:~$ cat tonixm.log
Apr 9 15:58:32 vmonitor ntpd[31608]: ntpd 4.2.0a@1.1190-r Thu Oct 5 04:11:32 EiDT 2006 (1)
Apr 9 15:58:32 vmonitor ntpd[31608]: precision = 17.000 usec
Apr 9 15:58:32 vmonitor ntpd[31608]: Listening on interface wildcard, 0.0.0.0#123
Apr 9 15:58:32 vmonitor ntpd[31608]: Listening on interface wildcard, ::#123
Apr 9 15:58:32 vmonitor ntpd[31608]: Listening on interface lo, 127.0.0.1#123
Apr 9 15:58:32 vmonitor ntpd[31608]: Listening on interface eth0, 172.16.15.39#123
Apr 9 15:58:32 vmonitor ntpd[31608]: kernel time sync status 0040
Apr 9 15:58:32 vmonitor ntpd[31608]: ntpd 4.2.0a@1.1190-r Thu Oct 5 04:11:32 EiDT 2006 (1)
Apr 9 15:58:32 vmonitor ntpd[31608]: precision = 14.000 usec
Apr 9 15:58:32 vmonitor ntpd[31608]: Listening on interface wildcard, 0.0.0.0#123
Apr 9 15:58:32 vmonitor ntpd[31608]: Listening on interface wildcard, ::#123
Apr 9 15:58:32 vmonitor ntpd[31608]: Listening on interface lo, 127.0.0.1#123
Apr 9 15:58:32 vmonitor ntpd[31608]: Listening on interface eth0, 172.16.15.39#123
Apr 9 15:58:32 vmonitor ntpd[31608]: kernel time sync status 0040
Apr 9 15:58:32 vmonitor ntpd[31608]: ntpd 4.2.0a@1.1190-r Thu Oct 5 04:11:32 EiDT 2006 (1)
Apr 9 15:58:32 vmonitor ntpd[31608]: precision = 13.000 usec
Apr 9 15:58:32 vmonitor ntpd[31608]: Listening on interface wildcard, 0.0.0.0#123
Apr 9 15:58:32 vmonitor ntpd[31608]: Listening on interface wildcard, ::#123
Apr 9 15:58:32 vmonitor ntpd[31608]: Listening on interface lo, 127.0.0.1#123
Apr 9 15:58:32 vmonitor ntpd[31608]: Listening on interface eth0, 172.16.15.39#123
Apr 9 15:58:32 vmonitor ntpd[31608]: kernel time sync status 0040
Apr 9 15:58:32 vmonitor ntpd[31608]: ntpd 4.2.0a@1.1190-r Thu Oct 5 04:11:32 EiDT 2006 (1)
Apr 9 15:58:32 vmonitor ntpd[31608]: precision = 18.000 usec
Apr 9 15:58:32 vmonitor ntpd[31608]: Listening on interface wildcard, 0.0.0.0#123
Apr 9 15:58:32 vmonitor ntpd[31608]: Listening on interface wildcard, ::#123
Apr 9 15:58:32 vmonitor ntpd[31608]: Listening on interface lo, 127.0.0.1#123
Apr 9 15:58:32 vmonitor ntpd[31608]: Listening on interface eth0, 172.16.15.39#123
Apr 9 15:58:32 vmonitor ntpd[31608]: kernel time sync status 0040
Apr 9 15:58:32 vmonitor ntpd[31608]: ntpd 4.2.0a@1.1190-r Thu Oct 5 04:11:32 EiDT 2006 (1)
Apr 9 15:58:32 vmonitor ntpd[31608]: precision = 10.000 usec
Apr 9 15:58:32 vmonitor ntpd[31608]: Listening on interface wildcard, 0.0.0.0#123
Apr 9 15:58:32 vmonitor ntpd[31608]: Listening on interface wildcard, ::#123
Apr 9 15:58:32 vmonitor ntpd[31608]: Listening on interface lo, 127.0.0.1#123
Apr 9 15:58:32 vmonitor ntpd[31608]: Listening on interface eth0, 172.16.15.39#123
Apr 9 15:58:32 vmonitor ntpd[31608]: kernel time sync status 0040

Le scriptlami20j@debian:~$ cat log.pl
#!/usr/bin/perl
use strict;use warnings;

open LIRE,"tonixm.log"
     or die "E/S : $!
";

my @tmp = <LIRE>;
my @log = grep {/precision/} @tmp;

grep {s/.*(vmonitor\s*ntpd).*(precision.*)/$1: $2/} @log;
print map  {$_->[0]}
      sort {$a->[1] cmp $b->[1]}
      map  {[$_,(split /=/)[1]]}
      splice(@log,-3);

__END__
Le résultatlami20j@debian:~$ perl log.pl
vmonitor ntpd: precision = 10.000 usec
vmonitor ntpd: precision = 13.000 usec
vmonitor ntpd: precision = 18.000 usec

tonixm · Answer

pas exactement ce que je voulais

je veux traiter juste les "nb_line" dernières lignes du fichier n'importe lesquelles qu'elles soient.

Par exemple pour tonixm.log :lami20j@debian:~$ cat tonixm.log
Apr 9 15:58:32 vmonitor ntpd[31608]: ntpd 4.2.0a@1.1190-r Thu Oct 5 04:11:32 EiDT 2006 (1)
Apr 9 15:58:32 vmonitor ntpd[31608]: precision = 17.000 usec
Apr 9 15:58:32 vmonitor ntpd[31608]: Listening on interface wildcard, 0.0.0.0#123
Apr 9 15:58:32 vmonitor ntpd[31608]: Listening on interface wildcard, ::#123
Apr 9 15:58:32 vmonitor ntpd[31608]: Listening on interface lo, 127.0.0.1#123
Apr 9 15:58:32 vmonitor ntpd[31608]: Listening on interface eth0, 172.16.15.39#123
Apr 9 15:58:32 vmonitor ntpd[31608]: kernel time sync status 0040
Apr 9 15:58:32 vmonitor ntpd[31608]: ntpd 4.2.0a@1.1190-r Thu Oct 5 04:11:32 EiDT 2006 (1)
Apr 9 15:58:32 vmonitor ntpd[31608]: precision = 14.000 usec
Apr 9 15:58:32 vmonitor ntpd[31608]: Listening on interface wildcard, 0.0.0.0#123
Apr 9 15:58:32 vmonitor ntpd[31608]: Listening on interface wildcard, ::#123
Apr 9 15:58:32 vmonitor ntpd[31608]: Listening on interface lo, 127.0.0.1#123
Apr 9 15:58:32 vmonitor ntpd[31608]: Listening on interface eth0, 172.16.15.39#123
Apr 9 15:58:32 vmonitor ntpd[31608]: kernel time sync status 0040
Apr 9 15:58:32 vmonitor ntpd[31608]: ntpd 4.2.0a@1.1190-r Thu Oct 5 04:11:32 EiDT 2006 (1)
Apr 9 15:58:32 vmonitor ntpd[31608]: precision = 13.000 usec
Apr 9 15:58:32 vmonitor ntpd[31608]: Listening on interface wildcard, 0.0.0.0#123
Apr 9 15:58:32 vmonitor ntpd[31608]: Listening on interface wildcard, ::#123
Apr 9 15:58:32 vmonitor ntpd[31608]: Listening on interface lo, 127.0.0.1#123
Apr 9 15:58:32 vmonitor ntpd[31608]: Listening on interface eth0, 172.16.15.39#123
Apr 9 15:58:32 vmonitor ntpd[31608]: kernel time sync status 0040
Apr 9 15:58:32 vmonitor ntpd[31608]: ntpd 4.2.0a@1.1190-r Thu Oct 5 04:11:32 EiDT 2006 (1)
Apr 9 15:58:32 vmonitor ntpd[31608]: precision = 18.000 usec
Apr 9 15:58:32 vmonitor ntpd[31608]: Listening on interface wildcard, 0.0.0.0#123
Apr 9 15:58:32 vmonitor ntpd[31608]: Listening on interface wildcard, ::#123
Apr 9 15:58:32 vmonitor ntpd[31608]: Listening on interface lo, 127.0.0.1#123
Apr 9 15:58:32 vmonitor ntpd[31608]: Listening on interface eth0, 172.16.15.39#123
Apr 9 15:58:32 vmonitor ntpd[31608]: kernel time sync status 0040
Apr 9 15:58:32 vmonitor ntpd[31608]: ntpd 4.2.0a@1.1190-r Thu Oct 5 04:11:32 EiDT 2006 (1)
Apr 9 15:58:32 vmonitor ntpd[31608]: precision = 10.000 usec
Apr 9 15:58:32 vmonitor ntpd[31608]: Listening on interface wildcard, 0.0.0.0#123
Apr 9 15:58:32 vmonitor ntpd[31608]: Listening on interface wildcard, ::#123
Apr 9 15:58:32 vmonitor ntpd[31608]: Listening on interface lo, 127.0.0.1#123
Apr 9 15:58:32 vmonitor ntpd[31608]: Listening on interface eth0, 172.16.15.39#123
Apr 9 15:58:32 vmonitor ntpd[31608]: kernel time sync status 0040


si nb_line vaut 4.

je veux au final dans le .sort que des lignes de ce type:

 vmonitor ntpd: Listening on interface wildcard, ::#123
 vmonitor ntpd: Listening on interface lo, 127.0.0.1#123
 vmonitor ntpd: Listening on interface eth0, 172.16.15.39#123
 vmonitor ntpd: kernel time sync status 0040

C'est a dire prendre les 4 dernières lignes, enlever "Apr 9 15:58:32" et [31608] puis tout mettre dans file.sort

lami20j · Answer

Alors essaie celui là#!/usr/bin/perl use strict;use warnings; open LIRE,"tonixm.log" or die "E/S : $!\n"; print "Entrez le nombre de lignes : "; chomp(my $n = ); my @log = ; grep {s/.*(vmonitor\s*ntpd)$$.*$$(:.*)/${1}$2/} @log; print map {$_->[0]} sort {$a->[1] cmp $b->[1]} map {[$_,(split / /)[4]]} splice(@log,-$n); __END__

tonixm · Answer

merci pour tout!!!
j ai le compilateur au boulot et j'essaierai sa demain au plsu vite!
j espere que cela marchera

tonixm · Answer

et comment faire pour mettre le resultat dans un fichier .analyse?

lami20j · Answer

lami20j@debian:~$ cat log.pl #!/usr/bin/perl use strict;use warnings; open LIRE,"tonixm.log" or die "E/S : $!\n"; open ECRIRE,">fichier.analyse" or die "E/S : $!\n"; print "Entrez le nombre de lignes : "; chomp(my $n = ); my @log = ; grep {s/.*(vmonitor\s*ntpd)$$.*$$(:.*)/${1}$2/} @log; print ECRIRE map {$_->[0]} sort {$a->[1] cmp $b->[1]} map {[$_,(split / /)[4]]} splice(@log,-$n); __END__ lami20j@debian:~$ cat tonixm.log Apr 9 15:58:32 vmonitor ntpd[31608]: ntpd 4.2.0a@1.1190-r Thu Oct 5 04:11:32 EiDT 2006 (1) Apr 9 15:58:32 vmonitor ntpd[31608]: precision = 17.000 usec Apr 9 15:58:32 vmonitor ntpd[31608]: Listening on interface wildcard, 0.0.0.0#123 Apr 9 15:58:32 vmonitor ntpd[31608]: Listening on interface wildcard, ::#123 Apr 9 15:58:32 vmonitor ntpd[31608]: Listening on interface lo, 127.0.0.1#123 Apr 9 15:58:32 vmonitor ntpd[31608]: Listening on interface eth0, 172.16.15.39#123 Apr 9 15:58:32 vmonitor ntpd[31608]: kernel time sync status 0040 Apr 9 15:58:32 vmonitor ntpd[31608]: ntpd 4.2.0a@1.1190-r Thu Oct 5 04:11:32 EiDT 2006 (1) Apr 9 15:58:32 vmonitor ntpd[31608]: precision = 14.000 usec Apr 9 15:58:32 vmonitor ntpd[31608]: Listening on interface wildcard, 0.0.0.0#123 Apr 9 15:58:32 vmonitor ntpd[31608]: Listening on interface wildcard, ::#123 Apr 9 15:58:32 vmonitor ntpd[31608]: Listening on interface lo, 127.0.0.1#123 Apr 9 15:58:32 vmonitor ntpd[31608]: Listening on interface eth0, 172.16.15.39#123 Apr 9 15:58:32 vmonitor ntpd[31608]: kernel time sync status 0040 Apr 9 15:58:32 vmonitor ntpd[31608]: ntpd 4.2.0a@1.1190-r Thu Oct 5 04:11:32 EiDT 2006 (1) Apr 9 15:58:32 vmonitor ntpd[31608]: precision = 13.000 usec Apr 9 15:58:32 vmonitor ntpd[31608]: Listening on interface wildcard, 0.0.0.0#123 Apr 9 15:58:32 vmonitor ntpd[31608]: Listening on interface wildcard, ::#123 Apr 9 15:58:32 vmonitor ntpd[31608]: Listening on interface lo, 127.0.0.1#123 Apr 9 15:58:32 vmonitor ntpd[31608]: Listening on interface eth0, 172.16.15.39#123 Apr 9 15:58:32 vmonitor ntpd[31608]: kernel time sync status 0040 Apr 9 15:58:32 vmonitor ntpd[31608]: ntpd 4.2.0a@1.1190-r Thu Oct 5 04:11:32 EiDT 2006 (1) Apr 9 15:58:32 vmonitor ntpd[31608]: precision = 18.000 usec Apr 9 15:58:32 vmonitor ntpd[31608]: Listening on interface wildcard, 0.0.0.0#123 Apr 9 15:58:32 vmonitor ntpd[31608]: Listening on interface wildcard, ::#123 Apr 9 15:58:32 vmonitor ntpd[31608]: Listening on interface lo, 127.0.0.1#123 Apr 9 15:58:32 vmonitor ntpd[31608]: Listening on interface eth0, 172.16.15.39#123 Apr 9 15:58:32 vmonitor ntpd[31608]: kernel time sync status 0040 Apr 9 15:58:32 vmonitor ntpd[31608]: ntpd 4.2.0a@1.1190-r Thu Oct 5 04:11:32 EiDT 2006 (1) Apr 9 15:58:32 vmonitor ntpd[31608]: precision = 10.000 usec Apr 9 15:58:32 vmonitor ntpd[31608]: Listening on interface wildcard, 0.0.0.0#123 Apr 9 15:58:32 vmonitor ntpd[31608]: Listening on interface wildcard, ::#123 Apr 9 15:58:32 vmonitor ntpd[31608]: Listening on interface lo, 127.0.0.1#123 Apr 9 15:58:32 vmonitor ntpd[31608]: Listening on interface eth0, 172.16.15.39#123 Apr 9 15:58:32 vmonitor ntpd[31608]: kernel time sync status 0040 lami20j@debian:~$ perl log.pl Entrez le nombre de lignes : 10 lami20j@debian:~$ cat fichier.analyse vmonitor ntpd: precision = 10.000 usec vmonitor ntpd: ntpd 4.2.0a@1.1190-r Thu Oct 5 04:11:32 EiDT 2006 (1) vmonitor ntpd: Listening on interface lo, 127.0.0.1#123 vmonitor ntpd: Listening on interface eth0, 172.16.15.39#123 vmonitor ntpd: Listening on interface wildcard, 0.0.0.0#123 vmonitor ntpd: Listening on interface wildcard, ::#123 vmonitor ntpd: Listening on interface lo, 127.0.0.1#123 vmonitor ntpd: Listening on interface eth0, 172.16.15.39#123 vmonitor ntpd: kernel time sync status 0040 vmonitor ntpd: kernel time sync status 0040 lami20j@debian:~$

tonixm · Answer

merci pour le temps passé à m'aider!!!!
je vais essayer cela demain!!!

lami20j · Answer

Si jamais ça ne marchera pas comme tu voudras ça veut dire que j'ai mal compris ce que tu veux ;-)

tonixm · Answer

je te tiendrais au courant d'ici 2h

tonixm · Answer

j ai un ptiti probleme car toi tu n'a que des vmonitor suivi de ntpd alors que moi j'en ai plein d'autre comme xinetd, cvs, dhcpd, client, named, ntpd...
et donc ton script ne choisi que ceux qui possèdent ntpd et pas les autres.

tonixm · Answer

Bonjour,
j'ai modifier cette ligne car pas tous avait des chiffre entre [] :
grep {s/.*(vmonitor\s*.*)$$*.*$$*(:\s*.*)/${1}$2/} @log;

pour kern.log c'est bon:

vmonitor:/var/adm/syslog.dated/current> more kern.log
Apr 10 03:30:37 vmonitor kernel: set_rtc_mmss: can't update from 58 to 0
Apr 10 03:31:39 vmonitor kernel: set_rtc_mmss: can't update from 59 to 1
Apr 10 08:30:13 vmonitor kernel: set_rtc_mmss: can't update from 58 to 0
Apr 10 08:31:14 vmonitor kernel: set_rtc_mmss: can't update from 59 to 1
vmonitor:/var/adm/syslog.dated/current> more kern.log.analyse
vmonitor kernel: set_rtc_mmss: can't update from 58 to 0
vmonitor kernel: set_rtc_mmss: can't update from 59 to 1
vmonitor kernel: set_rtc_mmss: can't update from 58 to 0
vmonitor kernel: set_rtc_mmss: can't update from 59 to 1

par contre j ai encore les chiffre entre [] pour celui ci:

vmonitor:/var/adm/syslog.dated/current> more daemon.log
Apr 10 12:26:20 vmonitor PREFIX: message de test
Apr 10 12:26:50 vmonitor PREFIX[6161]: message de test
Apr 10 12:35:45 vmonitor ntpd[31161]: Listening on interface
vmonitor:/var/adm/syslog.dated/current> more daemon.log.analyse
vmonitor ntpd[31161]: Listening on interface
vmonitor PREFIX: message de test
vmonitor PREFIX[6161]: message de test


Comment faire pour enlever les doublons??

tonixm · Answer

j ai essayer cela est sa marche:
grep {s/.*(vmonitor\s*[a-zA-Z]*)$$?\d*$$?(:\s*.*)/${1}$2/} @log;


vmonitor:/var/adm/syslog.dated/current> more daemon.log.analyse
vmonitor ntpd: Listening on interface
vmonitor PREFIX: message de test
vmonitor PREFIX: message de test
vmonitor:/var/adm/syslog.dated/current> more kern.log.analyse
vmonitor kernel: set_rtc_mmss: can't update from 58 to 0
vmonitor kernel: set_rtc_mmss: can't update from 59 to 1
vmonitor kernel: set_rtc_mmss: can't update from 58 to 0
vmonitor kernel: set_rtc_mmss: can't update from 59 to 1
 


:))

tonixm · Answer

par contre comment éviter les doublons? cad deux même lignes?

lami20j · Answer

Salut,

pour enlever les doublons un hash peut être utilisé
malheuresment j'ai beaucoup de boulot aujourd'hui

je vais regarder ce soir

j'ai modifier cette ligne car pas tous avait des chiffre entre [] : 
grep {s/.*(vmonitor\s*.*)$$*.*$$*(:\s*.*)/${1}$2/} @log; 

justement c'est pour ça que j'ai utiliser 
grep {s/.*(vmonitor\s*ntpd)$$.*$$(:.*)/${1}$2/} @log;
j'ai utiliser . qui veut dire n'importe quel caracère, en supposant que tu as autre chose que chiffres


attention tu as mal copier la ligne, il n'y a pas d'étoile avant le .

tonixm · Answer

ha oui j'ai vu

tonixm · Answer

o fait petit probleme:
le script etait :grep {s/.*(vmonitor\s*ntpd)$$.*$$(:.*)/${1}$2/} @log;
print ECRIRE map  {$_->[0]}
             sort {$a->[1] cmp $b->[1]}
             map  {[$_,(split / /)[4]]}
             splice(@log,-$n);

 et donc pour les lignes du genre:
Apr 9 15:58:32 vmonitor ntpd[31608]: ntpd 4.2.0a@1.1190-r Thu Oct 5 04:11:32 EiDT 2006 (1)
Apr 9 15:58:32 vmonitor ntpd[31608]: precision = 17.000 usec

Changement de programme car ce script va alé sur plusieurs machines et donc le vmonitore sera changé:
Apr 9 15:58:32 zulu ntpd[31608]: precision = 17.000 usec
Apr 9 15:58:32 chateau ntpd[31608]: Listening on interface wildcard, 0.0.0.0#123

comment faire pour generaliser et enlever ces fichus "[chiffres]"?

lami20j · Answer

comment faire pour generaliser et enlever ces fichus "[chiffres]"?

tu parles de quelles chiffres

tonixm · Answer

ceux la:

Apr 9 15:58:32 zulu ntpd[31608]: precision = 17.000 usec 
Apr 9 15:58:32 chateau ntpd[355588]: Listening on interface wildcard, 0.0.0.0#123 

je veux enlever tout ce qui est souligné

lami20j · Answer

Ben justemement cette partie (voir en gras) traite n'importe quoi, y compris les chiffresntpd)$$.*$$(:.*)/--
106485010510997108

tonixm · Answer

meme si avant on a:

grep {s/.*(vmonitor\s*ntpd)$$.*$$(:.*)/${1}$2/} @log;

car cette fois ci on a plus vmonitor only mais par exemple zulu ou chateau

lami20j · Answer

alors essaiegrep {s/.*(\w+\s*ntpd)$$.*$$(:.*)/${1}$2/} @log; --
106485010510997108

tonixm · Answer

merci

[PERL]- Extraire lignes d'un fichier à partir

36 réponses

Discussions similaires