Mehrzeiliges Matching (Allgemeines zu Perl)

[thread]8995[/thread]

Mehrzeiliges Matching

Leser: 1

mr-sansibar

2007-05-11 17:32

User since
2006-04-13
90 Artikel
BenutzerIn
[default_avatar]

Hallo wieder einmal ein Problem !
Kann mir zeigen wie ich ein String, das mit Message anfängt und über mehrer Zeilen hinweg geht in ein Scalar abspeichert. Das einlesen soll bis das Muster Context kommt eingelesen werden.
BSp:

Context: 20.04.2007 09:15:05,914 48 de.xxx.xxx.net.modules.login.LoginEventHandler
Message: Authentication code after login [0], message [null], orderchannel [48]

Context: 20.04.2007 10:36:29,655 48 de.xxx.xxx.net.modules.login.LoginEventHandler
Message: Exception with Uuid b22568b2-2231-4aad-9d19-4e1011a65e76 occured in the backend... Bei der Verarbeitung sind fachliche Fehler aufgetreten.
BusinessServiceException: [msg: Bei der Verarbeitung sind fachliche Fehler aufgetreten. - code: DNFFSY0001] ValidationErrors [1 error(s)]: Error occured [code: DNFFGL0009 - msg: Die von Ihnen angegebenen Login-Daten sind nicht korrekt. Bitte versuchen Sie es erneut! (Hinweis: Bei dreimaliger Falscheingabe Ihres Kennwortes wird Ihr Zugang gesperrt.)]; [uuid: b22568b2-2231-4aad-9d19-4e1011a65e76]
at de.xxx.techarch.login.LoginImpl.authenticate(LoginImpl.java:136)
at sun.reflect.NativeMethodAccessorImpl.invoke0(Native Method)

Context: 20.04.2007 10:36:29,671 48 de.deka.dekanet.aop.interceptor.UseCaseInfoLoggingInterceptor
Message: [postHandle] leaving usecase [class de.deka.dekanet.modules.login.LoginUseCaseContext], state [loginError], jsp [/useCases/login/redirectToLogin.jsp], context: ACTION_FIELD=[, parsed: null]; loginUser=[b015489, parsed: b015489]; procurerId=[Org00064, parsed: Org00064]; orderChannel=[48, parsed: 48]; nextpage=[, parsed: null];\n\n

renee

2007-05-11 17:37

User since
2003-08-04
14371 Artikel
ModeratorIn

Code (perl): (dl )

#!/usr/bin/perl

use strict;
use warnings;
use Data::Dumper;

my $file = '/path/to/file.txt';

my @array;

{
    local $/ = "\nMessage:";
    open my $fh, '<', $file or die $!;
    while( my $entry = <$fh> ){
        chomp $entry;
        $entry = "Message:".$entry unless $entry =~ /^Message/;
        push @array,$entry;
    }
    close $fh;
}

print Dumper(\@array);

(ungetestet)

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/

View all threads created 2007-05-11 17:32.