CGI/PERL LWP::Simple..

[jskam]

I have this perl script as follows

#!/usr/bin/perl

use CGI::Carp qw(fatalsToBrowser);
use LWP::Simple;
use CGI;

$query = new CGI;

print $query->header;

$content = get("http://www.cpan.org/doc/FAQs/index.html");

open FILEHANDLE, ">file.txt";
print FILEHANDLE $content;
close FILEHANDLE;

When i run this script, it runs successfully, the file.txt is also created but nothing is written to the file.txt, its empty...

Any beginners or pros or masters or experts on perl, who can help me out here??..thanks in advance

 

[nag]

check the contents of $content variable when you are calling get() on it, check whether anything is returned or not, it may be problem that get() is not successfull or due to restrictions cannot grab the contents of web page

 

[jskam]

check the contents of $content variable when you are calling get() on it, check whether anything is returned or not, it may be problem that get() is not successfull or due to restrictions cannot grab the contents of web page

How do i check the contents of $content variable???

 

[nag]

simply do a
print $content;

 

[jskam]

hey i tried

print $content;

But It doesnt print anything...empty...
which means that there might be some error, while getting the file using the get method

$content = get("http://www.cpan.org/doc/FAQs/index.html");

what you say??what can be the possible solution?

 

[nag]

the variable is empty because, may be you are behind a firewall or some likely problem, try using some other method to grab the contents of web page. I think most probably you would be unable to create a socket for outgoing connection ... try your script on some other host that allows direct outgoing connection to internet.

 

[jskam]

may be..i shall try it on other servers and i will know...how it is...or may be i might try and reprogram it in such a way that i works, on the current server...

i will let you know, what it is....

thanks, anyways, for helping out until here..

 

[wahyudi]

Try different URL.

 

[NickNet]

I have this perl script as follows

use LWP::Simple;

What host are you using ?
You have to note that Netfirms and some other fxxxing hosts don't have the LWP module support.

 

[jskam]

What host are you using ?
You have to note that Netfirms and some other fxxxing hosts don't have the LWP module support.

Well the host i am with, does support LWP::Simple.

 

[GregT]

The following works perfectly for me.

#!/usr/bin/perl
use LWP::Simple;

print "Content-Type: text/html\n\n\n";

my $content = get("http://www.cpan.org/doc/FAQs/index.html");
print $content;

open (OUT,">output.text");
print OUT $content;
close OUT;

__END__