Re: 如何用Perl/CGI upload文件到server

发言者:leaf
发表时间:2000年7月03日 19时43分09秒

前几天贴了这个问题，谢谢who, STROLDCAT, SW的指点。
按who的方法从yahoo搜索Perl upload，找到了很多关于这个问题的网页。

下面的程序运行顺利，
(变量名好象是德文)

Der HTML-Code:

<form name="Upload" action="cgi-bin/upload.pl" method="POST" enctype="multip
art/form-data">
<input type="file" name="Datei" size="30">
<input type="submit" value="Upload starten">
</form>




Das Perl-Skript:

#!/usr/bin/perl

binmode STDIN;
read STDIN, $Daten, $ENV{'CONTENT_LENGTH'};

@Teile = split /-----------------------------.{9}/, $Daten;
@Datei = split /\n/, $Teile[1], 5;
while ($Datei[1] =~ /\\/) { $Datei[1] =~ s/^.*\\//; }
$Datei[1] =~ s/"//;
chop $Datei[1];
chop $Datei[4]; chop $Datei[4];

open DATEI, ">$Datei[1]";
binmode DATEI;
print DATEI $Datei[4];
close DATEI;

print "Content-type: text/html\n\nUpload vollstandig!";



Please visit our sponsors.
Please visit our sponsors.