hi
i have script of perl that is running ok on windows plateform.but that is not running on linux server.the script is as
#!/usr/bin/perl
# -- SOAP::Lite -- soaplite.com -- Copyright (C) 2001 Paul Kulchenko --
# Google Web API:
http://www.google.com/apis/# NB: Register and get your own key first
print "Content-type:text/html
";
require "cgi-lib.pl";
###############Getting Keyword from HTML form
&ReadParse;
$query = $in{'search1'};
use SOAP::Lite;
my $key = 'gXrELMpQFHL7v52wOcbhUYHq99YLmV4N'; # <<< put your key here
#my $query = shift || 'fast cars';
# use GoogleSearch.wsdl file from Google developer's kit
my $google = SOAP::Lite->service('
http://api.google.com/GoogleSearch.wsdl');
my $result = $google->doGoogleSearch(
$key, $query, 0, 10, 'false', '', 'false', '', 'latin1', 'latin1');
print "Top 10 Search Results for keyword = $result->{'searchQuery'}
";
print "------------------------------------------------------------
";
my
@searchresults =
@{$result->{'resultElements'}};
for($x=0;$x<=$#searchresults;$x++){
print $x+1;
print "-
";
print "$searchresults[$x]->{'title'}
";
print "
{'URL'}> $searchresults[$x]->{'URL'} ";
}
the error of linux server is coming that
Can't locate SOAP/Lite.pm in
@INC (
@INC contains: /usr/local/lib/perl5/site_perl/5.6.1/mach /usr/local/lib/perl5/site_perl/5.6.1 /usr/local/lib/perl5/site_perl /usr/local/lib/perl5/5.6.1/BSDPAN /usr/local/lib/perl5/5.6.1/mach /usr/local/lib/perl5/5.6.1 .) at ./google.pl line 14.
BEGIN failed--compilation aborted at ./google.pl line 14.
plz tell me the solution of this and also tell me all the changes for linux platform
thanks for quick response
Comments
:
: Can't locate SOAP/Lite.pm in @INC (@INC contains: /usr/local/lib/perl5/site_perl/5.6.1/mach /usr/local/lib/perl5/site_perl/5.6.1 /usr/local/lib/perl5/site_perl /usr/local/lib/perl5/5.6.1/BSDPAN /usr/local/lib/perl5/5.6.1/mach /usr/local/lib/perl5/5.6.1 .) at ./google.pl line 14.
: BEGIN failed--compilation aborted at ./google.pl line 14.
:
That's not Linux specific - it's just saying that the module SOAP::Lite is not installed. You need to contact the server administrator (at a guess, your web hosting company) and ask them to install it. Or if you run the server then log in as root and type
perl -MCPAN -e 'install SOAP::Lite';
If it asks you if you want to do manual configuration, type no and press enter - automatic config has always worked for me. If it asks whether it should install any dependent modules, type yes and press enter.
Jonathan
###
for(74,117,115,116){$::a.=chr};(($_.='qwertyui')&&
(tr/yuiqwert/her anot/))for($::b);for($::c){$_.=$^X;
/(p.{2}l)/;$_=$1}$::b=~/(..)$/;print("$::a$::b $::c hack$1.");