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. |