Opened by skynetworks at 2007-08-01 21:53
User since
2007-05-24
10 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2007-05-24
10 Artikel
BenutzerIn
Ich habs schon fast hinbekommen, etwas anders:
while (my$line = <$fhin>)
{
if ($line =~ m/\bNOQUEUE\b/)
{
# wenn der Suchstring "NOQUEUE" vorkommt,
# und "from=<" gefunden wird,
# wird das ausgabearray erweitert
# der Text zwischen from=< und > wird dann ins outputfiluebergeben
# zusammen mit dem datum von zeichen 0-15 in dieser Zeile
if ( $line =~ m/from=<\s*(.*?)>/ )
{ push(@output, substr( $line, 0, 15 ) .' : '. $1) }
}
Damit bekomme ich zumindest einen Teil meiner Auswertung hin. Ich möchte aber halt noch, daß der to-teil aus dem Logfile mitgeschrieben wird.
Ich dachte das könnte so klappen:
Will aber nicht.... Bin halt leider ein Perl-Laie. Vielleicht hat nochmal jemand 'nen Tip?
Danke & Gruss
Thomas
while (my$line = <$fhin>)
{
if ($line =~ m/\bNOQUEUE\b/)
{
# wenn der Suchstring "NOQUEUE" vorkommt,
# und "from=<" gefunden wird,
# wird das ausgabearray erweitert
# der Text zwischen from=< und > wird dann ins outputfiluebergeben
# zusammen mit dem datum von zeichen 0-15 in dieser Zeile
if ( $line =~ m/from=<\s*(.*?)>/ )
{ push(@output, substr( $line, 0, 15 ) .' : '. $1) }
}
Damit bekomme ich zumindest einen Teil meiner Auswertung hin. Ich möchte aber halt noch, daß der to-teil aus dem Logfile mitgeschrieben wird.
Ich dachte das könnte so klappen:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
while (my$line = <$fhin>)
{
if ($line =~ m/\bNOQUEUE\b/)
{
# wenn der Suchstring "NOQUEUE" vorkommt,
# und "from=<" gefunden wird,
# wird das ausgabearray erweitert
# der Text zwischen from=< und > wird dann ins outputfiluebergeben
# zusammen mit dem datum von zeichen 0-15 in dieser Zeile
if ( $line =~ m/from=<\s*(.*?)>/ )
AND if ( $line =~ m/to=<\s*(.*?)>/ )
{ push(@output, substr( $line, 0, 15 ) .' : '. $1) }
}
}
Will aber nicht.... Bin halt leider ein Perl-Laie. Vielleicht hat nochmal jemand 'nen Tip?
Danke & Gruss
Thomas