Opened by Gast at 2004-08-24 14:09
Der Interpret liest die Datei nicht ein, die Dateien liegen im gleichen Verzeichnis.
Was mache ich falsch??
Der Code unten
Danke
------------------------------------------------------------------------------------------
-------------------------
edit pq: code-tags hinzugefügt\n\n
<!--EDIT|pq|1093343246-->
Was mache ich falsch??
Der Code unten
Danke
------------------------------------------------------------------------------------------
-------------------------
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
#!/usr/bin/perl-w
use strict;
open(DATEI,"text.txt")
or die"Datei kann nicht ge\x94ffnet werden weil:$!\n";
my $text;
undef$/;$text=<DATEI>;
while($text=~m/Haus/g)
{
print"Das Wort Haus wurde gefunden.\n";
}
close(DATEI);
edit pq: code-tags hinzugefügt\n\n
<!--EDIT|pq|1093343246-->