Re^10: 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>
[download]

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;
[download]

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

Comment on Re^10: WWW-Search module that works Select or Download Code

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	[reply] [d/l] [select]
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`.	[reply] [d/l] [select]
Re^12: WWW-Search module that works by coder57 (Novice) on Jun 15, 2007 at 00:25 UTC
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. [download]	[reply] [d/l]
Re^13: WWW-Search module that works by menolly (Hermit) on Jun 15, 2007 at 17:45 UTC
OK, so it looks like your object isn't getting created -- after the 'new', it's still undefined. Do you have WWW::Search::Yahoo installed? How about WWW::SearchResult?	[reply]
Re^14: WWW-Search module that works by coder57 (Novice) on Jun 16, 2007 at 06:40 UTC
Re^15: WWW-Search module that works by marto (Cardinal) on Jun 16, 2007 at 10:09 UTC
Some notes below your chosen depth have not been shown here
Re^15: WWW-Search module that works by menolly (Hermit) on Jun 18, 2007 at 21:56 UTC
Re^13: WWW-Search module that works by quester (Vicar) on Jun 17, 2007 at 06:02 UTC
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 .	[reply]