In einem Verzeichnis Die neueste Datei finden (gelöst) (Allgemeines zu Perl)

[thread]19357[/thread]

In einem Verzeichnis Die neueste Datei finden [gelöst]

Tags: perl5 File::Finde Ähnliche Threads

Leser: 17

Articles: hide open all | hide show old branches

+19 replies
Matze2.pl

2014-10-31 15:48
User since
2014-10-30
23 Artikel
BenutzerIn
Hallo, ich möchte in mehreren Verzeichnissen die jeweils neueste Datei finden. DAmit habe ich es versucht:
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 23 24 25 26 27 28 29 30 31 32

my @dirs = glob "/var/lib/testverzeichnis/Projekte/Projektenummern"; for $dir (@dirs) { print "$dir\n"; opendir (DIR, $dir); find(\&wanted,$dir) ; sub wanted { my $file = $File::Find::name; push (@files,$file) if(-M $file > 0); } foreach $files (@files) { $alter = -M "$files"; $kurzalter = sprintf "%.0f",$alter; print "---- $kurzalter Tage - $files\n"; if ($kurzalter <90) {$filesdann = 1} else{ $filesdann = 0 } } closedir (DIR); } if ($filesdann == 0) { print "$dir - Alter: $kurzalter Tage\n"; }
Mir wird hierbei das Alter jeder Datei angezeigt.
Bsp.: 25 Tage - /var/lib/testverzeichnis/Projekte/Projektenummern/12/1275/Neue.txt
Ich möchte aber das dieses Alter (25Tage; ist zufällig das jüngste Datum) auf den Ordner 1275 Angewendet wird.
kann mir jemand helfen?

modedit Editiert von pq: überflüssige leerzeichen/tabs entfernt wg. lesbarkeit
Last edited: 2014-10-31 17:48:15 +0100 (CET)
- +18 replies
- hlubenow
  
  2014-11-01 17:49
  
  User since
  2009-02-22
  875 Artikel
  BenutzerIn
  
  "Matze2.pl
  Ich möchte aber das dieses Alter (25Tage; ist zufällig das jüngste Datum) auf den Ordner 1275 Angewendet wird.
  kann mir jemand helfen?
  
  Mit "touch" kann man die Zeiten von Dateien und Verzeichnissen (die man sich mit "stat" anzeigen lassen kann) verändern. Die Perl-Version wäre
  "File::Touch".
  Beachte, daß es drei verschiedene Zeiten gibt:
  
  http://linuxpoison.blogspot.de/2008/03/ctime-atime...
  - +17 replies
  - Matze2.pl
    
    2014-11-03 12:14
    
    User since
    2014-10-30
    23 Artikel
    BenutzerIn
    
    Ich möchte ja die Zeit des Ordners nicht selber einstellen. Ich hab einen ein Verzeichnis (/var/lib/testverzeichnis/Projekte/12/1234
    in "1234" sind weitere Unterordner in denen jeweils Dateien liegen.
    jetzt möchte ich das die allerneuste Datei aus allen Unterorndern gefunden wird und das Datum von Dieser Datei automatisch als DAtum des ganzen Ordners (1234) ausgegeben wird.
    
    versteht das jemand ? :/
    - +16 replies
    - Raubtier
      
      2014-11-03 13:46
      
      User since
      2012-05-04
      1054 Artikel
      BenutzerIn
      
      Es war ja nicht klar, was du in der ersten Nachricht mit "Datum auf Ordner anwenden" gemeint hast.
      
      So bekommst du die neueste Date eines Ordners:
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8 9 10
      
      sub newestDate { my $path = shift; opendir(my $DH, $path); return( (map {$_->[0]} sort {$a->[1] <=> $b->[1]} map{[$_, -M "$path/$_"]} readdir $DH )[0]); }
      
      (ungetestet)
      - +15 replies
      - Matze2.pl
        
        2014-11-03 14:42
        
        User since
        2014-10-30
        23 Artikel
        BenutzerIn
        
        Ich habe es mit deiner Sub versucht aber bekomme es leider nicht zum laufen :(
        
        Ich habe es so versucht:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
        
        my @dirs = glob "/var/lib/testverzeichnis/Projekte/Projektenummern/12/1234"; foreach $dir (@dirs) { find(\&newestDate,$dir) ; } sub newestDate { my $path = shift; opendir(my $DH, $path); return( (map {$_->[0]} sort {$a->[1] <=> $b->[1]} map{[$_, -M "$path/$_"]} readdir $DH )[0]); }
        
        bei mir kommte aber immer folgende Meldung:
        Use of uninitialized value $path in opendir at ./alter.pl line 35.
        readdir() attempted on invalid dirhandle $DH at ./alter.pl line 39.
        
        Wie gesagt bin recht neu beim perlskripten und steig noch nicht hinter alles. Könnt ihr mir sagen wo ich einen Fehler gemacht habe?
        
        +14 replies
        
        Raubtier
        
        2014-11-03 15:03
        
        User since
        2012-05-04
        1054 Artikel
        BenutzerIn
        
        Meiner sub musst du als Parameter ein Verzeichnis übergeben. Sie gibt dann die neueste Datei darin zurück. Sie kann so nicht direkt in find gesteckt werden.
        
        Du kannst z.B. schreiben:
        
        Code (perl): (dl )
        
        say "Neueste Datei/Verzeichnis in root ist: ", newestDatei("/");
        
        +13 replies
        
        Matze2.pl
        
        2014-11-03 16:44
        
        User since
        2014-10-30
        23 Artikel
        BenutzerIn
        
        Ich hab es egschafft das mir das alles ausgegeben wird. *happy*
        wenn ich das jetzt durch eine schleife laufen lasse über die verzeichnisse (/ordner/ordner/*/*) sollte das ja kein problem sein nur wird mir als neueste datei machmal ".." oder "." ausgegeben was ja der Ordner ansich darstellt oder?!
        kann man das begranzen das es sich nur auf DAteien bezieht?
        
        +12 replies
        
        Matze2.pl
        
        2014-11-03 17:08
        
        User since
        2014-10-30
        23 Artikel
        BenutzerIn
        
        Also damit ihr wisst was ich vorhabe:
        Wir haben im Büro sehr viele Projekte am laufen die natürlich auch iwann archiviert werden wollen. Um zu wissen wann Projekte länger als 90 Tage nicht angefasst wurden, muss ich halt herrausfinden ob darin noch gearbeitet wird (wesshalb ich das neuste änderungsdatum haben will).
        Ich versteh das was Ihr mir als Hilfe gebt nur kann ich es irgendwie nicht richtig umsetzen. die Verzeichnisstruktur ist /laufwerk/Einordnung(12)/Projekt(1234) so in 12 sind noch ganz viele andere Projekte.
        
        Hiermit habe ich versucht die neusten DAtein zu finden:
        
        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 23 24 25 26
        
        my @dirs = glob "/var/lib/testverzeichnis/Projekte/Projektenummern/*/*"; foreach $dir (@dirs) { open (DIR,">>/var/lib/testverzeichnis/Projekte/tot.txt"); print DIR "\n$dir: \n"; print DIR newestDate("$dir"); close (DIR) } sub newestDate { $path = shift; opendir( $DH, $path); return( (map{$_->[0]} sort {$a->[1] <=> $b->[1]} map{[$_, -M "$path/$_"]} readdir $DH )[0]); }
        
        als ausgabe steht dann in meiner .txt :
        /var/lib/testverzeichnis/Projekte/Projektenummern/12/1234:
        .
        /var/lib/testverzeichnis/Projekte/Projektenummern/12/1235:
        .
        /var/lib/testverzeichnis/Projekte/Projektenummern/12/1236:
        .
        /var/lib/testverzeichnis/Projekte/Projektenummern/12/1255:
        .
        /var/lib/testverzeichnis/Projekte/Projektenummern/12/1275:
        .
        /var/lib/testverzeichnis/Projekte/Projektenummern/13/1345:
        .
        /var/lib/testverzeichnis/Projekte/Projektenummern/13/1346:
        1346.txt
        /var/lib/testverzeichnis/Projekte/Projektenummern/13/1347:
        .
        /var/lib/testverzeichnis/Projekte/Projektenummern/13/1355:
        .
        /var/lib/testverzeichnis/Projekte/Projektenummern/14/1456:
        .
        /var/lib/testverzeichnis/Projekte/Projektenummern/14/1457:
        .
        /var/lib/testverzeichnis/Projekte/Projektenummern/14/1458:
        1
        /var/lib/testverzeichnis/Projekte/Projektenummern/18/1805:
        txt.txt
        /var/lib/testverzeichnis/Projekte/Projektenummern/18/1809:
        1
        /var/lib/testverzeichnis/Projekte/Projektenummern/19/1910:
        alter.pl
        /var/lib/testverzeichnis/Projekte/Projektenummern/19/1973:
        alles.txt
        
        Aber ich denke damit kann ich nicht das Datum dieser "Datei" herrausbekommen da manches ja Ordner sind.
        Kann ich hier:
        /var/lib/testverzeichnis/Projekte/Projektenummern/19/1973:
        alles.txt
        den Pfad der ausgeben lassen?
        
        +11 replies
        
        Raubtier
        
        2014-11-03 17:22
        
        User since
        2012-05-04
        1054 Artikel
        BenutzerIn
        
        2014-11-03T16:08:30 Matze2.pl
        Aber ich denke damit kann ich nicht das Datum dieser "Datei" herrausbekommen da manches ja Ordner sind.
        
        Du kannst
        - mit -f "datei" abfragen, ob es sich um eine normale Datei handelt (perldoc -f -X)
        - oder einfach gucken, dass der Name weder . noch .. sein darf (ist vermutlich hier das richtige)
        
        dann einfach ein grep (perldoc -f grep) zwischen das readdir und das map hängen, fertig.
        
        Quote
        Kann ich hier:
        /var/lib/testverzeichnis/Projekte/Projektenummern/19/1973:
        alles.txt
        den Pfad der ausgeben lassen?
        
        Sorry, verstehe Frage nicht, weil Satz unvollständig.
        
        +10 replies
        
        Matze2.pl
        
        2014-11-03 17:27
        
        User since
        2014-10-30
        23 Artikel
        BenutzerIn
        
        Quote
        Kann ich hier:
        /var/lib/testverzeichnis/Projekte/Projektenummern/19/1973:
        alles.txt
        den Pfad der ausgeben lassen?
        
        Sorry ich meinte "kann ich hier den Pfad der Datei ausgeben lassen"
        
        +9 replies
        
        hlubenow
        
        2014-11-03 17:47
        
        User since
        2009-02-22
        875 Artikel
        BenutzerIn
        
        Öhm, ich habe etwas Mühe, Raubtiers Code zu verstehen, weil ich mit map usw. auf Kriegsfuß stehe. Ich schreibe absichtlich eher in "Anfänger-Perl", weil mir das leichter zu warten scheint.
        Daher würde ich das also so machen:
        
        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
        
        #!/usr/bin/perl use warnings; use strict; use File::Find; my $mtime = 0; my $latestfile = ""; find(\&wanted, "/var/temp/yourdirectory"); print "$latestfile\n"; sub wanted { my $name = $File::Find::name; if (-f $name) { my @stats = stat($name); if ($stats[9] > $mtime) { $mtime = $stats[9]; $latestfile = $name; } } }
        
        Etwas unschön ist dabei, daß ich der wanted-Funktion nicht so leicht eigene Argumente übergeben konnte, sondern den Datenaustausch mit der Funktion über globale Variablen gemacht habe. Vielleicht hat ja jemand noch eine bessere Idee dafür.
        
        Raubtier
        
        2014-11-03 17:58
        
        User since
        2012-05-04
        1054 Artikel
        BenutzerIn
        
        Gebe zu, dass mein Code dahingerotzt (sorry für das Wort) war. Aber ich benutzt hier das map-sort-map-Idiom (siehe z.B. http://en.wikipedia.org/wiki/Schwartzian_transform) Von der sortierten Liste nehme ich dann das erste Element. Wenn man aber nur min/max haben will, muss man nicht sortieren. Erschien mir nur schneller zu schreiben.
        
        +7 replies
        
        Matze2.pl
        
        2014-11-04 14:57
        
        User since
        2014-10-30
        23 Artikel
        BenutzerIn
        
        hey hlubenow, das funktioniert super wenn ich ich einen pfad direkt angebe:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
        
        my $mtime = 0; my $latestfile = ""; find(\&wanted, "/var/bin/testverzeichnis/Projekte/Projektenummern/12/1234"); print "$latestfile\n"; sub wanted { my $name = $File::Find::name; if (-f $name) { my @stats = stat($name); if ($stats[9] > $mtime) { $mtime = $stats[9]; $latestfile = $name; } } }
        
        ergebnis: /var/lib/testverzeichnis/Projekte/Projektenummern/12/1234/test.txt
        
        wenn ich das aber in einer schleife ablaufen lasse:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
        
        my @dirs = glob "/var/lib/testverzeichnis/Projekte/Projektenummern/*/*/"; foreach $dir (@dirs) { find(\&wanted, "$dir"); print "$dir\n$latestfile\n"; } sub wanted { my $name = $File::Find::name; if (-f $name) { my @stats = stat($name); if ($stats[9] > $mtime) { $mtime = $stats[9]; $latestfile = $name; } } }
        
        kommt dieses ergebnis:
        /var/lib/testverzeichnis/Projekte/Projektenummern/12/1234
        /var/lib/testverzeichnis/Projekte/Projektenummern/12/1234/alter.pl
        /var/lib/testverzeichnis/Projekte/Projektenummern/12/1235
        /var/lib/testverzeichnis/Projekte/Projektenummern/12/1234/alter.pl
        /var/lib/testverzeichnis/Projekte/Projektenummern/12/1236
        /var/lib/testverzeichnis/Projekte/Projektenummern/12/1234/alter.pl
        /var/lib/testverzeichnis/Projekte/Projektenummern/12/1255
        /var/lib/testverzeichnis/Projekte/Projektenummern/12/1234/alter.pl
        /var/lib/testverzeichnis/Projekte/Projektenummern/12/1275
        /var/lib/testverzeichnis/Projekte/Projektenummern/12/1234/alter.pl
        /var/lib/testverzeichnis/Projekte/Projektenummern/13/1345
        /var/lib/testverzeichnis/Projekte/Projektenummern/12/1234/alter.pl
        
        wie kann ich das denn in einer schleife laufen lassen so das er sich nur auf das angegebene verzeichnis bezieht.
        Das problem jetzt ist wahrscheinlich das die test.txt in 1234 neuer ist als zum beispiel die bla.txt in 1235. kann ich das iwie beheben, dass er die test.txt überträgt?
        Last edited: 2014-11-04 15:26:47 +0100 (CET)
        
        +2 replies
        
        Raubtier
        
        2014-11-04 16:11
        
        User since
        2012-05-04
        1054 Artikel
        BenutzerIn
        
        Mir ist auch nicht ganz klar, wozu du überhaupt File::Find einsetzen willst. Wenn ich es richtig verstehe, möchtest du doch nur innerhalb eines Verzeichnisses suchen oder nicht?
        
        Matze2.pl
        
        2014-11-04 16:18
        
        User since
        2014-10-30
        23 Artikel
        BenutzerIn
        
        ja ansich schon
        
        +4 replies
        
        hlubenow
        
        2014-11-04 17:24
        
        User since
        2009-02-22
        875 Artikel
        BenutzerIn
        
        2014-11-04T13:57:40 Matze2.pl
        wenn ich das aber in einer schleife ablaufen lasse:
        
        Ich verstehe auch noch nicht, was Du mit der Schleife erreichen möchtest.
        Vorher schriebst Du:
        
        "Matze2.pl
        Ich hab einen ein Verzeichnis (/var/lib/testverzeichnis/Projekte/12/1234
        in "1234" sind weitere Unterordner in denen jeweils Dateien liegen.
        jetzt möchte ich das die allerneuste Datei aus allen Unterorndern gefunden wird
        
        Das macht File::Find doch. Es durchsucht ein Verzeichnis rekursiv, das heißt, einschließlich aller Unterverzeichnisse. Du mußt also keine weitere Schleife schreiben, um damit auch die Unterverzeichnisse eines Verzeichnisses zu erfassen.
        
        Oft hilft es auch, während der Entwicklung print-Befehle einzufügen, um zu sehen, welche Daten tatsächlich verarbeitet werden. Wenn Du z.B. in der wanted-Funktion die Zeile
        
        Code (perl): (dl )
        
        print $name . "\n";
        
        eingefügt hättest, hättest Du sehen können, welche Dateien genau hinsichtlich des Datums verglichen werden. Dann hättest Du auch sehen können, daß auch Dateien aus den Unterverzeichnissen erfaßt werden.
        Man muß häufig auf diese Weise überprüfen, was das eigene Skript eigentlich tut, und es ggf. an das gewünschte Ergebnis anpassen.
        Last edited: 2014-11-04 17:26:41 +0100 (CET)
        
        +3 replies
        
        Matze2.pl
        
        2014-11-04 17:35
        
        User since
        2014-10-30
        23 Artikel
        BenutzerIn
        
        Mit der schleife will ich nicht die unterverzeichnisse durchsuchen sondern von .../Projektenummern/12/1234 auf .../Projektenummern/12/1235 springen und weiterhin auf .../Projektenummern/13/1334 usw.
        
        Ich möchte für JEDES Projekt (vierstellige Zahl) die neuste datei desshalb mach ich die schleife damit ich nicht jedes Projekt manuell durchgehen muss
        
        verstehst du mein anliegen?
        
        +2 replies
        
        hlubenow
        
        2014-11-04 19:41
        
        User since
        2009-02-22
        875 Artikel
        BenutzerIn
        
        Allmählich schon. Ich denke, Du hattest die globalen Variablen aus dem Beispiel nicht mit rüberkopiert. Dann kann das natürlich nicht klappen.
        Probier das doch mal:
        
        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 23 24 25 26 27 28 29 30 31 32 33 34
        
        #!/usr/bin/perl use warnings; use strict; use File::Find; my @dirs = glob("/var/lib/testverzeichnis/Projekte/Projektenummern/*/*"); my $latestfile; my $mtime; foreach my $dir (@dirs) { $latestfile = ""; $mtime = 0; find(\&wanted, "$dir"); print "$dir\n"; if ($latestfile eq "") { print "No last file found.\n\n"; } else { print "$latestfile\n\n"; } } sub wanted { my $name = $File::Find::name; if (-f $name) { my @stats = stat($name); if ($stats[9] > $mtime) { $mtime = $stats[9]; $latestfile = $name; } } }
        
        Matze2.pl
        
        2014-11-05 11:12
        
        User since
        2014-10-30
        23 Artikel
        BenutzerIn
        
        das läuft jetzt so wie ich mir das vorgestellt habe.
        Vielen dank für eure Hilfe und vorallem für eure Geduld :)

View all threads created 2014-10-31 15:48.