comment on

I'm having issues fetching results from a http form. The url is http://cgmix.uscg.mil/PSIX/VesselSearch.aspx. I must be missing something, when I run this code, I only get the original page, not the results. I'm not receiving any errors. Any ideas?

#!/usr/bin/perl

use strict;
use HTTP::Request::Common;
use LWP::UserAgent;
use URI::Escape;

my $url = q{http://cgmix.uscg.mil/PSIX/VesselSearch.aspx};

my $ua = LWP::UserAgent->new();

my $key = q{dDwxNTY2ODAzNzEwO3Q8O2w8aTwwPjs+O2w8dDw7bDxpPDQ+O2k8Nj47aT
+w3PjtpPDk+O2k8MTE+O2k8MTM+O2k8MTU+O2k8MTc+O2k8MTk+O2k8MjE+Oz47bDx0PHA
+8cDxsPFZpc2libGU7PjtsPG88Zj47Pj47Pjs7Pjt0PDtsPGk8MjU+O2k8Mjk+Oz47bDx0
+PHQ8O3Q8aTwyMDE+O0A8QUZHSEFOSVNUQU47QUxCQU5JQTtBTEdFUklBO0FMTDtBTUVSS
+UNBTiBTQU1PQTtBTkRPUlJBO0FOR09MQTtBTkdVSUxMQTtBTlRJR1VBIEFORCBCQVJCVU
+RBO0FSR0VOVElOQTtBUlVCQTtBVVNUUkFMSUE7QVVTVFJJQTtCQUhBTUFTO0JBSEFNQVM
+sIFRIRTtCQUhBTUFTLFRIRTtCQUhSQUlOO0JBTkdMQURFU0g7QkFSQkFET1M7QkVMQVJV
+UztCRUxHSVVNO0JFTElaRTtCRVJNVURBO0JPTElWSUE7Qk9UU1dBTkE7QlJBWklMO0JSS
+VRJU0ggSU5ESUFOIE9DRUFOIFRFUlJJVE9SWTtCVUxHQVJJQTtDQU1CT0RJQTtDQU1FUk
+9PTjtDQU5BREE7Q0FQRSBWRVJERTtDQVlNQU4gSVNMQU5EUztDSElMRTtDSElOQTtDT0x
+PTUJJQTtDT01PUk9TO0NPTkdPO0NPT0sgSVNMQU5EUztDT1NUQSBSSUNBO0NST0FUSUE7
+Q1VCQTtDWVBSVVM7Q1pFQ0ggUkVQVUJMSUM7REVOTUFSSztESklCT1VUSTtET01JTklDQ
+TtET01JTklDQU4gUkVQVUJMSUM7RUNVQURPUjtFR1lQVDtFTCBTQUxWQURPUjtFUVVBVE
+9SSUFMIEdVSU5FQTtFU1RPTklBO0ZBTEtMQU5EIElTTEFORFMgKElTTEFTIE1BTFZJTjt
+GQVJPRSBJU0xBTkRTO0ZJSkk7RklOTEFORDtGUkFOQ0U7RlJFTkNIIFBPTFlORVNJQTtG
+UkVOQ0ggU09VVEhFUk4gQU5EIEFOVEFSQ1RJQyA7R0FCT047R0FNQklBLCBUSEU7R0VPU
+kdJQTtHRVJNQU5ZO0dIQU5BO0dJQlJBTFRBUjtHUkVFQ0U7R1JFRU5MQU5EO0dSRU5BRE
+E7R1VBREVMT1VQRTtHVUFNO0dVQVRFTUFMQTtHVUlORUE7R1VZQU5BO0hBSVRJO0hPTkR
+VUkFTO0hPTkcgS09ORztIVU5HQVJZO0lDRUxBTkQ7SU07SU5ESUE7SU5ET05FU0lBO0lS
+QU47SVJBUTtJUkVMQU5EO0lTTEUgT0YgTUFOO0lTUkFFTDtJVEFMWTtKQU1BSUNBO0pBU
+EFOO0pPUkRBTjtLQVpBS0hTVEFOO0tFTllBO0tJUklCQVRJO0tPUkVBLCBSRVBVQkxJQy
+BPRjtLVVdBSVQ7TEFPUztMQVRWSUE7TEVCQU5PTjtMSUJFUklBO0xJQllBO0xJVEhVQU5
+JQTtMVVhFTUJPVVJHO01BQ0VET05JQSwgVEhFIEZPUk1FUiBZVUdPU0xBVjtNQURBR0FT
+Q0FSO01BTEFXSTtNQUxBWVNJQTtNQUxESVZFUztNQUxUQTtNQVJTSEFMTCBJU0xBTkRTO
+01BUlRJTklRVUU7TUFVUklUSVVTO01FWElDTztNSUNST05FU0lBLCBGRURFUkFURUQgU1
+RBVEVTIE87TUlOSVNURVJPIERFSSBUUkFOU1BPUlRJIEUgREVMO01PTERPVkE7TU9OQUN
+PO01PTkdPTElBO01PUk9DQ087TVlBTk1BUiAoQlVSTUEpO05BVVJVO05FUEFMO05FVEhF
+UkxBTkRTO05FVEhFUkxBTkRTIEFOVElMTEVTO05FVyBDQUxFRE9OSUE7TkVXIFpFQUxBT
+kQ7TklDQVJBR1VBO05JR0VSSUE7TklVRTtOT1JUSCBLT1JFQTtOT1JUSEVSTiBNQVJJQU
+5BIElTTEFORFM7Tk9SV0FZO05RO09NQU47UEFLSVNUQU47UEFMQVU7UEFOQU1BO1BBUFV
+BIE5FVyBHVUlORUE7UEFSQUdVQVk7UEVSVTtQSElMSVBQSU5FUztQT0xBTkQ7UE9SVFVH
+QUw7UFI7UFVFUlRPIFJJQ087UUFUQVI7Uk9NQU5JQTtSVVNTSUE7UlVTU0lBTiBGRURFU
+kFUSU9OO1NBSU5UIEtJVFRTIEFORCBORVZJUztTQUlOVCBMVUNJQTtTQUlOVCBQSUVSUk
+UgQU5EIE1JUVVFTE9OO1NBSU5UIFZJTkNFTlQgQU5EIFRIRSBHUkVOQURJTjtTQU1PQTt
+TQU8gVE9NRSBBTkQgUFJJTkNJUEU7U0FVREkgQVJBQklBO1NFTkVHQUw7U0VSQklBIEFO
+RCBNT05URU5FR1JPO1NFWUNIRUxMRVM7U0lFUlJBIExFT05FO1NJTkdBUE9SRTtTTE9WQ
+UtJQTtTTE9WRU5JQTtTT0xPTU9OIElTTEFORFM7U09VVEggQUZSSUNBO1NPVVRIIEtPUk
+VBO1NPVklFVCBVTklPTjtTUEFJTjtTUkkgTEFOS0E7U1VEQU47U1VSSU5BTUU7U1dBWkl
+MQU5EO1NXRURFTjtTV0lUWkVSTEFORDtTWVJJQTtUQUlXQU47VEFJV0FOLCBQUk9WSU5D
+RSBPRiBDSElOQTtUQU5aQU5JQTtUSEFJTEFORDtUT05HQTtUUklOSURBRCBBTkQgVE9CQ
+UdPO1RSVVNUIFRFUlJJVE9SWSBPRiBUSEUgUEFDSUZJQztUVU5JU0lBO1RVUktFWTtUVV
+JLTUVOSVNUQU47VFVSS1MgQU5EIENBSUNPUyBJU0xBTkRTO1RVVkFMVTtVS1JBSU5FO1V
+OSVRFRCBBUkFCIEVNSVJBVEVTO1VOSVRFRCBLSU5HRE9NO1VOSVRFRCBTVEFURVM7VVJV
+R1VBWTtWQU5VQVRVO1ZFTkVaVUVMQTtWSTtWSUVUTkFNO1ZJUkdJTiBJU0xBTkRTLCBBT
+UVSSUNBTjtWSVJHSU4gSVNMQU5EUywgQlJJVElTSDtXQUxMSVMgQU5EIEZVVFVOQTtXRV
+NURVJOIFNBSEFSQTtaSU1CQUJXRTs+O0A8QUZHSEFOSVNUQU47QUxCQU5JQTtBTEdFUkl
+BO0FMTDtBTUVSSUNBTiBTQU1PQTtBTkRPUlJBO0FOR09MQTtBTkdVSUxMQTtBTlRJR1VB
+IEFORCBCQVJCVURBO0FSR0VOVElOQTtBUlVCQTtBVVNUUkFMSUE7QVVTVFJJQTtCQUhBT
+UFTO0JBSEFNQVMsIFRIRTtCQUhBTUFTLFRIRTtCQUhSQUlOO0JBTkdMQURFU0g7QkFSQk
+FET1M7QkVMQVJVUztCRUxHSVVNO0JFTElaRTtCRVJNVURBO0JPTElWSUE7Qk9UU1dBTkE
+7QlJBWklMO0JSSVRJU0ggSU5ESUFOIE9DRUFOIFRFUlJJVE9SWTtCVUxHQVJJQTtDQU1C
+T0RJQTtDQU1FUk9PTjtDQU5BREE7Q0FQRSBWRVJERTtDQVlNQU4gSVNMQU5EUztDSElMR
+TtDSElOQTtDT0xPTUJJQTtDT01PUk9TO0NPTkdPO0NPT0sgSVNMQU5EUztDT1NUQSBSSU
+NBO0NST0FUSUE7Q1VCQTtDWVBSVVM7Q1pFQ0ggUkVQVUJMSUM7REVOTUFSSztESklCT1V
+USTtET01JTklDQTtET01JTklDQU4gUkVQVUJMSUM7RUNVQURPUjtFR1lQVDtFTCBTQUxW
+QURPUjtFUVVBVE9SSUFMIEdVSU5FQTtFU1RPTklBO0ZBTEtMQU5EIElTTEFORFMgKElTT
+EFTIE1BTFZJTjtGQVJPRSBJU0xBTkRTO0ZJSkk7RklOTEFORDtGUkFOQ0U7RlJFTkNIIF
+BPTFlORVNJQTtGUkVOQ0ggU09VVEhFUk4gQU5EIEFOVEFSQ1RJQyA7R0FCT047R0FNQkl
+BLCBUSEU7R0VPUkdJQTtHRVJNQU5ZO0dIQU5BO0dJQlJBTFRBUjtHUkVFQ0U7R1JFRU5M
+QU5EO0dSRU5BREE7R1VBREVMT1VQRTtHVUFNO0dVQVRFTUFMQTtHVUlORUE7R1VZQU5BO
+0hBSVRJO0hPTkRVUkFTO0hPTkcgS09ORztIVU5HQVJZO0lDRUxBTkQ7SU07SU5ESUE7SU
+5ET05FU0lBO0lSQU47SVJBUTtJUkVMQU5EO0lTTEUgT0YgTUFOO0lTUkFFTDtJVEFMWTt
+KQU1BSUNBO0pBUEFOO0pPUkRBTjtLQVpBS0hTVEFOO0tFTllBO0tJUklCQVRJO0tPUkVB
+LCBSRVBVQkxJQyBPRjtLVVdBSVQ7TEFPUztMQVRWSUE7TEVCQU5PTjtMSUJFUklBO0xJQ
+llBO0xJVEhVQU5JQTtMVVhFTUJPVVJHO01BQ0VET05JQSwgVEhFIEZPUk1FUiBZVUdPU0
+xBVjtNQURBR0FTQ0FSO01BTEFXSTtNQUxBWVNJQTtNQUxESVZFUztNQUxUQTtNQVJTSEF
+MTCBJU0xBTkRTO01BUlRJTklRVUU7TUFVUklUSVVTO01FWElDTztNSUNST05FU0lBLCBG
+RURFUkFURUQgU1RBVEVTIE87TUlOSVNURVJPIERFSSBUUkFOU1BPUlRJIEUgREVMO01PT
+ERPVkE7TU9OQUNPO01PTkdPTElBO01PUk9DQ087TVlBTk1BUiAoQlVSTUEpO05BVVJVO0
+5FUEFMO05FVEhFUkxBTkRTO05FVEhFUkxBTkRTIEFOVElMTEVTO05FVyBDQUxFRE9OSUE
+7TkVXIFpFQUxBTkQ7TklDQVJBR1VBO05JR0VSSUE7TklVRTtOT1JUSCBLT1JFQTtOT1JU
+SEVSTiBNQVJJQU5BIElTTEFORFM7Tk9SV0FZO05RO09NQU47UEFLSVNUQU47UEFMQVU7U
+EFOQU1BO1BBUFVBIE5FVyBHVUlORUE7UEFSQUdVQVk7UEVSVTtQSElMSVBQSU5FUztQT0
+xBTkQ7UE9SVFVHQUw7UFI7UFVFUlRPIFJJQ087UUFUQVI7Uk9NQU5JQTtSVVNTSUE7UlV
+TU0lBTiBGRURFUkFUSU9OO1NBSU5UIEtJVFRTIEFORCBORVZJUztTQUlOVCBMVUNJQTtT
+QUlOVCBQSUVSUkUgQU5EIE1JUVVFTE9OO1NBSU5UIFZJTkNFTlQgQU5EIFRIRSBHUkVOQ
+URJTjtTQU1PQTtTQU8gVE9NRSBBTkQgUFJJTkNJUEU7U0FVREkgQVJBQklBO1NFTkVHQU
+w7U0VSQklBIEFORCBNT05URU5FR1JPO1NFWUNIRUxMRVM7U0lFUlJBIExFT05FO1NJTkd
+BUE9SRTtTTE9WQUtJQTtTTE9WRU5JQTtTT0xPTU9OIElTTEFORFM7U09VVEggQUZSSUNB
+O1NPVVRIIEtPUkVBO1NPVklFVCBVTklPTjtTUEFJTjtTUkkgTEFOS0E7U1VEQU47U1VSS
+U5BTUU7U1dBWklMQU5EO1NXRURFTjtTV0lUWkVSTEFORDtTWVJJQTtUQUlXQU47VEFJV0
+FOLCBQUk9WSU5DRSBPRiBDSElOQTtUQU5aQU5JQTtUSEFJTEFORDtUT05HQTtUUklOSUR
+BRCBBTkQgVE9CQUdPO1RSVVNUIFRFUlJJVE9SWSBPRiBUSEUgUEFDSUZJQztUVU5JU0lB
+O1RVUktFWTtUVVJLTUVOSVNUQU47VFVSS1MgQU5EIENBSUNPUyBJU0xBTkRTO1RVVkFMV
+TtVS1JBSU5FO1VOSVRFRCBBUkFCIEVNSVJBVEVTO1VOSVRFRCBLSU5HRE9NO1VOSVRFRC
+BTVEFURVM7VVJVR1VBWTtWQU5VQVRVO1ZFTkVaVUVMQTtWSTtWSUVUTkFNO1ZJUkdJTiB
+JU0xBTkRTLCBBTUVSSUNBTjtWSVJHSU4gSVNMQU5EUywgQlJJVElTSDtXQUxMSVMgQU5E
+IEZVVFVOQTtXRVNURVJOIFNBSEFSQTtaSU1CQUJXRTs+Pjs+Ozs+O3Q8dDw7dDxpPDI0P
+jtAPEFMTDtDb21tZXJjaWFsIEZpc2hpbmcgVmVzc2VsO0Zpc2ggUHJvY2Vzc2luZyBWZX
+NzZWw7RnJlaWdodCBCYXJnZTtGcmVpZ2h0IFNoaXA7SW5kdXN0cmlhbCBWZXNzZWw7TW9
+iaWxlIE9mZnNob3JlIERyaWxsaW5nIFVuaXQ7T2Zmc2hvcmUgU3VwcGx5IFZlc3NlbDtP
+aWwgUmVjb3Zlcnk7UGFzc2VuZ2VyIChJbnNwZWN0ZWQpO1Bhc3NlbmdlciAoVW5pbnNwZ
+WN0ZWQpO1Bhc3NlbmdlciBCYXJnZSAgKEluc3BlY3RlZCk7UGFzc2VuZ2VyIEJhcmdlIC
+AoVW5pbnNwZWN0ZWQpO1B1YmxpYyBGcmVpZ2h0O1B1YmxpYyBUYW5rc2hpcC9CYXJnZTt
+QdWJsaWMgVmVzc2VsLCBVbmNsYXNzaWZpZWQ7UmVjcmVhdGlvbmFsO1Jlc2VhcmNoIFZl
+c3NlbDtTY2hvb2wgU2hpcDtUYW5rIEJhcmdlO1RhbmsgU2hpcDtUb3dpbmcgVmVzc2VsO
+1VuY2xhc3NpZmllZDtVbmtub3duOz47QDxBTEw7Q29tbWVyY2lhbCBGaXNoaW5nIFZlc3
+NlbDtGaXNoIFByb2Nlc3NpbmcgVmVzc2VsO0ZyZWlnaHQgQmFyZ2U7RnJlaWdodCBTaGl
+wO0luZHVzdHJpYWwgVmVzc2VsO01vYmlsZSBPZmZzaG9yZSBEcmlsbGluZyBVbml0O09m
+ZnNob3JlIFN1cHBseSBWZXNzZWw7T2lsIFJlY292ZXJ5O1Bhc3NlbmdlciAoSW5zcGVjd
+GVkKTtQYXNzZW5nZXIgKFVuaW5zcGVjdGVkKTtQYXNzZW5nZXIgQmFyZ2UgIChJbnNwZW
+N0ZWQpO1Bhc3NlbmdlciBCYXJnZSAgKFVuaW5zcGVjdGVkKTtQdWJsaWMgRnJlaWdodDt
+QdWJsaWMgVGFua3NoaXAvQmFyZ2U7UHVibGljIFZlc3NlbCwgVW5jbGFzc2lmaWVkO1Jl
+Y3JlYXRpb25hbDtSZXNlYXJjaCBWZXNzZWw7U2Nob29sIFNoaXA7VGFuayBCYXJnZTtUY
+W5rIFNoaXA7VG93aW5nIFZlc3NlbDtVbmNsYXNzaWZpZWQ7VW5rbm93bjs+Pjs+Ozs+Oz
+4+O3Q8cDxwPGw8VmlzaWJsZTs+O2w8bzxmPjs+Pjs+Ozs+O3Q8cDxwPGw8VmlzaWJsZTs
++O2w8bzxmPjs+Pjs+Ozs+O3Q8cDxwPGw8VmlzaWJsZTs+O2w8bzxmPjs+Pjs+O2w8aTwx
+Pjs+O2w8dDxAMDw7Ozs7Ozs7Ozs7Pjs7Pjs+Pjt0PHA8cDxsPFZpc2libGU7PjtsPG88Z
+j47Pj47Pjs7Pjt0PHA8cDxsPFZpc2libGU7PjtsPG88Zj47Pj47Pjs7Pjt0PHA8cDxsPF
+Zpc2libGU7PjtsPG88Zj47Pj47Pjs7Pjt0PHA8cDxsPFZpc2libGU7PjtsPG88Zj47Pj4
+7PjtsPGk8MT47PjtsPHQ8QDA8Ozs7Ozs7Ozs7Oz47Oz47Pj47dDw7bDxpPDM+Oz47bDx0
+PHA8cDxsPFRleHQ7VG9vbFRpcDs+O2w8VHVlc2RheSwgU2VwdGVtYmVyIDA0LCAyMDA3O
+1R1ZXNkYXksIFNlcHRlbWJlciAwNCwgMjAwNzs+Pjs+Ozs+Oz4+Oz4+Oz4+O2w8Q2hlY2
+tCb3hPdXRTZXJ2aWNlOz4+wcUNJFMjG7GO+lT4LnLAL/zyK9c=};

my $safe_key = uri_escape($key);

my $req = POST $url,
    Content_Type => 'form_data',
    Content => [
        VesselName => 'FLINTHORN',
        VesselNumber => '',
        VesselCallSign => '',
        VesselHull => '',
        VesselYear => '',
        CheckBoxOutService => '',
        __VIEWSTATE => $safe_key,
    ];

my $res = $ua->request($req);

print $res->content();

__END__
[download]

In reply to trouble talking to html form using LWP by mhearse

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		`&`
	<		`<`
	>		`>`
	[		`[`
	]		`]`

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.