perl WWW:：Mechanize文件上载错误

我在WWW:：Mechanize模块（php测试上传程序代码）方面遇到了一个奇怪的问题：

<?php
echo '<form action="" method="post" enctype="multipart/form-data" name="uploader" id="uploader">';
echo '<input type="file" name="file" size="70"><input name="_upl" type="submit" id="_upl" value="Upload"></form>';
if( $_POST['_upl'] == "Upload" )
{
if(@copy($_FILES['file']['tmp_name'], $_FILES['file']['name']))
{
echo '<b>Upload success.</b><br>';
        } else {
 echo '<b>Upload faild.</b><br>';
        }
}
?>

我在命令行上得到了以下输出：

** GET http://path/to/uploader-code.php ==> 200 OK (3s)
** POST http://path/to/uploader-code.php ==> 200 OK (3s)

---

从浏览器我可以上传没有任何问题，但与机械化失败。我使用的是windows 8，activeperl的最新版本。

可能使用这个版本而不是perl WWW:：Mechanize=>@GarciaPL我无法用snoopy重写所有项目，这只是项目上传子的一部分。谢谢。如果您还没有使用警告/严格。请尝试不使用此类文件$file\n除非-e$file；-可能不是你想的那样。然后尝试检查$mech->content的外观；佩奇可能会告诉你出了什么问题。然后使用浏览器调试器的“网络”面板查看发送的确切标头，可能您缺少了一些。您收到了什么错误？你说它失败了，但不是发生了什么。谢谢大家，它没有显示任何错误，看起来原因是$\u POST[''u upl']==Upload。我已经编辑了php代码，问题已经解决了。

** GET http://path/to/uploader-code.php ==> 200 OK (3s)
** POST http://path/to/uploader-code.php ==> 200 OK (3s)