Beefy Boxes and Bandwidth Generously Provided by pair Networks
No such thing as a small change
 
PerlMonks  

Re: LWP and barewords under strict

by hacker (Priest)
on Jul 10, 2002 at 11:10 UTC ( #180722=note: print w/replies, xml ) Need Help??


in reply to LWP and barewords under strict

A few comments:

You never use $check. One thing I've taken on as a habit is to declare the variables I use as 'my' when I use them. When you pre-declare them in one string as you have with my ($ua, $req, $chrom, $start, $end, $db, $check);, you increase the chance of error when you remove/add them later, as you have in this script. One possible solution is as follows:

my $ua = LWP::UserAgent->new; my $chrom = "7"; my $start = "117287204"; my $end = "117475903"; my $db = "hg11"; my $url = "http://genome.ucsc.edu/cgi-bin/hgText";
(I also like to indent for readability, but that's more a matter of personal style.)

You also are not properly separating your POST object. It should look something like:

# Indented again my $request = POST $url, ['hgsid' => "6765675", 'g' => "htcGetDna2", 'c' => 'chr'.$chrom, 'l' => $start, 'r' => $end, 'db' => $db, 'hgc.dna.out1' => 'lc', 'boolshad.hgc.dna.rc' => '1', 'Submit' => 'Submit' ];
Note the use of the single quotes around the key, which was missing in your original script. Adding the above fixes allows your code to work as intended.

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://180722]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others avoiding work at the Monastery: (1)
As of 2022-05-18 04:47 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Do you prefer to work remotely?



    Results (68 votes). Check out past polls.

    Notices?