nicht angemeldet
OK. Quick & Dirty bevor ich heia geh...
Ähm, noch'n Gedicht:
use strict;
use Data::Dumper;
my $pattern = 'doedel';
my @lines = <DATA>;
chomp @lines;
{
push @lines, 'not found' and last unless grep { /$pattern/ } @lines;
@lines = map( _test($_), @lines );
}
print Dumper \@lines;
sub _test {
local $_ = shift;
return $_ .= (/$pattern/ ? '...found!' : '');
}
__DATA__
laber
rhabarber
rhabarbera
rhabarbara
haberlabera
Hach, Listenverarbeitung mit Perl macht einfach Spaß :)
Siechfred
--
Hinter den Kulissen passiert viel mehr, als man denkt, aber meistens nicht das, was man denkt.
Hinter den Kulissen passiert viel mehr, als man denkt, aber meistens nicht das, was man denkt.
Struppi
MudGuard