Suchen in txt Datei

[Timo Ballin]

wenn du die ganze datei durchsuchen willst würde ich zuerst das machen:

{
 local $/ = undef; # der zeilen trenner wird in diesem block auf undef gesetzt

$search = <FH>;
 if ($search =~ /blade/i ) { print "found }; # i matcht ignore case
}

Die datei sollte dann natürlich nicht endlos gross sein. da er sie sich jetzt in einem rutsch reinsaugt.

wenn du keinen block benutzen willst musst du $/ vorher sichern
my $safe = $/;
$/ = undef;
... blub...
$/ = $save;