Perl调用网页的cgi程序

最新推荐文章于 2024-07-26 23:31:12 发布

Snail_Walker

最新推荐文章于 2024-07-26 23:31:12 发布

阅读量1.4k

点赞数

分类专栏： __CMU_ECE_MS_PERIOD__ 文章标签： perl cgi

__CMU_ECE_MS_PERIOD__ 专栏收录该内容

36 篇文章

订阅专栏

本文介绍如何在Windows环境下使用StrawberryPerl进行Perl编程，并提供了一个示例脚本，该脚本通过LWP::UserAgent模块实现HTTP POST请求，用于提交文件到远程服务器并获取响应。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

在Windows上使用Perl可以用Strawberry Perl，非常好用。

http://strawberryperl.com/

#! /usr/bin/perl

print "hello,world\n";

use LWP::Simple;

my $fileIn = 'HW3-exp1-ranked-and.teIn';
my $url = 'http://boston.lti.cs.cmu.edu/classes/11-642/HW/HTS/tes.cgi';

#  Fill in your USERNAME and PASSWORD below.

my $ua = LWP::UserAgent->new();
   $ua->credentials("boston.lti.cs.cmu.edu:80", "HTS", "user name", "password");
my $result = $ua->post($url,
               Content_Type => 'form-data',
               Content      => [ logtype => 'Summary',  # cgi parameter
                     infile => [$fileIn],  # cgi parameter
                     hwid => 'HW3'      # cgi parameter
               ]);

my $result = $result->as_string;  # Reformat the result as a string
   $result =~ s/<br>/\n/g;        # Replace <br> with \n for clarity

print $result;

exit;