Dateinamen mit Umlauten - #106027 (Allgemeines zu Perl)

Strat

2008-02-18 09:51

User since
2003-08-04
5246 Artikel
ModeratorIn

Gast+2008-02-17 21:48:09--

Code (perl): (dl )

1
2
3

open(HTML_FILE, '<',"./html/Holzfäller.htm") || die "Datei nicht gefunden";
use Fcntl ':flock';
flock(HTML_FILE, LOCK_SH);

Teste mal:

Code (perl): (dl )

use FindBin;
use File::Spec;
use Fcntl qw( O_RDONLY O_EXCL );
my $filename = File::Spec->catfile( $FindBin::Bin, '..', 'html', 'Holzfäller.htm' );

sysopen( my $HTML_FILE, $filename, O_RDONLY | O_EXCL )
    or die "Error: couldn't open file '$filename': $!\n";
... mach was mit $HTML_FILE

FindBin::Bin gibt den Pfad zum Script zurueck
File::Spec baut den vollen Pfad abhängig von deinem OS zusammen.

Wenn das Script in UTF8 gespeichert wird, sollte das so funktionieren.

ich bevorzuge für open + flock den Befehl [perldoc -f]sysopen[/perldoc] mit den entsprechenden flags.

perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/