Leser: 5
|< 1 2 >| | 19 Einträge, 2 Seiten |
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);
Gast+2008-02-17 20:41:20--Doch, ist schon Webpogrammierung.(warum auch nicht?) Hier habe ich Win2000 zum testen, aber ich denke mal das ganze soll später wahrscheinlich unter Linux oder Unix laufen.
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);
|< 1 2 >| | 19 Einträge, 2 Seiten |