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: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]
Sent: Wednesday, April 03, 2002 7:56 AM
To: [EMAIL PROTECTED]
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: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
