Logfile auslesen

[mayas]

Hi
Ich habe mal was zusammengebastelt und die files sehen so wie untenaufgeführt aus.

1. 'dellog' enthält den Shellbefehl um die alte Datei 'logfile.txt' zu löschen

Befehl: rm /perlscripts/logfile.txt

2. 'logfile_bn' ist ein Perlscript der die Daten von den Logfiles auflistet

Inhalt:
#!/usr/bin/perl -w

use strict;

open (LOG, "/backup.log/bn") or die "Kann logdatei nicht öffnen: $!\n";
while () {
print if /\berror\b/i;
}
close(LOG);

3. 'mail' ist ein Perlscript der die Datei die der Logfilescript erzeugt hat per sendmail versendet

Inhalt:

#!/usr/bin/perl -w

use strict;
use MIME::Lite;

my $msg = MIME::Lite->new(
From =>'mail@mail.ch',
To =>'mail1@mail.ch',
Cc =>'mail2@mail.ch',
Subject => "Logfile",
Type => 'application/PostScript',
Path => '/perlscripts/logfile.txt');
# Filename => 'logfile.txt');
$msg->send();


4. 'logfileversenden_bn' ist ein script der die scripte im punkt 1 bis 3 nacheinander ausführt.

Inhalt:

./dellog | ./logfile_bn > logfile.txt;
./mail

so sehen die Files aus jetzt wollte ich wissen ob ich das ganze auch mit nur einem script lösen kann und das file den ich senden will als eine Variable an den script mitgeben kann.

Danke und Gruss
mayas

[mayas]

hi
ich will den logfile.txt löschen wenn sie exsistiert und wenn nicht soll das übersprungen werden.


my $logfile="/mailscripts/logfile.txt";

hier her if $logfile lehr dann unlink überspringen wie mache ich das?

unlink $logfile;


nur ausführen wenn die Datei exsistiert?
danke
mayas

[mayas]

hi
dieser teil rufe ich so aus
./logfile_bn>logfile.txt



#!/usr/bin/perl -w

use strict;

open (LOG, "/backup.log/bn") or die "Kann logdatei nicht öffnen: $!\n";
while () {
print if /\berror\b/i;
}
close(LOG);


kann ich das auch im script in ein file umleiten?
danke
mayas