- 论坛徽章:
- 0
|
############# 第一个文件；
<html>
<head></head>
<body>
<div>
<form method = "post" action ="other.html">
<input type="file" value="upload" name="upload"/>
<input type="text" name="description" >
<input type="submit" value="submit" />
</form>
</div>
</body>
</html>
## 第二个文件：
<%args>
$upload
$description
</%args>
<%init>
use CGI;
use strict;
open(OUT,'> C:/shop/perl/'); # || or die "faild";
my $buffer;
binmode OUT;
while (my $bytesread = read($upload,$buffer,1024)) {
print OUT $buffer;
}
close OUT;
</%init>
<div> 这里还有很多的内容</div>
问题：没有提示错误，但文件夹也没有文件 。 |
|
免费注册
发表于 2010-12-06 17:30
发表于 2010-12-06 17:44