RE: ftp

The file is huge...  timing out on your machine maybe?
I made 2 little modifications and it ran.

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

my $x = get("ftp://144.16.71.2/pub/pdb/pdb1ax0.ent"); # Combined the my and
the get

if ($x eq "")
{
 print "FTP not working";
}
print "$x"; #Quoted the Var

Worked for me

-Mike

-----Original Message-----
From: mnp4@bgl.vsnl.net.in [mailto:mnp4@bgl.vsnl.net.in]
Sent: Wednesday, April 03, 2002 7:56 AM
To: beginners@perl.org
Subject: ftp



hi everybody,
pls let me know what is wrong with this piece of code...
----------------------------------------------------------

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

my $x = ' ';
$x = get("ftp://144.16.71.2/pub/pdb/pdb1ax0.ent");

if ($x eq "")
{
 print "FTP not working";
}
print $x;

-------------------------------------------------------

thanks,
prats.


--
To unsubscribe, e-mail: beginners-unsubscribe@perl.org
For additional commands, e-mail: beginners-help@perl.org

• ftp by mnp4
• RE: ftp by Michael Gargiullo