Beefy Boxes and Bandwidth Generously Provided by pair Networks
P is for Practical

not getting the required out put

by rashichauhan (Novice)
on Sep 24, 2013 at 06:03 UTC ( #1055443=perlquestion: print w/replies, xml ) Need Help??
rashichauhan has asked for the wisdom of the Perl Monks concerning the following question:

use strict; use Data::Dumper; use Carp; use WWW::Mechanize; use WWW::Mechanize::Firefox; my $address = '' +; my $outfile = "outnewemboss1.htm"; my $file = "m1.out"; my $mech = WWW::Mechanize->new(); $mech->get($address); my $outfile = "outnewemboss1.htm"; my $matrix=2; my $matrix1=2; my $file = "m1.out"; $mech->form_id('input-form'); $mech->field( 'nucmethod', $matrix); $mech->field( 'protmethod', $matrix1); $mech->field( 'sequence.file', $file); $mech->set_fields( 'sequence.file' => $file, 'nucmethod'=>$matrix, ' protmethod' => $matrix1 ); print $matrix,$matrix1; print $file; $mech->submit; my $output_page = $mech->content(); open(OUTFILE, ">$outfile"); print OUTFILE "$output_page"; close(OUTFILE);
I have written this code for connecting to emboss distmat and input the msa file and then get the distance matrix file.But the problem is that when I am running the code "same emboss distmat page is opening" .Out put page is not opening.I check all the fields in the source page.Plz help me.

Replies are listed 'Best First'.
Re: not getting the required out put
by hdb (Monsignor) on Sep 24, 2013 at 09:17 UTC

    All I can see is the leading whitespace in ' protmethod' that seems wrong. Without a valid input file, it is difficult to run a test.

      Thanx for your suggestion.But I found that it was not due to leading white space in ' protmethod'.It was due to I am using mech->submit().I have to use mech->click().Now I am getting the required output.

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: perlquestion [id://1055443]
Approved by hdb
Front-paged by toolic
[Discipulus]: ah aha ah..

How do I use this? | Other CB clients
Other Users?
Others chanting in the Monastery: (5)
As of 2018-06-18 09:42 GMT
Find Nodes?
    Voting Booth?
    Should cpanminus be part of the standard Perl release?

    Results (109 votes). Check out past polls.