Perl6
Switch branches/tags
Nothing to show
Latest commit 8c0fafa Apr 28, 2017 @araraloren committed on GitHub Merge pull request #25 from samcv/SPDX-license
Use SPDX identifier in license field of META6.json

README.md

Net::FTP

Build Status

perl6 Net::FTP

A simple ftp client module written in perl6.

Usage

use Net::FTP;
use Net::FTP::Config;

my $ftp = Net::FTP.new(:host<ftpserver>, :user<user>, :pass<pass>, :passive);

if $ftp.login() {
	mkdir('./ftpfile/');
	$ftp.cwd('/');
	for $ftp.ls() -> %info {
		next if (%info<name> eq '.' || %info<name> eq '..');
		if %info<type> == FILE::NORMAL {
			if $ftp.get(~%info<name>, "./ftpfile/", :binary) {
				say "GET %info<name> OK";
			}
		}
	}
	$ftp.quit();
}

Installation

install with panda

panda install Net::FTP

WARNING

  • Net::FTP::Format - getyear(), gettimet(), not yet implement.
  • Net::FTP - FTP only implemented passive mode.

TODO

  • not available on new rakudo version
  • FTP need bind a local port

Problem

Cause perl6 can not bind a local port to a socket, it's not easy to implement a ftp client according to the standard. If anyone know more about this, please contact me with email: blackcatoverwall@gmail.com