mein script verweigert ignore_case in utf-8 pattern matching (gelöst) - #167912 (Perl/CGI)

technix

2013-06-03 17:53

User since
2013-06-02
10 Artikel
BenutzerIn
[default_avatar]

wieder stundenlang Vieles ausprobiert, kein Erfolg.

Code (perl): (dl )

use Encode qw(encode decode); $enc = 'utf-8';
...
$in{'bez'} = decode($enc, $in{'bez'});
if ($feld[6] =~ m/$in{'bez'}/i) { .......
#
# $feld[6] ist ein Teil der zeilenweise ausgelesenen Datei
# in $in{'bez'} steht per cgi übergeben, was ich finden will
# alles funzt problemlos, ö und Ö werden gefunden, nur der 
# modifier 'i' m/$in{'bez'}/i weigert sich 'case ignoring'
# zu arbeiten.

@Linuxer:
Du meinst, die Datei müßte zum Lesen mit .... <:encoding(UTF-8)', $file eingelesen werden. ich mache dies also mit

Code (perl): (dl )

open(MYTEXT, "<:encoding(UTF-8), $infile") || die "Datei verstorben"

sobald ich diese eine Zeile wie oben schreibe, stürzt das Script schon beim Start ab, use CGI::Carp qw( fatalsToBrowser ); meldet gar nichts. Die Syntax zum Daten-Einlesen ist aber doch richtig oder?