Almost there! There are a few things you should clean up in addition to figuring out how get() works.

  • use strict;
  • Lexically scope all of those variables with "my" to make strict happy.
  • "Hardcode" your desired local directory, and tell get() about it.
  • You don't need to add a newline to the cwd().
  • Your syntax for printing the filelist with newlines won't work. Use map instead.
  • Add some error checking and feedback.
    • #!/usr/local/bin/perl -w

use strict;

use Net::FTP;

my $hostname = 'mirror.anl.gov';
my $username = 'anonymous';
my $password = 'username@domain.com';

# Hardcode the directory and filename to get
my $home = '/pub';
my $filename = 'motd';

# Hardcode the local directory
my $localdir = '/home/boy/';

# Open the connection to the host

my $ftp = Net::FTP->new($hostname)
    or die "Cannot connect to $hostname: $@";     # Construct object

$ftp->login($username, $password)
    or die "Cannot login ", $ftp->message;;       # Log in

$ftp->cwd($home)
    or die "Cannot change working directory ", $ftp->message;# Change 
+directory

my @filelist=$ftp->ls($home);        

print map { "$_\n"} @filelist;

# Now get the file and leave
$ftp->get($filename,$localdir.$filename)
    or die "Cannot get $filename: $@"; 

$ftp->quit;

    [download]

    In reply to Re: Saving FTP File by moklevat
    in thread Saving FTP File by Anonymous Monk

    Title:
    Use:  <p> text here (a paragraph) </p>
    and:  <code> code here </code>
    to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.