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

Code (perl): (dl )

1
2
3
4
5
6
7
8
9
10
11
12
13
14

#!/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);

Was passiert, wenn Du dieses Script aufrufst?
Wie wurde die Datei angelegt?

Man sollte uebrigens auch bei flock den Fehlerstatus ueberpruefen.