Per FTP Datei kopieren? (gelöst) (Netzwerkprogrammierung und Netzwerke mit Perl)

[thread]16077[/thread]

Per FTP Datei kopieren? [gelöst]

Leser: 21

Articles: hide open all | hide show old branches

+12 replies
bianca

2011-03-16 20:37

User since
2009-09-13
7016 Artikel
BenutzerIn

'n Abend!
Habe eine Dateisynchronisation per Net::FTP sauber in Betrieb ohne größere Schwierigkeiten. Eine Stelle würde ich gern optimieren. Und zwar wird vor dem Upload neuer Dateien eine Kopie der Datei auf dem Server in einem anderen Verzeichnis angelegt. Das mache ich derzeit über Download aus Verz. A -> Upload in Verz. B unter anderen Namen -> Upload der eigentlichen Datei von lokal über die bestehende Datei in Verz. A.

Dreifacher Transfer gefällt mir nicht, dauert auch zu lange bei großen Dateien.
Kennt jemand eine Möglichkeit, per FTP zu sagen "Kopiere Datei A unter dem Namen B in Verzeichnis C"?

Alternativ würde ich das ganze auch auf SSH umstellen, dann könnte ich ja quasi Konsolenbefehle wie copy starten. Welches Modul wäre dafür gut geeignet? Es sollen Dateien hoch- und runtergeladen sowie Dateien auf dem Server unter anderem Namen in ein anderes Verz. kopiert werden. Außerdem noch LastModify Flag von Dateien auf dem Server ändern. Mehr braucht es dafür nicht.

Vielen Dank für alle Hinweise
10 print "Hallo"
20 goto 10
- +4 replies
- renee
  
  2011-03-17 09:08
  
  User since
  2003-08-04
  14371 Artikel
  ModeratorIn
  
  Du könntest mit "Rename" arbeiten...
  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/
  - +3 replies
  - bianca
    
    2011-03-21 17:42
    User since
    2009-09-13
    7016 Artikel
    BenutzerIn
    
    2011-03-17T08:08:29 renee
    Du könntest mit "Rename" arbeiten...
    
    Diese Idee hab ich zuerst garnicht kapiert, weil ich doch ein Copy wollte. Aber da die Datei ja eh neu hochgeladen wird, geht natürlich auch rename.
    Allerdings hat das eine komische Auswirkung bei mir.
    
    Mache ich da was falsch?
    
    Code (perl): (dl )
    
    1 2 3 4 5 6 7 8 9 10 11 12 13
    
    if($ftp -> supported("RNFR") && $ftp -> supported("RNTO")) { print "rename supported!\n"; print "Es folgt RENAME\n"; if ($ftp->command('RNFR', 'tmpdevelop/test_ftp.pl') && $ftp->command('RNTO','tmp/test.pl')) { print "Es folgt ISFILE\n"; if ($ftp -> isfile ("tmp/test.pl")) { print "Erledigt!\n"; } } else { print "Fehler >" . $ftp->message . "<\n"; } }
    
    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 37
    
    Net::FTP=GLOB(0x1d31744)>>> HELP RNFR Net::FTP=GLOB(0x1d31744)<<< 214 Syntax: RNFR <sp> pathname Net::FTP=GLOB(0x1d31744)>>> HELP RNTO Net::FTP=GLOB(0x1d31744)<<< 214 Syntax: RNTO <sp> pathname rename supported! Es folgt RENAME Net::FTP=GLOB(0x1d31744)>>> RNFR tmpdevelop/test_ftp.pl Net::FTP=GLOB(0x1d31744)>>> RNTO tmp/test.pl Es folgt ISFILE Net::FTP=GLOB(0x1d31744)>>> HELP SIZE Net::FTP=GLOB(0x1d31744)<<< 350 File or directory exists, ready for destination name Net::FTP=GLOB(0x1d31744)>>> HELP STAT Net::FTP=GLOB(0x1d31744)<<< 250 Rename successful Net::FTP=GLOB(0x1d31744)>>> STAT tmp/test.pl Net::FTP=GLOB(0x1d31744)<<< 214 Syntax: SIZE <sp> pathname Net::FTP=GLOB(0x1d31744)>>> PWD Net::FTP=GLOB(0x1d31744)<<< 214 Syntax: STAT [<sp> pathname] Net::FTP=GLOB(0x1d31744)>>> CWD tmp/test.pl Net::FTP=GLOB(0x1d31744)<<< 211-Status of tmp/test.pl: Net::FTP=GLOB(0x1d31744)<<< 211--rw-r----- 1 [username] users 4907 Mar 21 17:34 tmp/test.pl Net::FTP=GLOB(0x1d31744)<<< 211 End of status Net::FTP=GLOB(0x1d31744)>>> CWD / Net::FTP=GLOB(0x1d31744)<<< 257 "/" is the current directory Net::FTP=GLOB(0x1d31744)>>> PWD Net::FTP=GLOB(0x1d31744)<<< 550 tmp/test.pl: No such file or directory Use of uninitialized value $c in string ne at C:/strawberry/perl/site/lib/Net/FTP/File.pm line 95. Use of uninitialized value $e in string ne at C:/strawberry/perl/site/lib/Net/FTP/File.pm line 95. Net::FTP=GLOB(0x1d31744)>>> PWD Net::FTP=GLOB(0x1d31744)<<< 250 CWD command successful Net::FTP=GLOB(0x1d31744)>>> CWD tmp/test.pl Net::FTP=GLOB(0x1d31744)<<< 257 "/" is the current directory Net::FTP=GLOB(0x1d31744)>>> CWD / Net::FTP=GLOB(0x1d31744)<<< 257 "/" is the current directory Net::FTP=GLOB(0x1d31744)>>> PWD Net::FTP=GLOB(0x1d31744)<<< 550 tmp/test.pl: No such file or directory Use of uninitialized value $c in string ne at C:/strawberry/perl/site/lib/Net/FTP/File.pm line 95. Use of uninitialized value $e in string ne at C:/strawberry/perl/site/lib/Net/FTP/File.pm line 95.
    
    Warum schmeißt das Modul bei isfile solche Fehler?
    Vorheriges Umschalten auf binary bringt auch nichts.
    10 print "Hallo"
    20 goto 10
    - +2 replies
    - renee
      
      2011-03-21 18:02
      
      User since
      2003-08-04
      14371 Artikel
      ModeratorIn
      
      Warum benutzt Du nicht einfach
      
      Code (perl): (dl )
      
      $ftp->rename( OLDNAME, NEWNAME )
      
      ?
      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/
      - bianca
        
        2011-03-21 18:56
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        Ja, klappt. Danke Dir :)
        10 print "Hallo"
        20 goto 10
- +7 replies
- bianca
  
  2011-03-19 13:20
  
  User since
  2009-09-13
  7016 Artikel
  BenutzerIn
  
  Mir fällt gerade auf, dass ich Blödsinn geschrieben habe.
  Ich mach dieses hin und her garnicht manuell sondern ich nutze bereits Net::FTP::Copy das macht aber leider auch nichts anderes.
  Gibt es nicht etwas, was die Kopie direkt auf dem Server erledigt ohne runter- und hochzuladen?
  10 print "Hallo"
  20 goto 10
  - +6 replies
  - topeg
    
    2011-03-19 18:54
    User since
    2006-07-10
    2611 Artikel
    BenutzerIn
    
    "copy" kennt ein normaler FTP-Server nicht (Ist in der rfc nicht aufgeführt soweit ich mich erinnere). Manche unterstützen es aber als Erweiterung.
    Du kannst kannst dann über "command" die passenden Befehle absetzen:
    
    Code (perl): (dl )
    
    $ftp->command('CPFR', 'dir/test.txt') && $ftp->command('CPTO','dir2/test.old.txt');
    
    Die Befehle können auch anders heißen. Ich habe das nicht mehr genau im Kopf. Bei machen Servern muss man diese zusätzlichen Befehle auch explizit aktivieren.
    
    EDIT:
    gerade gefunden:
    http://www.castaglia.org/proftpd/modules/mod_copy....
    
    EDIT2:
    IETF FTP Extensions
    http://tools.ietf.org/html/rfc3659
    Last edited: 2011-03-19 19:04:18 +0100 (CET)
    - +5 replies
    - bianca
      
      2011-03-20 08:19
      
      User since
      2009-09-13
      7016 Artikel
      BenutzerIn
      
      Super Tipp, muss ich mal weiter forschen.
      Im Moment scheint es der FTP Server nicht zu verstehen. Ich komme aber nicht dahinter, wie ich das sauber abfragen kann, ob er es versteht, denn $ftp->message ist komischerweise immer leer.
      Erst wenn ich nach CPFR und CPTO ein binary absetze kommt eine Meldung zurück.
      
      Wie kann ich sauber und vor allem sicher abfragen, ob ein FTP Server CPFR und CPTO versteht?
      $ftp->feature liefert es nicht zurück, damit würde ich aber auch im Positivfall nicht rechnen, weil das keine SITE-Kommandos liefert, oder liege ich da falsch?
      
      Danke
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7
      
      if ($ftp->command('CPFR', 'pfad1/test_ftp.pl') && $ftp->command('CPTO','pfad2/test.pl')) { print "OK\n" } else { print "Fehler >" . $ftp->message . "<\n"; } print "setze binary\n"; $ftp->binary; exit();
      
      Quote
      Net::FTP=GLOB(0xe87e84)<<< 220 ProFTPD 1.3.2rc3 Server [IP]
      Net::FTP=GLOB(0xe87e84)>>> USER [username]
      Net::FTP=GLOB(0xe87e84)<<< 331 Password required for [host]
      Net::FTP=GLOB(0xe87e84)>>> PASS ....
      Net::FTP=GLOB(0xe87e84)<<< 230 User [adresse] logged in
      Net::FTP=GLOB(0xe87e84)>>> CPFR pfad1/test_ftp.pl
      Net::FTP=GLOB(0xe87e84)>>> CPTO pfad2/test.pl
      OK
      setze binary
      Net::FTP=GLOB(0xe87e84)>>> TYPE I
      Net::FTP=GLOB(0xe87e84)<<< 500 CPFR not understood
      
      Editiert von bianca: $ftp->feature ergänzt
      Last edited: 2011-03-20 08:22:00 +0100 (CET)
      10 print "Hallo"
      20 goto 10
      - +4 replies
      - topeg
        
        2011-03-20 17:49
        
        User since
        2006-07-10
        2611 Artikel
        BenutzerIn
        
        Hast du schon if($ftp->supported("CPFR") && $ftp->supported("CPTO")){...} probiert?
        
        oder:
        
        Code (perl): (dl )
        
        1 2 3 4
        
        if($ftp->command('CPFR', 'pfad1/test_ftp.pl') && $ftp->command('CPTO','pfad2/test.pl') && $ftp->response() == Net::Cmd::CMD_OK) { ... }
        
        Mehr wüste ich so ohne weiteres auch nicht.
        Ich habe es nur einmal benutzt auf einem FTP-Server den ich selber eingerichtet hatte.
        
        +3 replies
        
        bianca
        
        2011-03-21 10:09
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        2011-03-20T16:49:03 topeg
        if($ftp->supported("CPFR") && $ftp->supported("CPTO")){...}
        
        Das klappt, danke dir!
        10 print "Hallo"
        20 goto 10
        
        +2 replies
        
        topeg
        
        2011-03-21 12:26
        
        User since
        2006-07-10
        2611 Artikel
        BenutzerIn
        
        Schau aber mal nach ob es auch wirklich so funktioniert. Wie ich schon sagte ich bin mir dabei nicht sicher. Das ist einfach zu lange her.
        
        bianca
        
        2011-03-21 13:04
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        2011-03-21T11:26:36 topeg
        Schau aber mal nach ob es auch wirklich so funktioniert.
        
        Ja, mach ich. Im Moment liefert es Fehler, was auch korrekt ist, weil der Server es noch nicht kann. Ich lasse jetzt mal dieses Modul installieren und dann darf es keinen Fehler mehr liefern. Schauen wir mal.
        Ich setz den grünen Haken, wenn es läuft.
        Danke Dir
        10 print "Hallo"
        20 goto 10

View all threads created 2011-03-16 20:37.