Re^4: screen scraping


go ahead... be a heretic
	PerlMonks

Re^4: screen scraping

by garskoci (Novice)

on Jan 08, 2005 at 20:16 UTC ( [id://420584]=note: print w/replies, xml )

Need Help??

in reply to Re^3: screen scraping
in thread screen scraping

I'm sorry, but like this? I get an error. Remember. Newbie. I am able to log in with the code that you provided.

#!/usr/bin/perl
use strict;
use warnings;
use WWW::Mechanize;

my $mech = WWW::Mechanize->new( utocheck => 1 );
$mech->credentials(
    '192.168.0.1:80',
    'FVS318',
    'admin' => 'secret'
);
# And then $mech->get() the same as in the LWP::UserAgent code

my $mech->get(credentials(  '192.168.0.1:80',
                        'FVS318',
                        'admin' => 'secret'
);
[download]

Comment on Re^4: screen scraping Download Code

Replies are listed 'Best First'.

Re^5: screen scraping
by Limbic~Region (Chancellor) on Jan 09, 2005 at 00:30 UTC

graskoci

I get an error.

In your original post you said you can not login and in this one you say you get an error. Keep in mind that we can't see what you see so in order to help we need to know what is not working, how it is not working, and what error messages you get. In this case, I believe I made a typo which you could have fixed by RTFMing. Here is the corrected code that should work.

#!/usr/bin/perl
use strict;
use warnings;
use WWW::Mechanize;

my $url = 'http://192.168.0.1/'; # Change if necessary
my $mech = WWW::Mechanize->new( autocheck => 1 );
$mech->credentials (
    '192.168.0.1:80',
    'FVS318',
    'admin' => 'secret'
);
$mech->get( $url );

# Rest of code goes here
[download]

davido

here

Cheers - L~R

[reply]
[d/l]

In Section Seekers of Perl Wisdom