hi,
habe folgendes in meiner suchfunktion mal probiert:
$text = $POST{„suchbegriff“};
$text_klein = lc($text);
es wird alles schön in kleinbuchstaben umgewandelt nur diese dusseligen umlaute nicht.
auch ( /$POST{„suchbegriff“}/gio)
bearbeitet die umlaute nicht. nach einem tip habe ich noch use locale angegeben, aber es tut immer noch nicht.
was muß ich denn jetzt noch angeben, denn laut buch müßte
lc() tun. was habe ich denn vergessen?
hier das wichtigste:
#!/usr/local/bin/perl
#use locale;
read(STDIN, $buffer, $ENV{CONTENT_LENGTH});
@pairs = split(/&/, $buffer);
foreach $pair (@pairs)
{
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack(„C“, hex($1))/eg;
$POST{$name} = $value;
}
use locale;
$myfile= „suchdb.txt“;
$text = $POST{„suchbegriff“};
$text_klein = lc($text);
open(MYFILE,")
{ if ( /$POST{„suchbegriff“}/gio)
{
($aliste[$zaehler], $gliste[$zaehler]) = split(/;/);
$zaehler=$zaehler+1;
}
}
close (MYFILE);
print „Suchergebnis $text_klein“;
danke nn