nicht angemeldet
DANKE EUCH!
CHRISTIAN ich habe tats. noch nicht alles verstanden.
Ich habe die Lösung von ALex genommen und es funktioniert... bis auf ein kleines Problem. Wenn das zu zählende Wort im Script kein einziges Mal vorkommt , erhalte ich einen internalservererror.
das script:
$datei = '*.txt';
{
# Recordseparator "lokal" machen
local $/;
open (DATEI, $datei) die "Kann $datei nicht öffnen: $!";
# Datei in eine einzelne Variable lesen
$content = <DATEI>;
close DATEI;
# Anzahl von gesuchtesWort bestimmen
$num_of_word = $content =~ s/(gesuchtesWort)/$1/g;
}
print "Content-Type: text/html\n\n";
print "<html>";
print "<body>";
print "<font face = "Comic Sans MS" size = "3">";
print "(";
print $num_of_word;
print ")";
print "</body>";
print "</html>";