Suche in bestimmten Zeilen nach bestimmtem Wort - #72894 (Allgemeines zu Perl)

renee

2007-01-14 17:19

User since
2003-08-04
14371 Artikel
ModeratorIn

Angenommen, in $flag ist mit 0 gespeichert wenn nur in den bestimmten Zeilen gesucht werden soll, mit 1 wenn im gesamten Eintrag gesucht werden soll:

Code: (dl )

1
2

 my @aacc = ($flag == 0) ? grep{/^(?:AA|CC)/}@lines : @lines;
 my @temp = grep{/^(?:BB|DD|EE)/}@lines;

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/