Beefy Boxes and Bandwidth Generously Provided by pair Networks
The stupid question is the question not asked
 
PerlMonks  

Re^10: WWW-Search module that works

by coder57 (Novice)
on Jun 14, 2007 at 15:46 UTC ( [id://621273]=note: print w/replies, xml ) Need Help??


in reply to Re^9: WWW-Search module that works
in thread WWW-Search module that works

so far :
C:\Perl\bin>perl -d ysam5a.pl Loading DB routines from perl5db.pl version 1.28 Editor support available. Enter h or `h h' for help, or `perldoc perldebug' for more help. main::(ysam5a.pl:7): my $sUser; DB<1> x $sUser 0 undef DB<2> n main::(ysam5a.pl:8): my $sPassword; DB<2> x $sPassword 0 undef DB<3> n main::(ysam5a.pl:10): my $sQuery = 'Columbus Ohio sushi restaurant'; DB<3> x my $sQuery 0 undef DB<4>
The exact code is:
#!/usr/bin/perl use strict; use warnings; use WWW::Search; my $sUser; my $sPassword; my $sQuery = 'Columbus Ohio sushi restaurant'; my $oSearch = new WWW::Search('AltaVista'); $oSearch->native_query(WWW::Search::escape_query($sQuery)); $oSearch->login($sUser, $sPassword); while (my $oResult = $oSearch->next_result()) { print $oResult->url, "\n"; } # while $oSearch->logout;
Pls if you could install the module and verify for yourself, because I am not the only one who says it no longer works.

Replies are listed 'Best First'.
Re^11: WWW-Search module that works
by talexb (Chancellor) on Jun 14, 2007 at 16:07 UTC

    Great! You're in the debugger. Except all you've done is dump the results of three my statements -- which doesn't help us understand why the module isn't working.

    Keep going (no one said this stuff is easy) and step a few more times, and check that you get a good object from the new constructor (as I've said twice before). Continue stepping, letting us know what's going on inside the while loop.

      Pls if you could install the module and verify for yourself, because I am not the only one who says it no longer works.

    I could give you all sorts of reasons why I shouldn't do this, but I'm not going to -- in any case, you're running on Windows/DOS, and I'm on RH9, so the result would be meaningless. The point is, you have to be the one who figures out what's going on. All I can do here is offer assistance, and try to keep from snapping (reminds me of raising teenagers, in a way).

    Alex / talexb / Toronto

    "Groklaw is the open-source mentality applied to legal research" ~ Linus Torvalds

Re^11: WWW-Search module that works
by menolly (Hermit) on Jun 14, 2007 at 20:05 UTC
    The line of code displayed by the debugger is the line it's about to execute, not the line it just executed. Hit 'n' one more time, then x my $sQuery, and you should see the value you assigned to $sQuery.
      so far
      DB<1> n main::(ysam5a.pl:10): my $sQuery = 'Columbus Ohio sushi restaurant'; DB<1> n main::(ysam5a.pl:11): my $oSearch = new WWW::Search('AltaVista'); DB<1> x $sQuery 0 'Columbus Ohio sushi restaurant' DB<2> n main::(ysam5a.pl:13): $oSearch->native_query(WWW::Search::escape_que +ry($sQuer )); DB<2> x my $oSearch 0 undef DB<3> n main::(ysam5a.pl:14): $oSearch->login($sUser, $sPassword); DB<3> n main::(ysam5a.pl:16): while (my $oResult = $oSearch->next_result()) main::(ysam5a.pl:17): { DB<3> n main::(ysam5a.pl:20): $oSearch->logout; DB<3> x my $oResult 0 undef DB<4> n Debugged program terminated. Use q to quit or R to restart, use O inhibit_exit to avoid stopping after program termination, h q, h R or h O to get additional info.
        When you say "x my $oResult" it means to create a NEW variable, local to just that one debugging command, and display its value, which is of course undefined. If you just say "x $oResult" it will display the correct value.
        Incidentally, I just ran your program under perl 5.8.8 on a Linux box, installing WWW::Search::AltaVista (and Yahoo as well) from CPAN. It works fine for me. You might have run into a Windows (or ActivePerl) compatibility issue. Sometimes it helps to use the version of Perl that runs under Cygwin .

Log In?
Username:
Password:

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

How do I use this?Last hourOther CB clients
Other Users?
Others wandering the Monastery: (5)
As of 2024-04-12 15:09 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found