|< 1 2 >| | 13 Einträge, 2 Seiten |
=~ s!(<td>foo</td>){5}!$1{4}<td>link</td>!
1 2 3 4 5 6 7 8 9 10 11
#!/usr/bin/perl use strict; use warnings; use Data::Dumper; my $string = 'Test'; my @treffer = $string =~ /(T)(e)(s)(t)/; my @array = $string =~ /(T)(?:e)(s)(t)/; print "Treffer: ", Dumper(\@treffer),"\n", "Array: ", Dumper(\@array),"\n";
|< 1 2 >| | 13 Einträge, 2 Seiten |