Opened by monetron at 2004-01-23 16:13
User since
2003-10-23
15 Artikel
BenutzerIn
![[Homepage]](/battie/theme/default/homepage.gif)
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-10-23
15 Artikel
BenutzerIn
Huuuuhh,
da hat sich echt was entwickelt aus meiner Frage.
Vielen Dank an alle die hier !!!!
Mein Problem ist gelöst und das Script läuft produktiv.
Es durchsucht ein logfile nach Error - Meldungen und
extrahiert immer nur die neuesten und gibt diese per mail
aus.
der Teil der hier diskutiert wurde sieht nun so aus:
da hat sich echt was entwickelt aus meiner Frage.
Vielen Dank an alle die hier !!!!
Mein Problem ist gelöst und das Script läuft produktiv.
Es durchsucht ein logfile nach Error - Meldungen und
extrahiert immer nur die neuesten und gibt diese per mail
aus.
der Teil der hier diskutiert wurde sieht nun so aus:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
# extract new E. messages out of array
$firstnewmess=$newcount-($newcount-$oldcount)+1;
$match=0;
while ( $match ne $firstnewmess ){
$line = pop @errlist or last;
if ($line =~ /^--\s(\d+)\s-*/){ $match = $1};
unshift @difflist, $line;
}
$output=join ("\n",@difflist);