Opened by juma at 2009-09-17 14:57
Hallo liebe Perlgemeinde,
ich möchte auf einer Linuxmaschine ein Perlskript schreiben, was ein Logfile nach Errors durchsucht und in einem Ergbnis.Log file diese ausgibt.
ich habe bis jetzt folgendes, aber es läuft nicht richtig:
So und das funktioniert iwie nicht. Es schmeisst mir immer die Error message raus und öffnet nicht das file welches aber genau in der Pfadangabe liegt und auch so heißt. Ich nehme an ich habe da etwas generelles falsch. Bitte um hilfe, fange erst mit Perlprogrammierung an.
Vielen Dank
juma
ich möchte auf einer Linuxmaschine ein Perlskript schreiben, was ein Logfile nach Errors durchsucht und in einem Ergbnis.Log file diese ausgibt.
ich habe bis jetzt folgendes, aber es läuft nicht richtig:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
#! /usr/bin/perl -w
use XML::Parser;
use Data::Dumper;
my $Kursname = "server12.KursServer";
my $KursErg = "Ergebnis.Log";
my $Logpath = "data/home/user1/Perl";
my $Log = "$Kursname.2009-08-21.log";
my $Variable = "HTTP ERROR";
open ($Logpath, "<Log>");
print "Error message: text/Log\n";
@ErrorList = ();
foreach $Line (Logpath)
{
if ($Line = ($Variable))
{
print "- ".$."<BR>";
push(@$KursErg, $1);
}
}
open (OUT,">KursErg");
print OUT @$KursErg;
close (OUT);
So und das funktioniert iwie nicht. Es schmeisst mir immer die Error message raus und öffnet nicht das file welches aber genau in der Pfadangabe liegt und auch so heißt. Ich nehme an ich habe da etwas generelles falsch. Bitte um hilfe, fange erst mit Perlprogrammierung an.
Vielen Dank
juma