Net::FTP - ftp upload! Problem mit put? (gelöst) (Fragen zu Perl-Modulen)

[thread]18014[/thread]

Net::FTP - ftp upload! Problem mit put? [gelöst]

Tags: perl5 ftp put Ähnliche Threads

Leser: 16

Articles: hide open all | hide show old branches

+21 replies
KarlaCluft

2012-12-26 16:14
User since
2012-12-11
50 Artikel
BenutzerIn
Guten Tag alle zusammen! :)
Ich habe ein Script welches zu einem ftp server hochladen soll hat auch anfangs super funktioniert, aber seit ich linux neu installiert habe läuft es nicht mehr! Wäre toll weenn mir jemand sagen könnte woran es liegt!
Code (perl): (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

use strict; use warnings; use Net::FTP; use constant HOSTNAME => 'ftp.ul.net'; use constant USERNAME => 'username' ; use constant PASSWORD => 'sicher123'; my $host = Net::FTP->new(HOSTNAME) or die "Cannot connect to ", HOSTNAME, ": $!\n"; $host->login(USERNAME, PASSWORD) or die "login error: ", $host->message, $/; $host->put (test.txt) or die "cannot put test.txt: ", $host->message, $/; $host->quit;
Da bekomme ich immer die Fehlermeldeung "cannot put test.txt"! geht also wohl darum dass der put- Befehl nicht funktioniert!?
(habe einen alten Thread dazu gefunden hat mir aber leider nicht geholfen!
mgf Karla

modedit Editiert von GwenDragon: Titel korrigiert
Last edited: 2012-12-26 17:55:37 +0100 (CET)
- +7 replies
- bianca
  
  2012-12-26 16:25
  
  User since
  2009-09-13
  7016 Artikel
  BenutzerIn
  
  Du wechselst keinen Pfad. Soll die Datei wirklich ins Root des FTP-Servers? Hast du Schreibrechte im Root?
  10 print "Hallo"
  20 goto 10
  - +2 replies
  - KarlaCluft
    
    2012-12-26 16:29
    
    User since
    2012-12-11
    50 Artikel
    BenutzerIn
    
    Wo würede ich es denn normalerweise hin geben?
    - bianca
      
      2012-12-26 16:32
      
      User since
      2009-09-13
      7016 Artikel
      BenutzerIn
      
      2012-12-26T15:29:10 KarlaCluft
      Wo würede ich es denn normalerweise hin geben?
      
      Woher sollen wir das wissen? Es ist dein FTP-Zugang. Du musst wissen, wo auf dem Server was liegt und welche Rechte der FTP-Benutzer hat.
      Worum geht es denn dabei?
      10 print "Hallo"
      20 goto 10
  - +4 replies
  - GwenDragon
    
    2012-12-26 16:38
    
    User since
    2005-01-17
    14757 Artikel
    Admin1
    
    Da muss niemand irgendwo den Pfad wechseln zum Upload.
    Beim Login wird jeder FTP-Server sofortigst in das Verzeichnis wechseln, das die eingeloggten Benutzer zugewiesen bekommen haben.
    die Drachin Gwen
    
    Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
    - +3 replies
    - bianca
      
      2012-12-26 16:47
      
      User since
      2009-09-13
      7016 Artikel
      BenutzerIn
      
      2012-12-26T15:38:22 GwenDragon
      Da muss niemand irgendwo den Pfad wechseln zum Upload.
      
      Woher weißt du das?
      10 print "Hallo"
      20 goto 10
      - +2 replies
      - GwenDragon
        
        2012-12-26 17:02
        
        User since
        2005-01-17
        14757 Artikel
        Admin1
        
        Wo muss der Pfad extra gewechselt werden?
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        bianca
        
        2012-12-26 17:05
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        2012-12-26T16:02:44 GwenDragon
        Wo muss der Pfad extra gewechselt werden?
        
        Zum Beispiel überall dort, wo man im Root keine Schreibrechte hat, weil sich den FTP-Zugang mehrere Benutzer teilen. Kommt ja auf die Konfiguration des FTP-Severs an.
        10 print "Hallo"
        20 goto 10
- +12 replies
- GwenDragon
  
  2012-12-26 16:33
  
  User since
  2005-01-17
  14757 Artikel
  Admin1
  
  Net::FTP besagt bei put():
  
  Quote
  put ( LOCAL_FILE [, REMOTE_FILE ] )
  
  Put a file on the remote server. LOCAL_FILE may be a name or a filehandle. If LOCAL_FILE is a filehandle then REMOTE_FILE must be specified. If REMOTE_FILE is not specified then the file will be stored in the current directory with the same leafname as LOCAL_FILE.
  
  Returns REMOTE_FILE, or the generated remote filename if REMOTE_FILE is not given.
  
  NOTE: If for some reason the transfer does not complete and an error is returned then the contents that had been transferred will not be remove automatically.
  
  Mal so kurz überflogen, denke ich:
  
  Na, Zeile 17! Wieso sind da bitte um test.txt keine Anführungszeichen? Das soll doch ein Dateiname sein und es ist auch kein Dateihandle. Oder?
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +11 replies
  - KarlaCluft
    
    2012-12-26 16:38
    
    User since
    2012-12-11
    50 Artikel
    BenutzerIn
    
    Das ist natürlich richtig!
    Aber das Problem liegt so weit ich sehen kann beim put!?
    Fehlt da evtl. ein Modul?
    - +10 replies
    - GwenDragon
      
      2012-12-26 16:43
      
      User since
      2005-01-17
      14757 Artikel
      Admin1
      
      Ich weiß nicht wie dein Röntgenblick funktioniert, aber du solltest vielleicht new mit Debugoption aufrufen:
      
      Code (perl): (dl )
      
      1 2
      
      my $host = Net::FTP->new(HOSTNAME, Debug => 1) or die "Cannot connect to ", HOSTNAME, ": $@\n";
      
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
      - +9 replies
      - KarlaCluft
        
        2012-12-26 17:05
        
        User since
        2012-12-11
        50 Artikel
        BenutzerIn
        
        Okay danke!
        Habe ich gemacht und kommt folgendes:
        
        Net::FTP>>> Net::FTP(2.77)
        Net::FTP>>> Exporter(5.63)
        Net::FTP>>> Net::Cmd(2.29)
        Net::FTP>>> IO::Socket::INET(1.31)
        Net::FTP>>> IO::Socket(1.31)
        Net::FTP>>> IO::Handle(1.28)
        Net::FTP=GLOB(0xd24b2c)<<< 220 FTP-Uploadserver
        Net::FTP=GLOB(0xd24b2c)>>> USER 12XXXX
        Net::FTP=GLOB(0xd24b2c)<<< 331 Password required for 12XXXX.
        Net::FTP=GLOB(0xd24b2c)>>> PASS ....
        Net::FTP=GLOB(0xd24b2c)<<< 230 User logged in, proceed
        Net::FTP=GLOB(0xd24b2c)>>> ALLO 5
        Net::FTP=GLOB(0xd24b2c)<<< 502 Command 'ALLO' not implemented
        Net::FTP=GLOB(0xd24b2c)>>> PORT 17X,33,X,91,2XX,XXX
        Net::FTP=GLOB(0xd24b2c): Timeout at ftp.pl line 18.
        
        bianca
        
        2012-12-26 17:20
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        2012-12-26T16:05:41 KarlaCluft
        Net::FTP=GLOB(0xd24b2c)>>> ALLO 5
        
        Hast du test.txt in Hochkommata gesetzt und den Pfad komplett angegeben wie GwenDragon geschrieben hat? Mir scheint als würde Net::FTP die Angabe nicht als normale Datei interpretieren.
        10 print "Hallo"
        20 goto 10
        
        +7 replies
        
        GwenDragon
        
        2012-12-26 17:52
        
        User since
        2005-01-17
        14757 Artikel
        Admin1
        
        Vor einer Stunde hast du gesagt, du weißt, dass der Dateiname so nicht korrekt war. Oder was genau?
        
        1. Bei put muss der Parameter ein Dateiname in Anführungszeichen sein oder es muss sich um ein Dateihandle einer bereits geöffneten Datei handeln.
        Du weißt was ich meine?
        
        2. Schalte mal auch Passive Mode ein, kann ja sein, dass deine Firewall dich blockiert.
        Also so:
        Net::FTP->new(HOSTNAME, Passive => 1, Debug => 1)
        Last edited: 2012-12-26 17:53:50 +0100 (CET)
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        KarlaCluft
        
        2012-12-26 17:58
        
        User since
        2012-12-11
        50 Artikel
        BenutzerIn
        
        1. ich denke ja!
        2. danke! werde ich versuchen!
        
        +5 replies
        
        KarlaCluft
        
        2012-12-26 18:02
        
        User since
        2012-12-11
        50 Artikel
        BenutzerIn
        
        Vielen, vilen dank! Läuft! :)
        
        +2 replies
        
        GwenDragon
        
        2012-12-26 18:16
        
        User since
        2005-01-17
        14757 Artikel
        Admin1
        
        Woran lag es?
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        KarlaCluft
        
        2012-12-26 18:17
        
        User since
        2012-12-11
        50 Artikel
        BenutzerIn
        
        Mit Passive => 1 ging es!
        
        GwenDragon
        
        2012-12-26 18:57
        
        User since
        2005-01-17
        14757 Artikel
        Admin1
        
        Dann markiere bitte auch oben den Thread als gelöst (grüner Haken-Button).
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        GwenDragon
        
        2012-12-27 12:07
        
        User since
        2005-01-17
        14757 Artikel
        Admin1
        
        Habe mal den Thread auf gelöst gesetzt, nachdem du das vergessen hast.
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- GwenDragon
  
  2012-12-26 16:35
  
  User since
  2005-01-17
  14757 Artikel
  Admin1
  
  Verschoben von Allgemeines zu Perl nach Fragen zu Perl-Modulen
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten

View all threads created 2012-12-26 16:14.