带文件得form上传perl cgi脚本

最新推荐文章于 2021-08-13 17:39:20 发布
最新推荐文章于 2021-08-13 17:39:20 发布
阅读量1.1k 收藏
点赞数
分类专栏： Perl
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/firstephen/article/details/9458317
版权
#! /usr/bin/perl -w


use strict;
use Fcntl;    # C fcntl.h得对应模块，这里会使用其中定义得O_xx等常量。
use CGI;

＃定义一些系统控制常量
use constant RECEIVE_FILE_PATH => '/Library/WebServer/Received';
use constant BUFFER_SIZE => 10_240;
use constant MAX_SIZE_FILE_PATH => 1024*1024*512;


my $q = new CGI();
$q->cgi_error and &error($q, 'Having error creating cgi handle: '.$q->cgi_error);
my $username = $q -> param('uname') or &error($q, 'username cannot be fetched');
my $password = $q -> param('pw') or &error($q, 'password cannot be fetched');

＃获取上传文件得文件名
my $file = $q -> param('upload_file') or &error($q, 'upload file name cannot be fetched');

＃获取上传文件得本地文件句柄
my $fh = $q -> upload('upload_file') or &error($q, 'cannot get the handler of uploaded file with name - '.$file);

＃ 检查上传文件存储目录，确认未超出限定size值
&file_path_volume_check($q);

＃用控制力强得sysopen打开用于写入得句柄，并且保持句柄对应的文件不重名。
until(sysopen(OUTPUT, RECEIVE_FILE_PATH."/$file", O_CREAT|O_EXCL|O_WRONLY)){
$file =~ s/(\w+)(\.\w+)$/$1_$2/;
}

＃这是简便的方式，但控制力较弱，不能表达一些sysopen有的逻辑。
#open OUTPUT, "> ".RECEIVE_FILE_PATH."/$file";
# or &error($q, 'open OUTPUT fails');  

＃把读写句柄都设置成2进制模式，以免处理的是上传的2进制文件(jpg, zip.....)
binmode $fh;
binmode OUTPUT;


my $buffer ="";

＃循环从硬盘读出BUFFER_SIZE大小的字节到内存，然后再通过OUTPUT写入磁盘。这是对无边界的二进制数据的操作方式。
while(read($fh, $buffer, BUFFER_SIZE)){
print OUTPUT $buffer;

}

＃如果就是上传的文本(.txt)的话，可用下面简便方式

#while(<$fh>){
# print OUTPUT $_;
#}


close $fh;
close OUTPUT;


&error($q, 'Thank you for uploading!'); 


sub file_path_volume_check{
my ($q) = @_;
opendir DIR, RECEIVE_FILE_PATH or error($q, '/Library/WebServer/Received cannot be opened');
my $path_size;
while(readdir DIR){
$path_size += -s RECEIVE_FILE_PATH."/$_";
} 
erorr($q, 'Library/WebServer/Received  is full, cannot receive more files.') if($path_size > MAX_SIZE_FILE_PATH);
}
sub error{
my ($q, $aug) = @_;
print $q -> header('text/html'),
 $q -> start_html('ERROR'),
 $q -> p('Error is: '.$aug),
 $q -> end_html();
exit 1;

}


*************************************************************

对应的html：

<html>
<head>
Sample Form
</head>
<body>
<p>
<form action='/cgi-bin/form_processor.cgi' method='post' enctype='multipart/form-data'>   ＃enctype='multipart/form-data' 这种media type格式支持文件上传
username: <input type='text' name='uname' value='username' size='20'><br>
dummy password: <input type='password' name='pw' value='dummy password' size='20'>
<br><br>
<input type='file' name='upload_file'>
<input type='submit' name='submit_button' value='Upload File'>
</form>
   </p>
</body>
</html>


firstephen
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
perl post 上传文件
zhaoyangjian724的专栏
11-30 1406
###列出组信息 use LWP::UserAgent; use LWP; use Encode; use LWP::Simple; use LWP::UserAgent; use HTTP::Cookies; use HTTP::Headers; use HTTP::Response; use Encode; use URI::Escape; use URI::URL; use JSON;
如何使用CGI.pm模块和Perl上传文件
IT与开发人员的地盘
05-22 789
注意 ：如果只需要perl代码，则可以跳到文章结尾。 介绍 将文件从本地计算机上传到远程Web服务器具有许多有用的目的，其中最明显的是文件共享。 例如，您将图像上载到服务器以通过Internet与其他人共享图像。 Perl已准备就绪，可以通过CGI.pm模块上传文件，而CGI.pm模块一直是核心模块，它允许用户执行许多操作而无需了解很多底层技术。 本文本身不是perl教程。 我不会在幕后...
perl上传文件实例程序
stonesharp的专栏
07-15 2031
示例的 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
perl脚本将文件上传至服务器,Perl实现远程上传脚本并执行
weixin_39527487的博客
08-13 542
前面懒人之脚本配置snmp服务文章提到，提到用perl 写非交互远程登录，上传安装脚本，并执行。呵呵 用了一天才完成，最后朋友给加了，循环。下面脚本经过测试没问题，这脚本还的改进，我需要从服务器上下载日志到本地。1 #!/usr/bin/perl2 #Author:luyafei3 #Email:chulianwang@qq.com4 #The script used as uplo...
perl cgi编程简介
stonesharp的专栏
01-12 4174
CGI是什么 ? 通用网关接口CGI，是一组标准定义之间交换信息的Web服务器和自定义脚本。 维护NCSA和NCSA CGI规范定义CGI如下： 通用网关接口CGI，是一个标准的外部网关程序接口与信息服务器，如HTTP服务器。 目前的版本是CGI/1.1和CGI/1.2正在进行中。 网页浏览 要理解这个概念的CGI，让我们看看会发生什么，当我们点击一个超链接，浏
Perl_CGI.rar_4 3 2 1_cgi_html form perl cgi_perl cgi
09-14
Perl_CGI六天入门 第一天 1.1 Unix环境 1.2 chmod命令 1.3 定位Perl和sendmail 第二天 2.1 使用Emacs 2.2 Perl简介 2.3 HTML FORM 第三天 3.1 回应脚本 3.2 脚本解释 3.3 BODY部分 第四天 4.1...
CGI文件上传
11-06
总的来说，CGI文件上传涉及了客户端的HTML表单交互、HTTP请求、服务器端的CGI脚本处理以及服务器配置等多个环节。理解并掌握这些知识点，可以让你成功地实现在Web应用程序中添加文件上传功能。在实际开发中，考虑到...
Perl CGI编程
01-03
Perl CGI编程 什么是CGI CGI 目前由NCSA维护，NCSA定义CGI如下： CGI(Common Gateway Interface),通用网关接口,它是一段程序,运行在服务器上如：HTTP服务器，提供同客户端HTML页面的接口。 网页浏览 为了更好的了解...
Perl CGI六天入门
06-14
第一天 1.1 Unix环境 1.2 chmod命令 1.3 定位Perl和sendmail 第二天 2.1 使用Emacs 2.2 Perl简介 ...5.1 留言板CGI代码 5.2 代码详解 5.3 读取log文件 第六天 6.1 设置口令 6.2 计数器
CGI.pm-3.20.tar.gz_CGI.pm_cgi perl
09-23
CGI.pm是一个Perl模块，专为创建Web服务器上的Common Gateway Interface (CGI)脚本而设计。这个3.20版本的CGI.pm压缩包包含了对CGI编程的支持和改进，使得Perl开发者能够更轻松地处理HTTP请求和响应。本文将深入探讨...
用 perl 实现文件上传
04-16
用 perl 实现文件上传
Uploading Files Using CGI and Perl
peakerli的专栏
06-02 1962
Uploading Files Using CGI and PerlWould you like to give your visitors the ability to upload files to your site? Letting them upload content with their Web browsers can be very useful, and fun too!
CGI实现文件的上传和下载
热门推荐
liuxu324的博客
02-26 1万+
1.文件上传        该功能通过使用cgic来实现。 (1)界面代码 &lt;form action="file-up/download.cgi" enctype="multipart/form-data" method="post"&gt; &lt;table&gt; // 上传文件必须设置为post + multi...
perl脚本将文件上传至服务器,apache - 如何使用CGI Perl脚本在xampp apache服务器中上载和打开文件？ - 堆栈内存溢出...
weixin_28718769的博客
08-13 304
此代码在我的本地xampp apache服务器中工作正常。 我在具有不同IP地址系统的局域网中运行相同的代码。 该文件无法打开，我无法将其写入所需的目录。 请做有需要的吗？ 提前致谢。通过下面的代码传递xml文件。#!"C:\xampp\perl\bin\perl.exe"#!"172.18.5.23:\xampp\perl\bin\perl.exe"#!\usr\bin\perl -wT...
perl 服务器上建立文件目录,Perl脚本修改过的文件上传到FTP服务器
weixin_29582621的博客
08-09 373
Perl脚本修改过的文件上传到FTP服务器简介(本文假定你是{A} familar和{A2})。从本地电脑上传文件到远程FTP服务器时，我跑进上传一个文件，其中只有少数实际上改变了很多的问题。所以我决定与那些比较本地文件的时间戳远程文件。理论上需要上传一个文件，只有当 当地修改日期是新的比远程修改日期或远程文件不存在所有。在实践中，问题是，FTP服务器(例如另一个基它的时钟是ahed背后或本地时钟...
python使用CGI编写脚本分析csv文件
最新发布
06-07
好的，下面是使用Python的CGI模块编写脚本分析CSV文件的基本步骤： 1. 创建一个HTML表单，用于上传CSV文件。 ```html <!DOCTYPE html> <html> <head> <title>CSV文件上传</title> </head> <body> <h2>上传CSV文件</h2> <form enctype="multipart/form-data" action="csv_analysis.py" method="POST"> <input type="file" name="csv_file"> <input type="submit" value="上传"> </form> </body> </html> ``` 2. 创建一个Python脚本(csv_analysis.py)，用于处理上传的CSV文件。 ```python #!/usr/bin/env python # -*- coding:utf-8 -*- import cgi import csv # 获取上传的CSV文件 form = cgi.FieldStorage() csv_file = form['csv_file'] # 解析CSV文件 csv_reader = csv.reader(csv_file.file) for row in csv_reader: # 处理每一行数据 ``` 3. 在脚本中解析CSV文件，并对数据进行处理。 在上面的示例中，我们使用了Python内置的csv模块来解析CSV文件。通过csv.reader函数可以将CSV文件转换为一个可迭代的对象，然后我们可以使用for循环逐行读取CSV文件的数据，并对数据进行处理。 在处理数据时，可以根据需要进行各种操作，例如计算每一列的平均值、最大值、最小值等等。 4. 将处理后的数据输出到浏览器。 ```python #!/usr/bin/env python # -*- coding:utf-8 -*- import cgi import csv # 获取上传的CSV文件 form = cgi.FieldStorage() csv_file = form['csv_file'] # 解析CSV文件 csv_reader = csv.reader(csv_file.file) # 处理数据 result = [] for row in csv_reader: # 计算每一行的平均值 row_avg = sum(map(float, row)) / len(row) result.append(row_avg) # 输出结果到浏览器 print("Content-Type: text/html;charset=utf-8") print() print("<html>") print("<head>") print("<title>CSV文件分析结果</title>") print("</head>") print("<body>") print("<h2>CSV文件分析结果</h2>") for i, avg in enumerate(result): print("<p>第{}行的平均值为：{:.2f}</p>".format(i+1, avg)) print("</body>") print("</html>") ``` 在上面的示例中，我们将处理后的结果输出到了浏览器中，使用了HTML标签来美化输出的结果。 以上就是使用Python的CGI模块编写脚本分析CSV文件的基本步骤。当然，如果需要更复杂的操作，可以根据具体需求进行相应的修改。
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值