1

交叉发布http://perlmonks.org/?node_id=981067

我在使用 WWW::Mechanize::Firefox 使用输入类型文件将文件上传到带有表单的站点时遇到问题，如下所示：

<form enctype="multipart/form-data" action="uploader.php" method="POST" id="formular">
<input type="hidden" name="MAX_FILE_SIZE" value="100000" />
Choose a file to upload: <input name="image0" type="file" id="image0"/><br />
<input type="submit" value="Upload File" />

uploader.php 的内容如下：

<?php
$target_path = "uploads/";

$target_path = $target_path . basename( $_FILES['image0']['name']); 

if(move_uploaded_file($_FILES['image0']['tmp_name'], $target_path)) {
    echo "The file ".  basename( $_FILES['image0']['name']). 
    " has been uploaded";
} else{
    echo "There was an error uploading the file,".  basename( $_FILES['image0']['name'])." please try again!";
}
?>

我用于上传文件的代码如下：

#!/usr/bin/perl
use strict;
use warnings;
use WWW::Mechanize::Firefox;

my $bot = WWW::Mechanize::Firefox->new( autoclose => 0,activate =>1);

$bot->get('http://127.0.0.1/file/index.html');
$bot->form_id('formular');
$bot->field('image0','IMAGE.JPG');
$bot->submit;

执行时没有错误，提交了表单但image0中没有任何内容。

我使用的 WWW::Mechanize::Firefox 版本是 0.66 我的 perl 版本是：v5.10.0 为 MSWin32-x86-multi-thread 构建

谢谢

4

1 回答 1

1

为什么不尝试在方法中添加图像文件的整个路径和键/值对，field()例如

my $image_path = "/home/images/IMAGE.JPG";
$bot->field(image0=>$image_path);
$bot->submit();

此外，假设WWW::Mechanize::Firefox继承了所有LWP::UserAgents方法，请在$bot->submit();

$bot->add_handler("request_send",  sub { shift->dump; return });
$bot->add_handler("response_done", sub { shift->dump; return });

这将启用登录您的代码。注意日志文件中的请求和响应代码，例如“HTTP 200 OK”或“HTTP 302 Found”。这些是标准的 HTTP 响应代码，因此您会知道您得到了正确的响应。

于 2012-07-13T21:59:37.817 回答