#!/usr/bin/perl -w
use CGI::Carp qw( fatalsToBrowser );
use Encode qw(encode decode); $enc = 'utf-8';
$infile = "bb.txt";
$in{'bez'}="Rad";
¶m_in;
print qq*Content-type: text/html; charset=utf-8\n
*;
print "gesucht wird: $in{'bez'}
Ergebnis:
";
if (-T $infile) { open(ZEUG, "<$infile") || die "keine Textdatei\n";}
while() {
$testline=$_;
if ($testline =~ m/$in{'bez'}/i)
{ print "$testline <-- ich hab ein "$in{'bez'}" gefunden!
"; }
else
{ print "$testline
"; }
}
print qq*
Eine Suche nach F findet alle 3 F (groß und klein)
leider ist das bei den Umlauten nicht so"*;
exit(0);
#----------------------------------------------
sub param_in {
if ($ENV{'REQUEST_METHOD'} eq "GET") {
$buffer = $ENV{'QUERY_STRING'}; }
else {
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); }
@nvpairs = split(/&/,$buffer);
foreach $pair (@nvpairs) {
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$in{$name} = $value;
}
}