FTP mit Perl (Allgemeines zu Perl)

[thread]8315[/thread]

FTP mit Perl

Leser: 1

Rafael

2006-09-11 13:39

User since
2006-07-26
22 Artikel
BenutzerIn
[default_avatar]

Hey Leute
Ich würde gerne mit Perl auf meinem FTP-Server arbeiten (upload, download, löschen).
Leider hab ich keinen Plan, wie ich dies anstellen soll.
Könnt ihr mir helfen?
danke
Rafael

vayu

2006-09-11 13:41

User since
2005-01-13
782 Artikel
BenutzerIn
[default_avatar]

Net::FTP

"imitation is the sincerest form of flattery."
- Lee Anthony Iacocca
http://img156.imageshack.us/img156/2056/perluserba...
http://img410.imageshack.us/img410/2664/tcmduserba...

fraggs

2006-09-11 13:43

User since
2006-09-11
179 Artikel
BenutzerIn

ich glaube das wird dir weiter helfen :) CPAN:

Net::Ftp
da werde ich mich auch jetzt grad mal durchlesen aber ich denke andere habe noch mehr informatievere tips;)

EDIT:baaah vayu !!! 2 minute schneller haha\n\n

mmm twix

Rafael

2006-09-11 16:40

User since
2006-07-26
22 Artikel
BenutzerIn
[default_avatar]

Code: (dl )

#!/usr/bin/perl

use strict;
use warnings;
use Net::FTP;

my $host = "";
my $user = "";
my $pass = "";
my $option = 0;
my $option_2 = 0;
my $ftp = "";

print "Bitte wählen Sie: \n1 Anonymer Login \n2 Eingabe von Benutzerdaten \nIhre Wahl: ";
$option = <STDIN>;
if ($option == 1){
    $user = "anonymous";
    $pass = "anonymous\@anonymous.com";
};
if ($option == 2){
    print "\nBenutzername: ";
    $user = <STDIN>;
    print "\nPasswort: ";
    $pass = <STDIN>;
}
else {....};
print "\nHost: ";
$host = <STDIN>;
$ftp = Net::FTP->new($host);
$ftp->login($user, $pass);

Hier bekomme ich dann die Meldung:
Can't call method "login" on an undefined value D.\Perl\FTP\ftp.pl line 39. <STDIN> at line 2.\n\n

fraggs

2006-09-11 16:45

User since
2006-09-11
179 Artikel
BenutzerIn

Code: (dl )

#!/usr/bin/perl

use strict;
use warnings;
use Net::FTP;

my $host = "";
my $user = "";
my $pass = "";
my $option = 0;
my $option_2 = 0;
my $ftp = "";
my $login = "";

print "Bitte wählen Sie: \n1 Anonymer Login \n2 Eingabe von Benutzerdaten \nIhre Wahl: ";
$option = <STDIN>;
if ($option == 1){
$user = "anonymous";
$pass = "anonymous\@anonymous.com";
};
if ($option == 2){
print "\nBenutzername: ";
$user = <STDIN>;
print "\nPasswort: ";
$pass = <STDIN>;
}
print "\nHost: ";
$host = <STDIN>;
$ftp = Net::FTP->new($host);
$ftp->$login($user, $pass);

check nochmal nach mit deinem "else" dort stimmte was nicht aber das braucht man nicht unbedingt

edit: frage in welchem format wird der host eingegeben ?
wenn ich nach ftp:// frage wird er dir einen error geben !

edit2: das hier ist auch interesant ! File::Listing FTP\n\n

mmm twix

renee

2006-09-11 17:09

User since
2003-08-04
14371 Artikel
ModeratorIn

mach mal ein chomp $host; nachdem Du den host eingegeben hast...

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/

fraggs

2006-09-11 17:23

User since
2006-09-11
179 Artikel
BenutzerIn

k ich komme ueber all durch name passwort etc. aber sobald man eine host eingibt sag er:

Quote
Can't call method "" on an undefined value at ftp.pl line 32, <STDIN> line 2.

\n\n

mmm twix

nepos

2006-09-11 17:31

User since
2005-08-17
1420 Artikel
BenutzerIn

Man sollte nach dem Net::FTP->new pruefen, ob undef zurueckgegeben wird. Wenn das fer Fall ist, findet man in $@ die Fehlermeldung, was schiefgelaufen ist. Siehe auch Net::FTP unter dem Punkt CONSTRUCTOR.

renee

2006-09-11 17:32

User since
2003-08-04
14371 Artikel
ModeratorIn

Auch bei $user und $password sollte man chomp machen.

Und mach mal

Code: (dl )

1
2

$ftp = Net::FTP->new($host, Debug => 0)
      or die "Cannot connect to $host: $@";

fraggs

2006-09-11 17:41

User since
2006-09-11
179 Artikel
BenutzerIn

alles ge chomp 't und auch

Quote
$ftp = Net::FTP->new($host, Debug => 0)
or die "Cannot connect to $host: $@";

eingebaut

nun habe ich das hier

Code: (dl )

#!/usr/bin/perl

use strict;

use warnings;
use Net::FTP;

my $host = "";
my $user = "";
my $pass = "";
my $option = 0;
my $option_2 = 0;
my $ftp = "";
my $login = "";

print "Bitte wählen Sie: \n1 Anonymer Login \n2 Eingabe von Benutzerdaten \nIhre Wahl: ";
$option = <STDIN>;
if ($option == 1){
$user = "anonymous";
$pass = "anonymous\@anonymous.com";
};
if ($option == 2){
print "\nBenutzername: ";
$user = <STDIN>;
chomp($user);
print "\nPasswort: ";
$pass = <STDIN>;
chomp($pass);
}
else {print "anonymous login selected\n"};
print "\nHost: ";
$host = <STDIN>;
chomp($host);
$ftp = Net::FTP->new($host, Debug => 0)
     or die "Cannot connect to $host: $@"; 
$ftp->$login($user, $pass);

schmeist mir einen error

Quote
Cannot connect to 127.0.0.1: Net::FTP: connect: Unknown error at ftp.pl line 34,
<STDIN> line 4.

woher kommt der <STDIN> line 4 error ? ist das der host input ?

EDIT: Doh ftp war nicht an bin auf der arbeit kann nichts isntallieren werde heute abend nochmals testen\n\n

mmm twix

View all threads created 2006-09-11 13:39.