Ordnervergleich SFTP Upload (Netzwerkprogrammierung und Netzwerke mit Perl)

[thread]19717[/thread]

Ordnervergleich SFTP Upload

Tags: perl5 SFTP::Foreign Ähnliche Threads

Leser: 11

Articles: hide open all | hide show old branches

+8 replies
Azmodia

2015-07-09 10:35

User since
2015-07-09
7 Artikel
BenutzerIn

Hallo,

ich stehe gerade ein wenig auf dem Schlauch und zwar, will ich ein Programm schreiben. Das Daten automatisch auf einen SFTP-Server hochläd sobald sich die Datei in dem Input Ordner befindet.

Mein Problem ist folgendes:
Ich habe einen Input Ordner, dort kommen die Dateien rein, welche hochgeladen werden sollen.
Damit die Dateien nich mehrmals hochgeladen werden sollen, gibt es noch einen Transfer Ordner.

Sprich vor dem Hochladen muss geprüft werden, ob die Datei in dem Input und Transfer Ordner vorhanden ist.

Ist die Datei nur im Input soll sie hochgeladen werden
Ist die Datei im Input und Transfer Ordner soll sie nicht hoch geladen werden.

Hat dazu jemand ne Idee bzw. nen Beispiel?

Danke
Last edited: 2015-07-09 11:34:31 +0200 (CEST)
- +4 replies
- GwenDragon
  
  2015-07-09 12:34
  User since
  2005-01-17
  14747 Artikel
  Admin1
  Einfach verständliche Weise:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
  
  use strict; use warnings; use 5.010; use File::Basename; my $input_dir = '/data/input/'; my $transfer_dir = '/data/transfer/'; my %nicht_transferiert; for my $f ( glob "$input_dir/*" ) { my $fn = fileparse( $f ); $nicht_transferiert{$fn} = 1; } for my $f ( glob "$transfer_dir/*" ) { my $fn = fileparse( $f ); $nicht_transferiert{$fn} = 0; } my @zu_transferierende_dateien = grep { $nicht_transferiert{$_} == 1 } sort keys %nicht_transferiert;
  
  Editiert von GwenDragon: fileparse korrigiert
  Last edited: 2015-07-10 11:13:22 +0200 (CEST)
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +3 replies
  - Azmodia
    
    2015-07-10 10:59
    
    User since
    2015-07-09
    7 Artikel
    BenutzerIn
    
    Hallo danke für deine Rückmeldung @GwenDragon,
    
    habe gerade mal deinen Code probiert, bekomme aber folgenden Fehler angezeigt:
    Unknown verb pattern '' in regex; marked by <-- HERE in m/(?i)(*) <-- HERE $/ at
    c:/Perl/lib/File/Basename.pm line 166.
    - +2 replies
    - GwenDragon
      
      2015-07-10 11:15
      
      User since
      2005-01-17
      14747 Artikel
      Admin1
      
      Ist oben im Code korrigiert. Entschuldige.
      
      Sollte jetzt unter Windows laufen.
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
      - Azmodia
        
        2015-07-10 12:18
        
        User since
        2015-07-09
        7 Artikel
        BenutzerIn
        
        Danke funktioniert :-***
- +3 replies
- Raubtier
  
  2015-07-09 13:19
  
  User since
  2012-05-04
  1075 Artikel
  BenutzerIn
  
  Noch als Zusatzinfo:
  Es gibt (vom OS abhängig) auch die Möglichkeit, ein Verzeichnis zu überwachen, um so neue Dateien festzustellen.
  
  Unter Linux gibt es dazu z.B. das Programm iwatch, das übrigens in Perl geschrieben ist. Es benutzt das Modul Linux::Inotify2 - vielleicht ist da ja auch für dich interessant?
  - +2 replies
  - Azmodia
    
    2015-07-10 11:00
    
    User since
    2015-07-09
    7 Artikel
    BenutzerIn
    
    Hallo Raubtier,
    
    danke für die Rückmeldung, ist ne Windowskiste somit wird das nichts.
    
    Trotzdem vielen Dank!
    - Raubtier
      
      2015-07-10 13:35
      
      User since
      2012-05-04
      1075 Artikel
      BenutzerIn
      
      Sowas gibts natürlich auch unter Windows. Siehe z.B.
      
      https://msdn.microsoft.com/en-us/library/windows/d...
      
      Obs da nen Perl-Modul für gibt, überlasse ich dir herauszufinden :-)

View all threads created 2015-07-09 10:35.