Help for this page
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; } }
www.com | www.net | www.org
No recent polls found