Discussion :

[bambi38]

Salut,

Je souhaiterai avoir le résultat de cette commande mais en perl.

Code :

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

grep  "supervision serveur:" /var/log/syslog.log | tail -1

Quelqu'un a une idée?

Je débute dans ce langage.

Merci.

@+

[Jedai]

En uniligne :

Code :

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

perl -ne '$l = $_ if m/supervision serveur:/ }{ print $l }' /var/log/syslog.log

Dans un script :

Code :

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

1
2
3
4
5
6
7
8
9
10
open my($file), '<', '/var/log/syslog.log'
  or die "Can't open syslog.log : $!\n";
my $final;
while( my $line = <$file> ) {
  $final = $line if $line =~ m/supervision serveur:/;
}
close $file;
 
if(defined $final) { print $final }
else { print "syslog.log ne contenait pas 'supervision serveur:'.\n" }

avec un peu plus de gestion d'erreur.

--
Jedaï