示例的 HTML 文件如下：
<html>
<body>
<form method="POST" action="psupload.cgi" ENCTYPE="multipart/form-data">
File 1:
<input type="file" name="FILE1">
<br>
File 2:
<input type="file" name="FILE2">
<br>
<input type="submit" value="Upload!">
</form>
</body>
</html>
后台的 Perl 程序如下：
#!/usr/bin/perl
#######################################
## Perl Services Upload Helper v1.0 ##
## http://www.perlservices.com ##
## perlservices@perlservices.com ##
## ###########################################
## You should carefully read all of the following terms and conditions ##
## before using this program. Your use of this software indicates your ##
## acceptance of this license agreement and warranty. ##
## This program is being distributed as freeware. It may be used ##
## free of charge, but not modified below the line specified. This copyright ##
## must remain intact. ##
## ##
## By using this program you agree to indemnify Perl Services from any ##
## liability. ##
## ##
## Selling the code for this program without prior written consent is ##
## expressly forbidden. Obtain permission before redistributing this ##
## program over the Internet or in any other medium. In all cases the ##
## copyright must remain intact. ##
## ##
## There are security hazards involved with this script. Read the readme file##
## before using the script. ##
################################################################################
##
## Start setting up options here:
## Your path to where you want your files uploaded.
## Note: NO trailing slash
$basedir = "/home/path/to/directory";
## Do you wish to allow all file types? yes/no (no capital letters)
$allowall = "yes";
## If the above = "no"; then which is the only extention to allow?
## Remember to have the LAST 4 characters i.e. .ext
$theext = ".gif";
## The page you wish it to forward to when done:
## I.E. http://www.mydomainname.com/thankyou.html
$donepage = "http://www.perlservices.com/";
################################################
################################################
## DO NOT ED99v OR COPY BELOW THIS LINE ##
################################################
################################################
use CGI;
[1] [2] 下一页
如果您有什么疑问,可以至论坛提出或者解答他人的疑问 返回页面顶部
『用 perl 完成文件上传』如果文章有大量图片,显示会较慢,请等待图片下载完成 
