Heh, yeah, sorry about that. Still, Mechanize does deal with it, actual demonstration this time :)
C:\>perl -MWWW::Mechanize::Shell -e shell
Module File::Modified not found. Automatic reloading disabled.
>get http://babelfish.altavista.com/
Retrieving http://babelfish.altavista.com/(200)
http://babelfish.altavista.com/>form 1
POST http://babelfish.altavista.com/tr [frmTrText]
doit=done (hidden readonly)
intl=1 (hidden readonly)
tt=urltext (hidden readonly)
trtext= (textarea)
lp= (option) [*/Select from and to languages|zh_en/Chinese-simp to English|zt_en/Chinese-trad to English|en_zh/English
to Chinese-simp|en_zt/English to Chinese-trad|en_nl/English to Dutch|en_fr/English to French|en_de/English to German|en_el/English to Greek|en_it/Engl
ish to Italian|en_ja/English to Japanese|en_ko/English to Korean|en_pt/English to Portuguese|en_ru/English to Russian|en_es/English to Spanish|nl_en/D
utch to English|nl_fr/Dutch to French|fr_en/French to English|fr_de/French to German|fr_el/French to Greek|fr_it/French to Italian|fr_pt/French to Por
tuguese|fr_nl/French to Dutch|fr_es/French to Spanish|de_en/German to English|de_fr/German to French|el_en/Greek to English|el_fr/Greek to French|it_e
n/Italian to English|it_fr/Italian to French|ja_en/Japanese to English|ko_en/Korean to English|pt_en/Portuguese to English|pt_fr/Portuguese to French|
ru_en/Russian to English|es_en/Spanish to English|es_fr/Spanish to French]
<NONAME>=Translate (submit)
http://babelfish.altavista.com/>value lp en_nl
http://babelfish.altavista.com/>value trtext I am Bob.
http://babelfish.altavista.com/>
http://babelfish.altavista.com/>submit
200
http://babelfish.altavista.com/tr>forms
Form [1]
GET http://www.altavista.com/web/results
q=Ik ben Loodje. (hidden readonly)
kls=0 (hidden readonly)
ienc=utf8 (hidden readonly)
search=Search the web with this text (submit)
Form [2]
POST http://babelfish.altavista.com/tr [frmTrText]
doit=done (hidden readonly)
intl=1 (hidden readonly)
tt=urltext (hidden readonly)
trtext=I am Bob. (textarea)
lp=en_nl (option) [zh_en/Chinese-simp to English|zt_en/Chinese-trad to English|en_zh/English to Chinese-simp|en_zt/English t
o Chinese-trad|*en_nl/English to Dutch|en_fr/English to French|en_de/English to German|en_el/English to Greek|en_it/English to Italian|en_ja/English t
o Japanese|en_ko/English to Korean|en_pt/English to Portuguese|en_ru/English to Russian|en_es/English to Spanish|nl_en/Dutch to English|nl_fr/Dutch to
French|fr_nl/French to Dutch|fr_en/French to English|fr_de/French to German|fr_el/French to Greek|fr_it/French to Italian|fr_pt/French to Portuguese|
fr_es/French to Spanish|de_en/German to English|de_fr/German to French|el_en/Greek to English|el_fr/Greek to French|it_en/Italian to English|it_fr/Ita
lian to French|ja_en/Japanese to English|ko_en/Korean to English|pt_en/Portuguese to English|pt_fr/Portuguese to French|ru_en/Russian to English|es_en
/Spanish to English|es_fr/Spanish to French]
<NONAME>=Translate (submit)
http://babelfish.altavista.com/tr>
| MJD says "you can't just make shit up and expect the computer to know what you mean, retardo!" | | I run a Win32 PPM repository for perl 5.6.x and 5.8.x -- I take requests (README). | | ** The third rule of perl club is a statement of fact: pod is sexy. |
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.
|
