libwww-perl / WWW-Mechanize

Handy web browsing in a Perl object
https://metacpan.org/pod/WWW::Mechanize
Other
68 stars 53 forks source link

PROBLEM WITH FILLING TEXTAREA #220

Closed spazm closed 2 years ago

spazm commented 7 years ago

abhipata...@gmail.com reported on Feb 14, 2013

What steps will reproduce the problem?
1.
The text area is:
<textarea rows="5" cols="60" id="p_input" name="p_input"></textarea>
2.
I m filling this textarea using the following code
my $mech = WWW::Mechanize->new();
$mech->timeout(5000);
$mech->agent('Mozilla/5.0');
$mech->proxy(['http'], 'http://202.41.70.84:6588');

    $url="http://pridb.gdcb.iastate.edu/RPISeq/index.html";
    $mech->get($url);
    die $mech ->res->status_line unless $mech ->success ;
    $mech->form_name( 'myform' ) or die ("CANT FIND");

    my @in = $mech->find_all_inputs(
        type       => 'textarea',
        name_regex => qr/input/,
    );                              
    print @in;
    $one="p_input";
    $two="r_input";
        $mech-> field($one,"MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM") or die ("CF");
        $mech-> field($two,"AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA");
                                                                        $mech->submit();

3. This is not working and i am getting the death 'C F'

What is the expected output? What do you see instead?
I get a death instead out the html page output

What version of the product are you using? On what operating system?
I am using this very mechanize on windows 7

Please provide any additional information below.

Details

Imported from Google Code issue 243 via archive