perl script

Post Reply
Message
Author
srtwist
Posts: 11
Joined: 20. May 2001 11:28

perl script

#1 Post by srtwist »

hallo alle miteinander !!!

ich will ein kleines upload sript schreiben, das sript sieht bisher so aus
es soll eigendlich nur neine datei die festgelegt sein kann oder auch nicht weiß nch nicht auf einen ftp hochladen !
aber ich kann mich nicht auf dem ftp einloggen kann mir jemand helfen?

##############################################################################
#!/usr/bin/perl -w

print "bitte username eingaben!
";
$benutzer = <STDIN>;
print "bitte passwort eingaben!
";
$passwort = <STDIN>;

# open(CLEAN, "clear |");
# print <CLEAN>;

print "#####################################################################
";
print "
";
print "Hallo \@$benutzer ihr passwort lautet also
";
print "\@$passwort";
print "
";
print "#####################################################################
";


open(UP, "ftp > $benutzer':'$passwort@geocities.com|");
# print <UP>;
# open(DIR, "dir |");
# print<DIR>;

close(UP) or die" geht nicht 'UP'
";

Descartes

Re: perl script

#2 Post by Descartes »

Warum so kompiliziert mit Perl, wenn es auch mit einem ordinären Shell-Script geht ?

es reicht, ftp mit einem kleinen script aufzurufen: ftp -n < datei_mit_einstellungen

Die Datei enhält dann nur folgendes:
---cut---
open FTPSERVER
user NAME PASSWORD
binary
put DATEINAME
quit
---cut---

das kleine shell-script hier sollte dies eigentlich bewerkstelligen

<pre>
#!/bin/sh
umask 600
FTP_UPLOAD_SCRIPT="/tmp/upload.$$$"

FTP_SERVER="ftp.geocities.com"
FTP_LOGIN="twist"
FTP_PASS="ganzgeheim"

if [ -f $FILE_UPLOAD ]; then
echo "open $FTP_SERVER" > $FILE_UPLOAD_SCRIPT
echo "user $FTP_LOGIN $FTP_PASS" >> $FILE_UPLOAD_SCRIPT
echo "binary" >> $FILE_UPLOAD_SCRIPT
echo "put $FILE_UPLOAD" >> $FILE_UPLOAD_SCRIPT
echo "quit" >> $FILE_UPLOAD_SCRIPT
ftp -n < $FTP_UPLOAD_SCRIPT
fi

if [ -f $FTP_UPLOAD_SCRIPT ]; then
rm $FTP_UPLOAD_SCRIPT
fi
</pre>

hugenay

Re: perl script

#3 Post by hugenay »

ich hab mal meine IP per perl-skript auf meine homepage hochgeladen.
Müsstest du noch unter www.osiris.de finden.

gruss hug.

Jochen

Re: perl script

#4 Post by Jochen »

Nicht, dass ich soooo sattelfest in perl wäre, aber eins fällt mir auf: Du chop()st das Newline von $benutzer und $passwort nicht weg. Da dürfte der Fehler liegen.

Jochen

ratte

Re: perl script

#5 Post by ratte »

stopp ++++++++++++

der thread wird im Net::FTP vom gleichen Frager weiterbehandelt, hier nicht mehr.


neu ++++++++++++++

hier startet jetzt die diskussion, ob ich meine ananaspflanze besser mit verduenntem tee oder Kaffee, oder besser mit Eierkochwasser giesse oder gar nicht.

Wer etwas zum Gummistiefeln zu sagen hat, findet auch hier seinen Platz.

ich geh' jetzt, ratte.

Post Reply