Beefy Boxes and Bandwidth Generously Provided by pair Networks
Don't ask to ask, just ask
 
PerlMonks  

Re: Establish a session to call URL with Perl

by sundialsvc4 (Abbot)
on Jul 07, 2013 at 15:09 UTC ( #1042983=note: print w/replies, xml ) Need Help??


in reply to Establish a session to call URL with Perl

I expect that the OP does mean, “logging in.”   A generalized solution to this problem should consider that any site can “log you off” unexpectedly for any reason ... which is one of the reasons why Anonymous Monk has so many postings here.   You’ll need to determine how your target-site captures the logged-in status:   it could be a cookie, it could be a GET-parameter on the URL, or it could be both.   You need to learn how it tells you that you are “not logged in,” as well as “incorrect login” or “I’m just having a bad hair day today.”

Probably the easiest way to do this .. anyway, the most common way I’ve seen it done .. is to write a class that specifies use base WWW::Mechanize;.   (WWW::Mechanize, in turn, is based on LWP::UserAgent, so you have quite a large number of methods to work with.   Write a public subroutine for sending a request to the site and interpreting, particularly, its error results.   This subroutine should either be aware of whether you are logged-in or not, or be able to transparently handle the business of getting logged-in before issuing the request.   It will be very specific to the particular site being talked-to, and it will insulate the rest of the code from any “niggling details.”

  • Comment on Re: Establish a session to call URL with Perl

Replies are listed 'Best First'.
Re^2: Establish a session to call URL with Perl
by Anonymous Monk on Jul 12, 2013 at 08:38 UTC

    ..which is one of the reasons why Anonymous Monk has so many postings here.

    Except that it isn't

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1042983]
help
Chatterbox?
[Lady_Aleena]: shmem, there is MP3::Info/
[Discipulus]: too much complex qx when you know perl are better to avoid
[marioroy]: might need to backslash \'*.mp3\'
[marioroy]: It's a quoting issue inside qx. It's File::Find or qx. LA chooses qx. Almost there.
[marioroy]: Also \"%S\\\n\" oh my, not fun.
[Discipulus]: good night folks
[marioroy]: I will make a mp3info script that takes the -p "%S\n" args and test qx. I'm on the road, so will come back.
[marioroy]: All because File::Find is not fun for LA.
[marioroy]: good night Discipulus.
[Discipulus]: perl dreams to you all

How do I use this? | Other CB clients
Other Users?
Others lurking in the Monastery: (11)
As of 2017-04-23 21:17 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    I'm a fool:











    Results (432 votes). Check out past polls.