nicht angemeldet
use Mosche;
Zum Glück wird der Valli nie dieses Stück Quellcode sehen :-)
'<html><head><title></title></body><p>dies ist ein langer text<p>und noch ein text suchwort1<p>und ein weiterer text (inzwischen schon der dritte) suchwort2<p></body></html>',
Mir ist noch eine performanzkritische Verbesserung eingefallen.
push (@{$q{$url}},$1) if (grep { $1 =~ /$_/ } @searchwords;
Du nimmst die Regex in grep {} raus und setzt statt dessen:
push @{$q{$url}},$1 if grep { index($1,$_)+1 } @searchwords;
Das sollte ein bißchen schneller laufen, geht aber nur, wenn du nicht irgenwelche Modifier reinbauen willst.
use Tschoe qw(Matti);