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/ );