Re^11: WWW-Search module that works

[menolly]

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.

[coder57]

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.

[menolly]

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?

[coder57]

I have WWW::Search installed but not WWW::SearchResult I am on activeperl 5.8.6 which repository has it?

[quester]

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 .