Thread Zeichensuche (5 answers)
Opened by Silvos at 2007-05-14 15:17

Silvos
 2007-05-14 15:17
#76691 #76691
User since
2007-05-12
3 Artikel
BenutzerIn
[default_avatar]
Hallo zusammen.

Ich habe folgendes Script um immer eine Zeile einer Datei nach einem Wort zu durchsuchen.
Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
#!/usr/bin/perl

print "Suchbegriff: ";
$sch=<STDIN>;
open(FILE, "index")

or die "Fehler beim oeffnen der Datei!!!\n";

while(defined ($var=<FILE>))
{
if($var=~/$sch/)
{
print "true\n";
}
}

Doch es gibt nur "true" aus, wenn ich die ganze Zeile als Suchbegriff eingebe.

Wie kann man machen, dass es schon true ausgibt, wenn nur ein Wort in der Zeile dem Suchbegriff entspricht?

Danke schonmal.

View full thread Zeichensuche