Bukowski has asked for the wisdom of the Perl Monks concerning the following question:
I have some broken code here, that is perplexing me. I am using LWP::UserAgent to pull information off of a website.
I have had no problem with this until I wrote the following bit of (broken) code:
The problem is that if I paste the relevant command into a browser - everything is fine, but I've broken it down for an LWP request.#!/usr/bin/perl -w use strict; use HTTP::Request::Common qw(POST); use LWP::UserAgent; my ($ua, $req, $chrom, $start, $end, $db, $check); $chrom="7"; $start="117287204"; $end="117475903"; $db="hg11"; open (GENOMIC, ">genomic_dna") || die "Error: Can't open genomic_dna: +$!"; $ua = LWP::UserAgent->new; $req = POST 'http://genome.ucsc.edu/cgi-bin/hgText', [ hgsid => '6765675', g => 'htcGetDna2', c => 'chr'.$chrom, l => $start, r => $end, db => $db, hgc.dna.out1 => 'lc', boolshad.hgc.dna.rc => '1', Submit => 'Submit' ]; print GENOMIC $ua->request($req)->content; close (GENOMIC) || die "Error: Can't close genomic_dna: $!";
Attempting to run this leads to the following:
[dswan@ashtaroth useful]$ ./genomic.pl Bareword "hgc" not allowed while "strict subs" in use at ./genomic.pl +line 18. Bareword "dna" not allowed while "strict subs" in use at ./genomic.pl +line 18. Bareword "boolshad" not allowed while "strict subs" in use at ./genomi +c.pl line 18. Bareword "hgc" not allowed while "strict subs" in use at ./genomic.pl +line 18. Bareword "dna" not allowed while "strict subs" in use at ./genomic.pl +line 18. Execution of ./genomic.pl aborted due to compilation errors.
Even to me this obviously means LWP doesn't much like the '.' in the LWP request. I've tried to escape them, quote them (double and single), but to be honest I don't see why it should be a big issue (except the program returns the wrong data obviously :P)
As always the help is greatly appreciated
Bukowski - aka Dan (firstname.lastname@example.org)
"Coffee for the mind, Pizza for the body, Sushi for the soul" -Userfriendly