FTP: Difference between revisions

<br/><br/>

 

Using libCURL.

 

PRAGMA INCLUDE <curl/curl.h>

curl_easy_cleanup(easyhandle)

 

 

Full native implementation without dependency to external libraries.

 

LOCAL pasv$, data$, response$

PRINT interact$("QUIT", ftp, 0)

 

 

=={{header|Batch File}}==

This uses the native FTP.EXE in Windows. I am not sure, but I think FTP.EXE client does not support passive mode.

::Batch File Implementation

 

echo.get %download%

echo.disconnect

{{Out}}

<pre>\Desktop>RCFTP

=={{header|C}}==

Using [http://nbpfaus.net/~pfau/ftplib/ ftplib]

#include <ftplib.h>

 

return 0;

}

 

=={{header|C++}}==

 

Using [http://nbpfaus.net/~pfau/ftplib/ ftplib], [https://github.com/saur0n/libftpxx libftp++]

libftp++ C++ classes for ftplib C ftp library

}

/* END */

 

{{Out}}

Using package [http://code.kepibu.org/cl-ftp/ cl-ftp].

 

 

(with-ftp-connection (conn :hostname "ftp.hq.nasa.gov"

(let ((filename "Gravity in the Brain.mp3"))

(retrieve-file conn filename filename :type :binary)))

{{Out}}

<pre>

=={{header|Erlang}}==

Erlang implementation using ftp module.

%%%-------------------------------------------------------------------

%%% To execute in shell, Run the following commands:-

io:format("Closing connection to FTP Server"),

ftp:close(Pid).

 

=={{header|Groovy}}==

Dependencies are automatically loaded with the @Grab annotation.

let's say the code is saved in the file ftpTest.groovy:

@Grab(group='commons-net', module='commons-net', version='2.0')

import org.apache.commons.net.ftp.FTPClient

}

println(" ...Done.");

By typing groovy ftpTest.groovy, you should see a README.html file on your directory.

<pre>

Example uses [https://hackage.haskell.org/package/ftphs <tt>ftphs</tt>] package:

 

 

import Control.Exception (bracket)

-- Download in binary mode

(fileData, _) <- getbinary h "linux-0.01.tar.gz.sign"

 

=={{header|J}}==

 

gethttp 'ftp://anonymous:example@ftp.hq.nasa.gov/pub/issoutreach/Living%20in%20Space%20Stories%20(MP3%20Files)/'

-rw-rw-r-- 1 109 space-station 2327118 May 9 2005 09sept_spacepropulsion.mp3

-rw-rw-r-- 1 109 space-station 1134654 May 9 2005 When Space Makes you Dizzy.mp3

#file=: gethttp rplc&(' ';'%20') 'ftp://anonymous:example@ftp.hq.nasa.gov/pub/issoutreach/Living in Space Stories (MP3 Files)/We have a solution.mp3'

 

=={{header|Java}}==

requires apache.commons.net

import java.io.IOException;

import java.io.OutputStream;

}

}

 

Output:

{{works with|Julia|0.6}}

 

 

ftp = FTP(hostname = "ftp.ed.ac.uk", username = "anonymous")

bytes = read(download(ftp, "make.notes.tar"))

 

 

=={{header|Kotlin}}==

</pre>

Next, you need to compile the following Kotlin program, linking against ftplib.klib.

 

import kotlinx.cinterop.*

FtpQuit(vnbuf)

nativeHeap.free(nbuf)

Finally, the resulting .kexe file should be executed producing something similar to the following output:

<pre>

=={{header|Lingo}}==

{{libheader|Curl Xtra}}

ch = xtra("Curl").new()

url = "ftp://domain.com"

ch.setOption(CURLOPT_URL, url & filename)

ch.setDestinationFile(_movie.path & filename)

 

=={{header|LiveCode}}==

put url "ftp://ftp.hq.nasa.gov/" into listing

repeat for each line ftpln in listing

e.g. to know the working directory, issue "pwd", we could issue "list" for above too,

but using an url with slash on the end with the ftp protocol causes a dir listing by default.

 

=={{header|Nim}}==

{{works with|Nim|1.4}}

 

 

const

echo await ftp.send("QUIT") # Disconnect.

 

 

{{out}}

 

=={{header|Perl}}==

 

# set server and credentials

$f->type('binary');

$local = $f->get('512KB.zip');

{{out}}

<pre>Currently 20 files in the 'upload' directory

=={{header|Phix}}==

{{libheader|Phix/libcurl}}

<span style="color: #008080;">without</span> <span style="color: #008080;">js</span> <span style="color: #000080;font-style:italic;">-- libcurl, allocate, file i/o</span>

<span style="color: #008080;">include</span> <span style="color: #000000;">libcurl</span><span style="color: #0000FF;">.</span><span style="color: #000000;">e</span>

<span style="color: #0000FF;">?{</span><span style="color: #008000;">"error"</span><span style="color: #0000FF;">,</span><span style="color: #000000;">res</span><span style="color: #0000FF;">}</span>

<span style="color: #008080;">end</span> <span style="color: #008080;">if</span>

{{out}}

<pre>

 

=={{header|PHP}}==

$server = "speedtest.tele2.net";

$user = "anonymous";

} else {

echo "failed to download file";

{{out}}

<pre>

=={{header|PicoLisp}}==

Passive is the default behavior of 'curl'

(while (line)

(prinl @) ) )

Output:

<pre>README

=={{header|Python}}==

{{works with|Python|2.7.10}}

from ftplib import FTP

ftp = FTP('kernel.org')

print ftp.retrbinary('RETR README', open('README', 'wb').write)

ftp.quit()

 

=={{header|Racket}}==

Note: <tt>net/ftp</tt> in Racket uses passive mode exclusively.

#lang racket

(require net/ftp)

(ftp-download-file conn "." "README")

(ftp-close-connection conn))

 

=={{header|Raku}}==

{{works with|rakudo|2018.04}}

 

 

my $host = 'speedtest.tele2.net';

say $_<name> for $ftp.ls;

 

 

{{out}}

 

=={{header|REBOL}}==

system/schemes/ftp/passive: on

print read ftp://kernel.org/pub/linux/kernel/

write/binary %README read/binary ftp://kernel.org/pub/linux/kernel/README

 

=={{header|Ruby}}==

 

Net::FTP.open('ftp.ed.ac.uk', "anonymous","aaa@gmail.com" ) do |ftp|

puts ftp.list

ftp.getbinaryfile("make.notes.tar")

The connection is closed automatically at the end of the block.

 

=={{header|Rust}}==

Using crate <code>ftp</code> version 3.0.1

use ftp::FtpStream;

 

copy(&mut stream, &mut file)?;

Ok(())

 

=={{header|Scala}}==

{{libheader|commons-net}}

 

import org.apache.commons.net.ftp.{FTPClient, FTPFile, FTPReply}

ftpClient.logout

}.isFailure) println(s"Failure.")

{{Out}}See it in running in your browser by [https://scastie.scala-lang.org/3Lq8ehzIQTCuAOPXWofNLw Scastie (JVM)].

 

[http://seed7.sourceforge.net/libraries/ftp.htm#openFtp(in_string) open] and handle an

[http://seed7.sourceforge.net/libraries/ftp.htm#ftpFileSys ftpFileSys].

include "ftp.s7i";

 

writeln(getFile(ftp, "README"));

close(ftp);

 

=={{header|Sidef}}==

{{trans|Ruby}}

 

var ftp = %s'Net::FTP'.new('ftp.ed.ac.uk', Passive => 1);

ftp.binary; # set binary mode

ftp.get("make.notes.tar");

 

=={{header|Tcl}}==

===Using package ftp===

package require ftp

 

::ftp::Type $conn binary

::ftp::Get $conn README README

 

===Using a virtual file system===

An alternative approach that uses the package [http://sourceforge.net/projects/tclvfs/ TclVFS] to access ftp:// paths as a virtual file system.

 

package require vfs::urltype

vfs::urltype::Mount ftp

}

file copy README [file join $dir README]

 

The file <tt>vfsftpfix.tcl</tt> with the passive mode patch (see http://wiki.tcl.tk/12837):

# Replace vfs::ftp::Mount to enable vfs::ftp to work in passive

# mode and make that the default.

return $fd

}

 

=={{header|Wren}}==

{{libheader|ftplib}}

An embedded program so we can ask the C host to communicate with ''ftplib'' for us.

 

var FTPLIB_CONNMODE = 1

ftp.dir("", ".")

ftp.get("ftp.README", "README", FTPLIB_ASCII)

<br>

We now embed this in the following C program, compile and run it.

#include <stdio_ext.h>

#include <stdlib.h>

WrenVM* vm = wrenNewVM(&config);

const char* module = "main";

char *script = readFile(fileName);

WrenInterpretResult result = wrenInterpret(vm, module, script);

free(script);

return 0;

 

{{out}}

=={{header|zkl}}==

Using the cURL library, doing this from the REPL. Moving around in the tree isn't supported.

zkl: var d=cURL().get("ftp.hq.nasa.gov/pub/issoutreach/Living in Space Stories (MP3 Files)/")

L(Data(2,567),1630,23) // downloaded listing, 1630 bytes of header, 23 bytes of trailer

L(Data(1,136,358),1681,23)

zkl: File("foo.mp3","w").write(d[0][1681,-23])

The resulting file foo.mp3 has a nice six minute description of what can happen when returning from space.