#!/usr/bin/perl use strict; use warnings; use WWW::Mechanize; my $url = 'http://domain.tld/requestpage.html'; my $your_statements = 'Your Statements'; my $your_digit = 123456789012345; my $filename = '/path/to/file.xml'; my $mech = WWW::Mechanize->new(); $mech->get($url); if($mech->success()){ $mech->submit_form(fields => { name_of_textarea => $your_statements, name_of_textfield => $your_digit}); if($mech->success()){ open(my $fh,">",$filename) or die $!; print $fh $mech->content(); close $fh; } }
In reply to Re: Extracting xml source code of a page
by reneeb
in thread Extracting xml source code of a page
by vishi83
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |