#!/bin/bash
# Diese Datei:
lokal_file=/tmp/test1
# ... wird hochgeladen nach:
remote_file=/var/tmp/remote_test1
# ftp starten und die Befehle mit einem here-doc angeben:
ftp -n <<EOFTP
open zielhost
user uid4711 null8fuenf10
bin
put $lokal_file $remote_file
quit
EOFTP

# ~/.netrc
machine zielhost
login uid4711
password null8fuenf10

require 'net/ftp'

ftp = Net::FTP.new('ftp.server.tld')

ftp.login('user','pass') # für anonymen Login einfach die Parameterliste weglassen

ftp.list

ftp.getbinaryfile('xyz.gz')

ftp.gettextfile('xyz-license.txt')

ftp.close

from ftplib import FTP
ftp = FTP("ftp.server.tdl")
ftp.login("user","pass")            # für anonymen Login keine Parameter angeben
files = ftp.retrlines("LIST")       # Verzeichnisinhalt nun in der Variable files

fp = file("test.html","r")          # test.html lesend öffnen
ftp.cwd("daten")                    # Ins "daten" Verzeichnis wechseln
ftp.storlines("STOR test.html", fp) # test.html unter dem Namen test.html speichern
ftp.quit()                          # Verbindung beenden
f.close()                           # Dateiobjekt schließen

#!/usr/bin/perl -w
use Net::FTP;

$ftp = Net::FTP->new("kernel.org");        # Verbinden mit Kernel.org
$ftp->login;                               # Einloggen: Ohne Angaben wird automatisch Anonymous genommen

$verz = $ftp->pwd();                       # Speichert das aktuelle Verzeichnis in $verz
print "Wir befinden uns in $verz\n";

$ftp->cwd("/pub");                         # Wechselt in das Verzeichnis /pub
@files = $ftp->ls;                         # Liest den Inhalt des aktuellen Verzeichnisses. Dateinamen werden in Array gespeichert.
print "$_\n" for @files;                   # Gibt den Inhalt des Arrays Zeilenweise aus.

$ftp->binary;                              # Wechselt zum Binary Modus
$ftp->ascii;                               # Wechselt zum ASCII Modus

$ftp->cdup;                                # Wechselt zum ueberligendem Verzeichnis.
$ftp->get("welcome.msg");                  # Lädt die Datei welcome.msg herunter.

$ftp->quit;                                # Beendet die verbindung