html - 使用 Perl Mechanize Firefox 上传文件

Question

我正在使用 WWW::Mechanize::Firefox 并且在上传表单时遇到问题。谁能告诉我如何使用该模块将文件提交到这样的表单？

<form action="http://www.cs.tut.fi/cgi-bin/run/~jkorpela/echo.cgi"
enctype="multipart/form-data" method="post">
<p>
Type some text (if you like):<br>
<input type="text" name="textline" size="30">
</p>
<p>
Please specify a file, or a set of files:<br>
<input type="file" name="datafile" size="40">
</p>
<div>
<input type="submit" value="Send">
</div>
</form>  

编辑:更具体地说，我必须单击这样的按钮

<B><FONT SIZE=2>Then click...</FONT></B><A HREF="Javascript:CheckPortfolioUpload('Portfolio - Select Portfolio - Upload ? Go ~ Results')"><IMG NAME=GoBtn SRC=/images/button/GreenGo.gif BORDER=0 TITLE='Upload'  CLASS=Clickable></IMG></A>
</TABLE>

我怎么做？

Answer 1

$mech->follow_link( url_regex => qr/CheckPortfolioUpload/ );