in reply to Re: Automated DNS Update Solution Needed
in thread Automated DNS Update Solution Needed

The only thing it doesn't do (as far as I know) is give you the value of a filled in textarea field.
Sure it does, demonstration (note q=test)
C:\> perl -MWWW::Mechanize::Shell -e shell
Module File::Modified not found. Automatic reloading disabled.
>get http://www.google.com/search?hl=en&num=100&ie=UTF-8&oe=UTF-8&q=test&btnG=Google+Search
Retrieving http://www.google.com/search?hl=en&num=100&ie=UTF-8&oe=UTF-8&q=test&btnG=Google+Search(200)
http://www.google.com/search?hl=en&num=100&ie=UTF-8&oe=UTF-8&q=test&btnG=Google+Search>
http://www.google.com/search?hl=en&num=100&ie=UTF-8&oe=UTF-8&q=test&btnG=Google+Search>forms
Form [1]
GET http://www.google.com/search [gs]
 num=100                        (hidden readonly)
 hl=en                          (hidden readonly)
 lr=                            (hidden readonly)
 q=test                         (text)
 btnG=Search                    (submit)
Form [2]
GET http://www.google.com/search
 q=test                         (text)
 btnG=Search                    (submit)
 num=100                        (hidden readonly)
 hl=en                          (hidden readonly)
 lr=                            (hidden readonly)
http://www.google.com/search?hl=en&num=100&ie=UTF-8&oe=UTF-8&q=test&btnG=Google+Search>

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.

  • Comment on Re^2: Automated DNS Update Solution Needed

Replies are listed 'Best First'.
Re^3: Automated DNS Update Solution Needed
by Hero Zzyzzx (Curate) on Dec 21, 2004 at 20:26 UTC

    That's an <input type="text" name="q">, not a <textarea name="q"></textarea>, on googles homepage, right?

    -Any sufficiently advanced technology is
    indistinguishable from doubletalk.

    My Biz

[reply]
[d/l]
[select]
      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.

[reply]

In Section Seekers of Perl Wisdom