FTP: Difference between revisions
Content added Content deleted
(Add draft to task.) |
(added racket) |
||
Line 14: | Line 14: | ||
ftp.quit() |
ftp.quit() |
||
</lang> |
</lang> |
||
=={{header|Racket}}== |
|||
<lang racket> |
|||
#lang racket |
|||
(require net/ftp) |
|||
(let* ([server "kernel.org"] |
|||
[remote-dir "/pub/linux/kernel/"] |
|||
[local-dir "files"] |
|||
[conn (ftp-establish-connection |
|||
server |
|||
21 |
|||
"anonymous" |
|||
"")]) |
|||
(ftp-cd conn remote-dir) |
|||
(map |
|||
(lambda (elem) (printf "~a\n" (string-join elem "\t"))) |
|||
(ftp-directory-list conn ".")) |
|||
(ftp-download-file conn "." "README") |
|||
(ftp-close-connection conn))</lang> |
|||
=={{header|REBOL}}== |
=={{header|REBOL}}== |