perl-script zur Mail-log Auswertung (Seite 2) (Allgemeines zu Perl)

[thread]9924[/thread]

perl-script zur Mail-log Auswertung (Seite 2)

skynetworks

2007-08-02 22:23

User since
2007-05-24
10 Artikel
BenutzerIn
[default_avatar]

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:

Code: (dl )

   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

renee

2007-08-02 22:31

User since
2003-08-04
14371 Artikel
ModeratorIn

Wenn beides in einer Zeile steht:

Code (perl): (dl )

           if ( $line =~ m/from=<\s*(.*?)>.*?to=<\s*(.*?)>/ ){ push(@output, substr( $line, 0, 15 ) .' : '. $1 . '::'.$2) }

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/

skynetworks

2007-08-02 23:28

User since
2007-05-24
10 Artikel
BenutzerIn
[default_avatar]

funktioniert... Vielen Dank!

View all threads created 2007-08-01 21:53.