Perl6
Latest commit 43cb287 Mar 1, 2017 @araraloren committed on GitHub Update LICENSE
Permalink
Failed to load latest commit information.
lib/Net update readme Apr 29, 2016
t Added stor.txt to the ftp server, now 05-put-get.t exits successfully Feb 22, 2016
.gitignore Initial commit Oct 16, 2015
.travis.yml Update .travis.yml Oct 23, 2015
LICENSE Update LICENSE Mar 1, 2017
META.info Update META.info Dec 10, 2015
README.md update readme Apr 29, 2016

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