Dear my friends...
OK, I follow this threath: http://www.perlmonks.org/?node_id=517871
Lookslike the problem with wsdl is over. But now, I found this error message as
I execute my code:
./googleku.pl
Exception from service object: Invalid authorization key:
ABQIAAAASzVWEo9_PkDjwjTkhPHJIxTovFWtVmuuMSRYt_dv3iXA1zQ3OxT9hxr3F7hqD-SZIzQb7p0QjzUobQ
at /usr/lib/perl5/vendor_perl/5.8.8/SOAP/Lite.pm line 3412
Please tell my, what is my mistake?
Thank you very much in advance.
====
On Wed, 17 Oct 2007 03:28:01 +0700
Patrik Hasibuan <[EMAIL PROTECTED]> wrote:
> Dear my friends...
>
> I tried a simple code like this:
> ====
> #!/usr/bin/perl -w
> use WWW::Search::Google;
>
> $key="ABQIAAAASzVWEo9_PkDjwjTkhPHJIxTovFWtVmuuMSRYt_dv3iXA1zQ3OxT9hxr3F7hqD-SZIzQb7p0QjzUobQ";
> my $search = WWW::Search->new('Google', key => $key);
> $search->native_query("Business Education");
> while (my $result = $search->next_result()) {
> print $result->title, "\n";
> print $result->url, "\n";
> print $result->description, "\n";
> print "\n";
> }
> ====
> But as I run this code I get an error message as the output like this:
> ./googleku.pl
> Use of uninitialized value in concatenation (.) or string at
> /usr/lib/perl5/site_perl/5.8.8/Net/Google/Service.pm line 80.
> Service description 'file:' can't be loaded: 404 File `' does not exist
> ===
>
> I found this threath as my googling result:
> http://johnbokma.com/mexit/2005/12/21/net-google-bug.html
> I did the as it told me but it did not make any change.
> ===
> Net::Google fix: copy the wsdl file
>
> The fix is an easy one. Somehow the build process doesn't copy the
> GoogleSearch.wsdl and the directory Services that contains this file to the
> blib directory. So copying manually the Services directory from:
> Net-Google-1.0/lib/Net/Google
>
> to the following directory:
> Net-Google-1.0/blib/lib/Net/Google
>
> fixed the problem for me. Entering nmake tests reported no more problems, and
> nmake install made the programs I have that require Net-Google work again.
> ===
>
> Please tell me if somebody has ever found the same problem.
>
> Please tell me my mistake.
>
> Thank you very much.
> --
> Patrik Hasibuan <[EMAIL PROTECTED]>
> Junior Programmer
>
> --
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
> http://learn.perl.org/
>
>
--
Patrik Hasibuan <[EMAIL PROTECTED]>
Junior Programmer
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
