Zeichenkette aus String "heraustrennen" - #70780 (Allgemeines zu Perl)

renee

2006-10-15 13:34

User since
2003-08-04
14371 Artikel
ModeratorIn

[quote=opi,14.10.2006, 20:51]

Code: (dl )

[...]

while (defined (my $line = shift @vfile)) {
   push @errs, $line =~ /(Error \d+)/;
   # fuer mehrere Fehlermeldungen in einer Zeile
   # push @errs, $_ for $line =~ /(Error \d+)/g;
}

[...]

[/quote]
Man kann bei mehreren Fehlermeldung in einer Zeile auch einfach

Code: (dl )

push @errs, $line =~ /(Error \d+)/g;

machen, da man push auch eine Liste von einzufügenden Elementen übergeben kann.

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/