8 Einträge, 1 Seite |
1
2
3
my $string = "asdfasdfasdf[TEST]asdfasdf a asfd asfd a f\nasdfasdfasfd[ASDF]asdf[ER]\n";
my @treffer = $string =~ m/(\[.*?\])/gs; # das ? hinter dem * sorgt dafür, dass nicht alles zwischen der ersten [ und der letzten ] in einen Treffer eingefangen wird.
print join( "\n", @treffer) , "\n";
1
2
3
my @alle_treffer = $string =~ /Reg(ex)mit_Matches/g;
print "Treffer: $_\n" for @alle_treffer
8 Einträge, 1 Seite |