#!/usr/bin/perl
use strict;
use warnings;
use utf8; # script beinhaltet direkt utf8
use CGI::Carp qw( fatalsToBrowser );
use CGI;
use Encode qw(encode decode);
my $enc = 'utf-8';
my $cgi = CGI->new;
my $infile = "bb.txt";
my $bez = decode($enc, $cgi->param('bez')) || "Red";
# zur Ausgabe wieder kodieren
binmode STDOUT, ':encoding(UTF-8)';
print <<"EOM";
Content-type: text/html; charset=utf-8
EOM
print "gesucht wird: $bez
Ergebnis:
";
-T $infile or die "$infile not an ASCII file";
open my $fh, "<:encoding(UTF-8)", $infile or die "keine Textdatei: $!";
while (my $testline = <$fh>) {
if ($testline =~ m/$bez/i) {
print "$testline <-- ich hab ein "$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);