Verzeichnisse überwachen (Allgemeines zu Perl)

[thread]18793[/thread]

Verzeichnisse überwachen

Tags: perl5 Ähnliche Threads

Leser: 18

Articles: hide open all | hide show old branches

+11 replies
Gast Jürgen

2013-12-06 10:21

Hallo Perlgemeinde,

und schon wieder hab ich eine Frage.
Ich möchte Verzeichnisse überwachen, ob eine neue Datei hinzukommt bzw ob eine Datei gelöscht wird.
Dazu habe ich mir das Modul
Win32::ChangeNotify von CPAN installiert.

Hier kann ich ein Verzeichnis angeben, und auch als Option, ob die Unterverzeichnisse dazu überwacht werden sollen.

Wie aber kann ich es anstellen, mehrere verschiedene Verzeichnisse zu überwachen?

Oder bin ich mit dem Modul auf dem Holzweg für das, was ich machen möchte!!?
Ich möchte verschiedene Verzeichnissse (die der benutzer festlegen kann) überwachen. Überwachen heisst: wenn eine Datei hinzugefügt wird (auch in Unterverzeichnissen) soll eine bestimmte SUB ausgeführt werden und wenn eine Datei gelöscht oder verschoben wird, soll auch eine SUB ausgeführt werden.
Das ganze soll mir zum Taggen von meinen Dokumenten und dateien dienen, speziell wenn diese über Email von Kollegen kommen und ich keinen Einfluss auf den Dateinamen habe.

Ist das Modul dafür geeignet oder bin ich auf dem Holzweg?
(Ach ja: das Gnaze soll einfach nur auf meinem Notebook laufen, also nix mit Webserver und so Zeugs... ;) )

Danke für's durchlesen und evtl antworten!

Wünsche einen schönen Nikolaustag!

Grüße
Jürgen

modedit Editiert von pq: Modul verlinkt
Last edited: 2013-12-06 10:52:21 +0100 (CET)
- +5 replies
- GwenDragon
  
  2013-12-06 10:32
  
  User since
  2005-01-17
  14607 Artikel
  Admin1
  
  Was ist ein SUB?
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +2 replies
  - clms
    
    2013-12-06 10:38
    
    User since
    2010-08-29
    373 Artikel
    BenutzerIn
    
    2013-12-06T09:32:47 GwenDragon
    Was ist ein SUB?
    
    Wahrscheinlich ist das Resultat von perlfunc sub gemeint.
    - GwenDragon
      
      2013-12-06 10:57
      
      User since
      2005-01-17
      14607 Artikel
      Admin1
      
      Möglich. Ich kenne da nur die technischen Begriffe Funktion, Subroutine, Methode.
      SUB (Acronym, Abkürzung!?) ist kein bekannter Begriff. Was sollte denn S.U.B. bdeuten?
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +2 replies
  - Gast Jürgen
    
    2013-12-06 10:55
    
    2013-12-06T09:32:47 GwenDragon
    Was ist ein SUB?
    
    mit SUB meine ich eine Perlfunktion:
    sub tu_was_schoenes { ... }
    Last edited: 2013-12-06 10:57:13 +0100 (CET)
    - GwenDragon
      
      2013-12-06 10:58
      
      User since
      2005-01-17
      14607 Artikel
      Admin1
      
      Warum schreibst du dann nicht Subroutine oder Funktion? Ich dachte, SUB wäre irgendein Spezialbegriff, den nur du kennst.
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- Muffi
  
  2013-12-06 10:45
  
  User since
  2012-07-18
  1465 Artikel
  BenutzerIn
  
  Ich kenn das Modul nicht, aber ich würd mir im Zweifelsfall einfach mehrere Objekte erstellen. Für jedes Verzeichnis eines.
  1 + 1 = 10
- +4 replies
- GwenDragon
  
  2013-12-06 11:03
  User since
  2005-01-17
  14607 Artikel
  Admin1
  Soll das Ganze im Hintergrund laufen? Ist das zeitkritisch (Echtzeit)?
  
  Welche Dateien sich änderten, kannst du so nicht rausbekommen. Das Modul zeigt nur welches Verzeichnis sich änderten. Du musst dann dort mit File::Find oder auch das Verzeichnis mit opendir auslesen und die Zeitstempel vergleichen.
  
  Zudem müssen alle Objekte von Win32::ChangeNotify in gespawnten Prozessen laufen, damit es Echtzeit ist.
  
  Denn:
  
  Code (perl): (dl )
  
  1 2
  
  $notify = Win32::ChangeNotify->new($Path,$WatchSubTree,$Events); $notify->wait;
  
  wartet eben. Das bedeutet, du kannst nur nacheinander abfragen, wenn ein Ereignis stattfand und wait verlassen wurde.
  
  Weißt du wie du Perl-Programme in Kindprozessen ablaufen lässt? Stichwort: fork
  
  Editiert von GwenDragon: Tippfehler korrigiert.
  Last edited: 2013-12-06 11:29:10 +0100 (CET)
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - Muffi
    
    2013-12-06 11:28
    User since
    2012-07-18
    1465 Artikel
    BenutzerIn
    
    ungetestet
    
    Code (perl): (dl )
    
    Win32::IPC::wait_any(map { Win32::ChangeNotify->new($_,$WatchSubTree,$Events) } @dirs);
    
    1 + 1 = 10
  - bianca
    
    2013-12-06 13:32
    
    User since
    2009-09-13
    6988 Artikel
    BenutzerIn
    
    2013-12-06T10:03:37 GwenDragon
    Weißt du wie du Perl-Programme in Kindprozessen ablaufen lässt? Stichwort: fork
    
    Vorsicht mit fork auf Windows. Die Kindprozesse hängen dann alle vom Elternprozess ab und laufen nicht wirklich selbständig. Damit kann man sich schnell einen rekursiven Speicherüberlauf bauen :)
    10 print "Hallo"
    20 goto 10
  - Gast Jürgen
    
    2013-12-10 10:23
    
    Hallo zusammen,
    
    sorry für die späte Rückmeldung!
    
    @GwenDragon:
    Das Ganze soll im Hintergrund laufen.
    Das Ganze ist nicht zeitkritisch.
    Mit "fork" und Kindprozessen habe ich keine Erfahrung.
    
    Vielleicht erklär ich noch einmal kurz, was ich machen will:
    Auf meiner Festplatte liegen in verschiedenen Verzeichnissen Dateien.
    Diese Dateien möchte ich mit "Tags" versehen.
    Beispiel: Eine_schoene_Liste_von_Herrn_Frank.xlsx soll die Tags: "Projekt1", "Verbindung", "Übersicht" und "Messung" bekommen.
    
    Wenn ich Dateien bekomme (meist über eine Email), dann speichere ich diese Datei in einem Ordner.
    Ich dachte mir das dann so, dass wenn die Datei abgelegt wird, mein Programm sich meldet und ich dann gleich aus meiner Liste von Tags dieser Datei Tags zuordnen kann.
    
    Daher ist es auch nicht schlimm, wenn das erst 1 bis 3 Sekunden gemeldet wird. Ich dachte einfach, das wäre eine einfache und schnelle Lösung, dass man die Dateien "taggt"...
    
    Das Problem: ich möchte eben verschiedene Ordner "überwachen".
    
    Grüße Jürgen
    Last edited: 2013-12-10 11:04:28 +0100 (CET)

View all threads created 2013-12-06 10:21.