Community  »  CGI: Allgemeines Forum

Such nach ganzem Wort:	Seitenanfang
Hallo, ich bräuchte Hilfe. Mit dem folgenden Code kann man in einer txt-Datei nach einer auf einem HTML-Formular eingegebenen Zeichenkette suche: if(open(BIBLIO, "< $Bin/Nbbib.txt") or die $!) { while (<BIBLIO>) { chomp; my @splitted = split(/\t/, $_); my @results = grep { $_ ne "" } @splitted; my $found = scalar grep { $_ =~ m!$Formular{Suche}!i } @results; if($found) { print "<p>".join(", ", @results)."<br /></p>\n"; $counter++; } } close(BIBLIO); } Wie ist es möglich, nach einem alleinstehenden Wort zu suchen? Danke schon im voraus. Dareios Datum: 14.11.2004-11:24
re: Such nach ganzem Wort:	Seitenanfang
Ich hatte die Antwort schon einmal. Irgendwie muß ein b oder so in die Zeile my $found = scalar grep { $_ =~ m!$Formular{Suche}!i } eingefügt werden. Irgendwie hab ich den geänderten Code dann überschrieben. Die Antwort liegt auf Perl-Community, das derzeit aber nicht funktioniert. Dareios Datum: 14.11.2004-11:37
re: Such nach ganzem Wort:	Seitenanfang
Ja einfach davor und dahinter... m!\b$Formular{Suche}\b!i Wobei \b fuer alle Nicht-Wort-Zeichen gilt. Datum: 18.11.2004-13:44