Wieder mal eine RegEx-Optimierungs-Frage - #96773 (Allgemeines zu Perl)

topeg

2007-07-30 07:10

User since
2006-07-10
2611 Artikel
BenutzerIn

user image

Code (perl): (dl )

(my $suchbegriff)=$string =~ /(?:\?|&)q=(.+?)(?:&|$)/;

erkennt:
bla.cgi?q=suchbegriff
bla.cgi?q=suchbegriff&blaq=blub
bla.cgi?wasq=anderes?q=suchbegriff
bla.cgi?wasq=anderes?q=suchbegriff&blaq=blub