funktion kompakter schrieben - #104367 (Allgemeines zu Perl)

renee

2008-01-03 23:04

User since
2003-08-04
14371 Artikel
ModeratorIn

Aber auf $& sollte man verzichten - es bremst *alle* Regulären Ausdrücke im Programm aus...

Mach aus

Code: (dl )

1
2
3

12: if ($test =~ m/$string/i){
13:         print "GEFUNDEN! ($&)\a\a\a\a";
14: }

einfach

Code: (dl )

1
2
3

12: if ($test =~ m/($string)/i){
13:         print "GEFUNDEN! ($1)\a\a\a\a";
14: }