Dateinamen mit Umlauten - #106017 (Allgemeines zu Perl)

Gast Gast

2008-02-17 22:48

Das Problem ist das die Dateien schon so bestehen und so wie es aussieht sind da teilweise noch ganz andere Zeichen als Umlaute drin. Sonst wäre ich nie auf die Idee gekommen sowas zu machen. Leider kenne ich mich mit Perl nicht so aus, PHP hat leider heftige Probleme mit utf-8 so das ich in diesem Fall umgestiegen bin.

So sieht das bis jetzt aus:

Code (perl): (dl )

#!/usr/bin/perl -w
use strict;
use CGI::Carp qw(fatalsToBrowser);

use utf8;
use open ':encoding(utf-8)';
binmode STDOUT, ':encoding(utf-8)';

open(HTML_FILE, '<',"./html/Holzfäller.htm") || die "Datei nicht gefunden";
use Fcntl ':flock';
flock(HTML_FILE, LOCK_SH);
read(HTML_FILE, my $data, 1000);
flock(HTML_FILE, LOCK_UN);
close(HTML_FILE);