develooper Front page | perl.beginners | Postings from April 2002

RE: ftp

Thread Previous
From:
Michael Gargiullo
Date:
April 3, 2002 07:18
Subject:
RE: ftp
Message ID:
NGBBJEADBDIGMPLAMOCNAEMJCCAA.gargiullo@comcast.net
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


Thread Previous


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About