http://www.perlmonks.org?node_id=700661


in reply to FTP Script

This is in the libnet FAQ: (link):

Why does Net::FTP not implement mput and mget methods

The quick answer is because they are easy to implement yourself. The long answer is that to write these in such a way that multiple platforms are supported correctly would just require too much code. Below are some examples how you can implement these yourself.

sub mput { my($ftp,$pattern) = @_; foreach my $file (glob($pattern)) { + $ftp->put($file) or warn $ftp->message; } } sub mget { my($ftp,$pattern) = @_; foreach my $file ($ftp->ls($pattern +)) { $ftp->get($file) or warn $ftp->message; } }