nicht angemeldet
Struppi#!/usr/bin/perl
use CGI; # Modul fuer CGI-Programme
Warnungen und use strict sollten zumindest in der Entwicklungsphase immer eingeschaltet und eingebunden werden.
my $cgi = new CGI; # neues Objekt erstellen
Content-type fuer die Ausgabe
print $cgi->header(-type => 'text/html');
die datei-daten holen
my $file = $cgi->param("myfile");
Dateien in den Binaer-Modus schalten
Bis hierhin nutzt du das CGI Modul um dann:
print <<"HTML";
<html>
<head>
<title>Fileupload</title>
</head>
<body bgcolor="#FFFFFF">
<form action=upload.cgi method=post>
File <input type=file size=40 name=myfile>
<br><input type=submit value='ab die luzi'>
</form>
<p>
Dateiname = $file
<br>Die alte Datei war $l Bytes lang</body>
</html>
HTML
;
die wieder alles von zusammen zubasteln. Das CGI Modul bietet genau dafür Funktionen an dass du auf HTML code in deinem Perl Skript fast komplett verzichten kannst.
print $cgi->start_html(-title => 'Fileupload', -bgcolor => '#ffffff'),
$cgi->start_multipart_form(-action => 'upload.cgi'),
$cgi->p(
'File:' . $cgi->filefield(-name => 'myfile')
. '<br>'
. $cgi->submit( -value => 'ab die luzi')
),
$cgi->end_form(),
$cgi->p(
"Dateiname = $file<br>Die alte Datei war $l Bytes lang"
),
$cgi->end_html()
;
Struppi.