perl – 如何处理HTTP文件上传?
发布时间:2020-12-15 23:30:50 所属栏目:大数据 来源:网络整理
导读:如何编写通过HTTP帖子接收文件的Perl CGI脚本并将其保存到文件系统? 解决方法 只需注意:但是您将编写它,不要将其保存在可从Web服务器访问的位置. 现在到了这一点:下面是我用了一段时间进行照片上传的脚本.它可能需要一些调整,但应该告诉你的方式. 由于图
如何编写通过HTTP帖子接收文件的Perl CGI脚本并将其保存到文件系统?
解决方法
只需注意:但是您将编写它,不要将其保存在可从Web服务器访问的位置.
现在到了这一点:下面是我用了一段时间进行照片上传的脚本.它可能需要一些调整,但应该告诉你的方式. 由于图像没有上传到网络可访问的目录,我们有单独的过程检查它,调整大小,放置水印并将其放置在可以访问的位置. #!/usr/bin/perl -wT use strict; use CGI; use CGI::Carp qw ( fatalsToBrowser ); use File::Basename; $CGI::POST_MAX = 1024 * 5000; my $safe_filename_characters = "a-zA-Z0-9_.-"; my $upload_dir = "/home/www/upload"; my $query = new CGI; my $filename = $query->param("photo"); my $email_address = $query->param("email_address"); if ( !$filename ) { print $query->header ( ); print "There was a problem uploading your photo (try a smaller file)."; exit; } my ( $name,$path,$extension ) = fileparse ( $filename,'..*' ); $filename = $name . $extension; $filename =~ tr/ /_/; $filename =~ s/[^$safe_filename_characters]//g; if ( $filename =~ /^([$safe_filename_characters]+)$/ ) { $filename = $1; } else { die "Filename contains invalid characters"; } my $upload_filehandle = $query->upload("photo"); open ( UPLOADFILE,">$upload_dir/$filename" ) or die "$!"; binmode UPLOADFILE; while ( <$upload_filehandle> ) { print UPLOADFILE; } close UPLOADFILE; print $query->header ( ); print <<END_HTML; <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "DTD/xhtml1-strict.dtd"> <html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en"> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8" /> <title>Thanks!</title> </head> <body> <p>Thanks for uploading your photo!</p> </body> </html> END_HTML (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |