2012-08-01T07:58:48 Iggy86

danke schon mal!

Code: (dl )

open(IN,'<'.$f) || die "Can not open file $datei: $!";

Nimm doch das open mit 3 Argumenten!
open(my $IN, '<', $f) or die ... 

Quote

Code: (dl )

 		  if (grep{$_} @searchstring)

Das prüft nur, ob $_ wahr ist (und @searchstring mindestens 1 Element hat)!

Änderungen:
1. Nimm eine benannte Variable für die eingelesene Zeile, etwa $zeile
2. Nun kannst du $_ in dem grep (wird den Elementen aus @searchstring zugeordner) sinnvoll werwenden, indem du es mit $zeile vergleichst.

-> grep { /\Q$zeile/ } @searchstring