How do I make Net::FTP use wildcards

[rzs96]

Greetings! I would like to be able to make Net::FTP grab all the files in a directory preferably using wildcards. Do you know how I can go about this?

Here's my code so far

sub ftp_start
{
    my ($ftp, $meetNo);
    my ($root, $filename);
    my (@directories);
    

    ### THESE 3 WORK FINE:
    $ftp = Net::FTP->new("atd77.acs.org", Debug => 0)
      or die "Cannot connect to some.host.name: $@";

    $ftp->login("USERNAME",'PASSWORD')
      or die "Cannot login ", $ftp->message;

    $ftp->cwd("$REMOTE_DIR")
      or die "Cannot change working directory ", $ftp->message;

        # I WANT TO DO THIS:  GET ALL FILES IN $REMOTE_DIR and FTP the
+m to the local directory.
    $ftp->get("*.*") 
      or die "get failed ", $ftp->message;

    $ftp->quit;
}

Thanks!
Robert

[fauria]

I dont know if this is optimal, but you can get a list of files using ls, and then download them all:


use Net::FTP;

my $ftp = Net::FTP->new("atd77.acs.org", Debug => 0);
$ftp->login("foo",'bar');

my @file_list = $ftp->ls();

foreach (@file_list) {
 $ftp->get($_);
}

[rzs96]

Hey Fauria, thanks! Your solution I believe did the trick! Etm177's solution is probably more sophisticated, and if I run into any further challenges, I may use his mask, or else persuade the boss to install FTP::Recursive.
This is really an amazing site, I love the quick responses, and know there are cool people here.
Cheers!
Robert

[Adrade]

Net::FTP::Recursive should take care of your needs... check it out.

Best,
  -Adam

[etm117]

To be able to use a mask and not just get all files in the directory (which the above example does), I run a ls command on the directory, then runs the mask through a grep command and then gets those files.

So I modified your code below to do that (it is untested, but the premise should work fine for you)


sub ftp_start
{
    my ($ftp, $meetNo);
    my ($root, $filename);
    my (@directories);

    # the Perl regexp mask to get all files
    my $mask = ".";

    ### THESE 3 WORK FINE:
    $ftp = Net::FTP->new("atd77.acs.org", Debug => 0)
      or die "Cannot connect to some.host.name: $@";

    $ftp->login("USERNAME",'PASSWORD')
      or die "Cannot login ", $ftp->message;

    $ftp->cwd("$REMOTE_DIR")
      or die "Cannot change working directory ", $ftp->message;

    # Here is new code
    my @files = $ftp->ls("$REMOTE_DIR");
    @files = grep { $_ =~ /$mask/ } @files;
    for my $file ( @files ) {
        $ftp->get("$file") or die "get failed ", ftp->message;
    }

    $ftp->quit;
}

Updated to note that this version works with Perl RegExp as the mask.

[dReKurCe]

I have a solution that reterives all files the directory located at Using NET::FTP to download Files.