copy mit net::ftp::file (gelöst) (Fragen zu Perl-Modulen)

[thread]14114[/thread]

copy mit net::ftp::file [gelöst]

Leser: 19

Articles: hide open all | hide show old branches

+15 replies
bianca

2009-10-07 18:06
User since
2009-09-13
7016 Artikel
BenutzerIn
Wenn ich ein
Code: (dl )

$ftp -> copy (".bash_history","kopie","/tmp/") or die $ftp -> message;
an meinen FTP Server absetze und zurück erhalte

Quote
"/" is the current directory

wer ist dann zu blöd?

Ich, weil ich einen falschen Befehl erteile?
Das Modul, weil es mich nicht versteht?
Der FTP-Server, weil er kein copy beherrscht?
10 print "Hallo"
20 goto 10
- +5 replies
- Linuxer
  
  2009-10-07 18:32
  
  User since
  2006-01-27
  3891 Artikel
  HausmeisterIn
  
  Existiert denn das Verzeichnis "/tmp" auf dem Zielserver?
  Falls nicht, ist es an Dir, es anzulegen.
  meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
  Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
  - +4 replies
  - bianca
    
    2009-10-07 18:35
    
    User since
    2009-09-13
    7016 Artikel
    BenutzerIn
    
    2009-10-07T16:32:13 Linuxer
    Existiert denn das Verzeichnis "/tmp" auf dem Zielserver?
    Falls nicht, ist es an Dir, es anzulegen.
    
    Ich hatte gehofft, dass man mir zutraut, das schon geprüft zu haben.
    Ja, das Verzeichnis existiert.
    
    EDIT: Zumindest ist es aus FTP Sicht im Root. Es kommt aber die gleiche Schrottmeldung, wenn ich es mit dem wirklichen absoluten Root-Pfad des Servers probiere. Daran scheint es also nicht zu liegen.
    Last edited: 2009-10-07 18:37:03 +0200 (CEST)
    10 print "Hallo"
    20 goto 10
    - +3 replies
    - Linuxer
      
      2009-10-07 18:44
      
      User since
      2006-01-27
      3891 Artikel
      HausmeisterIn
      
      Schon mal den Debug Modus eingeschaltet? Was kommt dabei raus?
      
      Tut mir leid, dass ich so wenig zwischen den Zeilen rauslesen kann, aber meine Kristallkugel ist im Laufe der Jahre trübe geworden. Ich kann nur das berücksichtigen, was Du hier schreibst...
      
      edit:
      Ein erster Test (zum Debug) schaut doch vielversprechend aus:
      
      Code: (dl )
      
      1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
      
      perl -MNet::FTP::File -wle 'my $ftp= Net::FTP->new( "ftp.suse.de", Debug=> 1); $ftp->login("anonymous", "-anonymous@" );' 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(0x8305df0)<<< 220 "Welcome to the SuSE ftp server: Please login as user 'ftp'" Net::FTP=GLOB(0x8305df0)>>> USER anonymous Net::FTP=GLOB(0x8305df0)<<< 331 Please send your email address as a password. Net::FTP=GLOB(0x8305df0)>>> PASS .... Net::FTP=GLOB(0x8305df0)<<< 230 Login successful. Have a lot of fun.
      
      Aktuell habe ich keinen Bastel-FTP-Server, auf dem ich einen Upload ausprobieren kann... Mal schauen, ob ich gleich einen hab.
      Last edited: 2009-10-07 18:49:43 +0200 (CEST)
      meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
      Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
      - +2 replies
      - bianca
        
        2009-10-07 18:57
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        Debug war eine gute Idee. Danke Dir.
        
        Code: (dl )
        
        $ftp -> copy (".bash_history","kopie","/tmp/") or die $ftp -> message;
        
        bringt:
        
        Code: (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14
        
        Net::FTP=GLOB(0x1b755e0)>>> PWD Net::FTP=GLOB(0x1b755e0)<<< 257 "/" is the current directory Net::FTP=GLOB(0x1b755e0)>>> HELP SIZE Net::FTP=GLOB(0x1b755e0)<<< 214 Syntax: SIZE <sp> pathname Net::FTP=GLOB(0x1b755e0)>>> SIZE .bash_history Net::FTP=GLOB(0x1b755e0)<<< 550 SIZE not allowed in ASCII mode Net::FTP=GLOB(0x1b755e0)>>> PWD Net::FTP=GLOB(0x1b755e0)<<< 257 "/" is the current directory Net::FTP=GLOB(0x1b755e0)>>> CWD .bash_history Net::FTP=GLOB(0x1b755e0)<<< 550 .bash_history: No such file or directory Net::FTP=GLOB(0x1b755e0)>>> CWD / Net::FTP=GLOB(0x1b755e0)<<< 250 CWD command successful Net::FTP=GLOB(0x1b755e0)>>> PWD Net::FTP=GLOB(0x1b755e0)<<< 257 "/" is the current directory
        
        .bash_history ist definitiv da, gehört meinem FTP-User auch und ich hab auch alle Rechte auf die Datei.
        Was macht das Teil da mit SIZE????
        10 print "Hallo"
        20 goto 10
        
        Linuxer
        
        2009-10-07 19:26
        
        User since
        2006-01-27
        3891 Artikel
        HausmeisterIn
        
        Die Debug-Ausgabe sagt was anderes als Du:
        
        Code: (dl )
        
        Net::FTP=GLOB(0x1b755e0)<<< 550 .bash_history: No such file or directory
        
        Meine Versuche sehen gut aus.
        
        Ausgangssituation im FTP Verzeichnis:
        
        Code: (dl )
        
        1 2 3 4 5 6 7 8 9
        
        /home/ftptest# ls -l . tmp/ .: total 4 -rw-r--r-- 1 ftptest ftp 520 Apr 22 17:46 README drwxr-xr-x 2 ftptest ftp 6 Oct 7 19:17 tmp tmp/: total 0 /home/ftptest#
        
        Folgendes Skript ausgeführt:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13
        
        #!/usr/bin/perl # vi:ts=4 sw=4 et: use strict; use warnings; use Net::FTP::File; my $ftp = Net::FTP->new( 'localhost', Debug => 1 ); $ftp->login( 'ftptest', 'abcdef' ) or die $ftp->message; $ftp->copy( 'README', 'README.txt', '/tmp' ) or die $ftp->message; $ftp->quit; __END__
        
        Endsituation:
        
        Code: (dl )
        
        1 2 3 4 5 6 7 8 9
        
        /home/ftptest# ls -l . tmp/ .: total 4 -rw-r--r-- 1 ftptest ftp 520 Apr 22 17:46 README drwxr-xr-x 2 ftptest ftp 23 Oct 7 19:22 tmp tmp/: total 4 -rw-r--r-- 1 ftptest ftp 520 Oct 7 19:22 README.txt
        
        Wie zu erkennen ist, wurde die Datei README erfolgreich als README.txt ins Verzeichnis tmp kopiert.
        
        Kann Dein Problem nur (halbwegs) nachstellen, wenn ich README lösche...
        meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
        Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
- +8 replies
- bianca
  
  2009-10-08 11:34
  
  User since
  2009-09-13
  7016 Artikel
  BenutzerIn
  
  Der Betreiber des FTP-Servers gab mir eben die Lösung: Der FTP-Server beherrscht das Kommando nicht.
  
  Da kann ich ja lange wurschteln. Auch tolle Debug-Meldungen vom Modul......
  
  Allen Dank für die Hilfe.
  10 print "Hallo"
  20 goto 10
  - +7 replies
  - Gast wer
    
    2009-10-08 12:06
    
    Welches Kommando beherrscht er nicht?
    - +6 replies
    - bianca
      
      2009-10-08 12:17
      
      User since
      2009-09-13
      7016 Artikel
      BenutzerIn
      
      Guest wer
      Welches Kommando beherrscht er nicht?
      
      copy
      10 print "Hallo"
      20 goto 10
      - +5 replies
      - Gast wer
        
        2009-10-08 12:32
        
        copy ist kein FTP Kommando sondern aus mehreren zusammengesetzt. Die Datei wird herunter geladen und an der neuen Stelle hoch geladen.
        
        +2 replies
        
        bianca
        
        2009-10-08 12:39
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        Soetwas hatte ich auch schon vermutet. Und wo wird die temporär lokal abgelegt?
        Vielleicht fehlen da Rechte bei mir?
        10 print "Hallo"
        20 goto 10
        
        Gast wer
        
        2009-10-08 12:46
        
        Ich würde vermuten, dass der Dateiinhalt im Speicher gehalten wird. Aber man müsste in die Sourcen schauen um sicher zu sein.
        
        +2 replies
        
        murphy
        
        2009-10-08 15:47
        
        User since
        2004-07-19
        1776 Artikel
        HausmeisterIn
        
        Guest wer
        copy ist kein FTP Kommando sondern aus mehreren zusammengesetzt. [...]
        
        Ich denke es gibt auch FTP-Server, die auf ihrer Seite Dateien lokal kopieren können.
        When C++ is your hammer, every problem looks like your thumb.
        
        bianca
        
        2009-10-08 16:02
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        2009-10-08T13:47:53 murphy
        Guest wer
        copy ist kein FTP Kommando sondern aus mehreren zusammengesetzt. [...]
        
        Ich denke es gibt auch FTP-Server, die auf ihrer Seite Dateien lokal kopieren können.
        
        Das hoffte ich bislang auch, sonst wäre es ja kaum mehr als ein GET und PUT mit allen damit verbundenen Problemen von wegen ASCII/BINÄR.
        
        Nun mach ich GET und PUT eben manuell. Halb so schlimm nur umständlicher.
        10 print "Hallo"
        20 goto 10
- bianca
  
  2009-10-10 08:58
  User since
  2009-09-13
  7016 Artikel
  BenutzerIn
  Hab die Lösung!!!
  
  TATAAAAA!
  
  Mein FTP-Server scheint im Auto-Modus zu laufen.
  Mit einem simplen
  
  Code: (dl )
  
  $ftp -> binary;
  
  vor dem copy klappt alles wunderbar!
  
  Nur trotzdem macht das Modul nach dem Get und Put trotzdem nochmal irgendeinen Quatsch, wie das Debug zeigt:
  
  Code: (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36
  
  Net::FTP=GLOB(0x1b6ee4c)>>> PWD Net::FTP=GLOB(0x1b6ee4c)<<< 257 "/" is the current directory Net::FTP=GLOB(0x1b6ee4c)>>> SIZE .bash_history Net::FTP=GLOB(0x1b6ee4c)<<< 213 120 Net::FTP=GLOB(0x1b6ee4c)>>> PWD Net::FTP=GLOB(0x1b6ee4c)<<< 257 "/" is the current directory Net::FTP=GLOB(0x1b6ee4c)>>> CWD .bash_history Net::FTP=GLOB(0x1b6ee4c)<<< 550 .bash_history: No such file or directory Net::FTP=GLOB(0x1b6ee4c)>>> CWD / Net::FTP=GLOB(0x1b6ee4c)<<< 250 CWD command successful Net::FTP=GLOB(0x1b6ee4c)>>> PWD Net::FTP=GLOB(0x1b6ee4c)<<< 257 "/" is the current directory Net::FTP=GLOB(0x1b6ee4c)>>> PORT 192,168,0,249,5,168 Net::FTP=GLOB(0x1b6ee4c)<<< 200 PORT command successful Net::FTP=GLOB(0x1b6ee4c)>>> RETR .bash_history Net::FTP=GLOB(0x1b6ee4c)<<< 150 Opening BINARY mode data connection for .bash_history (120 bytes) Net::FTP=GLOB(0x1b6ee4c)<<< 226 Transfer complete Net::FTP=GLOB(0x1b6ee4c)>>> CWD /tmp Net::FTP=GLOB(0x1b6ee4c)<<< 250 CWD command successful Net::FTP=GLOB(0x1b6ee4c)>>> PORT 192,168,0,249,5,170 Net::FTP=GLOB(0x1b6ee4c)<<< 200 PORT command successful Net::FTP=GLOB(0x1b6ee4c)>>> STOR kopie Net::FTP=GLOB(0x1b6ee4c)<<< 150 Opening BINARY mode data connection for kopie Net::FTP=GLOB(0x1b6ee4c)<<< 226 Transfer complete Net::FTP=GLOB(0x1b6ee4c)>>> CWD / Net::FTP=GLOB(0x1b6ee4c)<<< 250 CWD command successful Net::FTP=GLOB(0x1b6ee4c)>>> SIZE kopie Net::FTP=GLOB(0x1b6ee4c)<<< 550 kopie: No such file or directory Net::FTP=GLOB(0x1b6ee4c)>>> PWD Net::FTP=GLOB(0x1b6ee4c)<<< 257 "/" is the current directory Net::FTP=GLOB(0x1b6ee4c)>>> CWD kopie Net::FTP=GLOB(0x1b6ee4c)<<< 550 kopie: No such file or directory Net::FTP=GLOB(0x1b6ee4c)>>> CWD / Net::FTP=GLOB(0x1b6ee4c)<<< 250 CWD command successful Net::FTP=GLOB(0x1b6ee4c)>>> PWD Net::FTP=GLOB(0x1b6ee4c)<<< 257 "/" is the current directory
  
  Es scheint nach der Kopie auf die neue Datei ein CWD zu versuchen. Weiß jemand, wofür das gut sein soll?
  
  Und zumindest wissen wir jetzt definitiv: Es gibt für FTP kein echtes COPY auf dem Server. Auch das Modul macht GET und PUT.
  
  Danke an alle Leser und Helfer!
  10 print "Hallo"
  20 goto 10

View all threads created 2009-10-07 18:06.