您的位置:建站学院首页 >> 文章 >> CGI技术
用 perl 实现文件上传

open (OUTFILE, ">$basedir/$fileName");
print "$basedir/$fileName<br>";
while (my $bytesread = read($file, my $buffer, 1024)) {
print OUTFILE $buffer;
}
close (OUTFILE);
}
}
$onnum++;
}

print "Content-type: text/html\n";
print "Location:$donepage\n\n";

本内容共2页  首 页  上一页  下一页  尾 页  当前在第2

Google
 
Web www.cqxw.net