Das aktuelle Verzeichnis ermitteln (Allgemeines zu Perl) - Perl-Community.de

Start · Board · Anwendungen/Programme/Skripte in Perl · Allgemeines zu Perl

2024-11-28 08:57:45
Europe/Berlin
Einloggen (Registrieren)
- Einstellungen
- Statistics
Jemand zu Hause?
1 Benutzer online
2 Gäste

[thread]14109[/thread]

submit to reddit

Das aktuelle Verzeichnis ermitteln

Leser: 28

Articles: hide open all | hide show old branches

+14 replies
PETER_PAN2009

2009-10-07 11:52

User since
2009-08-24
111 Artikel
BenutzerIn

Hallo zusammen!

Auf eine Partition werden in bestimmten Abständen Verzeichnisse hinzugefügt. Ich möchte ganz gerne anhand des Erstelldatums das neueste Verzeichniss ermitteln!

Wie kann ich am einfachsten das aktuelle/neueste(nach Datum) Verzeichnis ermitteln? Ich habe's rausbekommen, dass es eine "stat" Funktion gibt, die sich aber nur auf Dateien bezieht...oder?

Kann mir jemand helfen..
DANKE

Gruß
- Taulmarill
  
  2009-10-07 11:58
  
  User since
  2004-02-19
  1750 Artikel
  BenutzerIn
  
  stat funktioniert auch, wenn du es auf Verzeichnisse anwendest. Perl kommt aus der UNIX-Welt, da ist alles eine Datei, auch Verzeichnisse :-)
  
  $_=unpack"B*",~pack"H*",$_ and y&1|0& |#&&print"$_\n"for@.=qw BFA2F7C39139F45F78 0A28104594444504400 0A2F107D54447DE7800 0A2110453444450500 73CF1045138445F4800 0 F3EF2044E3D17DE 8A08A0451412411 F3CF207DF41C79E 820A20451412414 83E93C4513D17D2B
- +10 replies
- pq
  
  2009-10-07 11:59
  
  User since
  2003-08-04
  12208 Artikel
  Admin1
  
  stat gilt für dateien, und verzeichnisse sind immer auch dateien ( aber nicht jede datei ist ein verzeichnis).
  also: verzeichnisse einlesen mit readdir, und in einer schleife den höchsten wert von (stat $file)[9] ermitteln.
  
  edit: typo
  Last edited: 2009-10-07 14:03:46 +0200 (CEST)
  Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
  lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
  - PETER_PAN2009
    
    2009-10-07 12:11
    
    User since
    2009-08-24
    111 Artikel
    BenutzerIn
    
    Werde ich gleich mal ausprobieren..danke erstmal!!
  - +8 replies
  - betterworld
    
    2009-10-07 14:02
    User since
    2003-08-21
    2614 Artikel
    ModeratorIn
    
    2009-10-07T09:59:10 pq
    wert von (stat $file)[9] ermitteln.
    
    Damit man nicht solche unverständlichen Zahlen benutzen muss, geht es auch so:
    
    Code (perl): (dl )
    
    1 2
    
    use File::stat; stat($file)->mtime;
    
    edit: pq's edit im Zitat übernommen
    Last edited: 2009-10-07 14:06:57 +0200 (CEST)
    Lieblingsmodule: IPC::System::Simple, Path::Class
    - +7 replies
    - PETER_PAN2009
      
      2009-10-07 14:21
      
      User since
      2009-08-24
      111 Artikel
      BenutzerIn
      
      Ich habe noch Schwierigkeiten:
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8
      
      my $Verzeichnis = "D:/qt"; opendir(DIR, $Verzeichnis) || die "$Verzeichnis: $!"; my @verz = readdir(DIR); closedir(DIR); foreach my $folder (@verz) { print stat($folder)->mtime."\n"; }
      
      Ich bekomme zwei Werte (10 stellig) und dann die Fehlermeldung Can't call method "mtime" on an undefined value
      
      Achja, use File::stat habe ich auch!
      
      Was mache ich falsch??
      - +2 replies
      - bianca
        
        2009-10-07 14:38
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        Der versucht wahrscheinlich von '.' und '..' das Datum zu ermitteln.
        10 print "Hallo"
        20 goto 10
        
        pq
        
        2009-10-07 15:48
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        jo, aber das an sich sollte ja kein problem sein. das sind auch richtige verzeichnisse, die eine mtime haben.
        Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
        lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
      - topeg
        
        2009-10-07 14:38
        
        User since
        2006-07-10
        2611 Artikel
        BenutzerIn
        
        vollständiger Pfad:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9
        
        my $Verzeichnis = "D:/qt"; opendir(DIR, $Verzeichnis) || die "$Verzeichnis: $!"; my @verz = readdir(DIR); closedir(DIR); foreach my $folder (@verz) { next if($folder eq '.' || $folder eq '..'); print stat("$Verzeichnis/$folder")->mtime."\n"; }
        
        Wie soll perl den Ordner finden wenn du nur den Namen nennst und nicht das Verzeichnis in dem es sich befindet?
        Ist so als würdest du in jemanden deine Hausnummer nennen, aber weder Stadt noch Straße.
        
        edit: richtig "." und ".." Überstringen
        
        Weiterhin solltest du prüfen ob es wirklich auch ein Verzeichnis ist. ("-d $pfad")
        Last edited: 2009-10-07 14:42:04 +0200 (CEST)
      - +3 replies
      - betterworld
        
        2009-10-07 14:47
        
        User since
        2003-08-21
        2614 Artikel
        ModeratorIn
        
        2009-10-07T12:21:16 PETER_PAN2009
        Ich bekomme zwei Werte (10 stellig) und dann die Fehlermeldung Can't call method "mtime" on an undefined value
        
        OK, ich hätte noch die nötige Fehlerbehandlung dazutun sollen:
        
        Code (perl): (dl )
        
        1 2 3
        
        use File::stat; my $stat = stat($file) or die "Could not stat $file: $!\n"; print $stat->mtime;
        
        Nun wirst Du vermutlich eine aussagekräftige Fehlermeldung bekommen wie "No such file or directory". Den Grund dafür hat ja topeg genannt.
        
        Das Modul Path::Class erleichtert die ganze Geschichte übrigens noch weiter:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8
        
        use Path::Class; my $dir = dir("D:/qt"); # dir() kommt aus Path::Class for my $entry ($dir->children) { my $stat = $entry->stat or warn("$entry: $!\n"), next; print $stat->mtime; }
        
        Wenn stat() so aufgerufen wird, muss File::stat übrigens nicht selbst eingebunden werden, das wird von Path::Class gemacht.
        
        Der Vorteil hierbei ist u.a., dass die Pfade, die "children" zurückgibt, nicht relativ zu $dir sind, sondern $dir wird automatisch davor angehängt. Das spart mühsame Routinearbeit.
        
        Allerdings wird Path::Class nicht mit perl ausgeliefert, man muss es selbst installieren.
        
        Edit: CPAN-Link gesetzt
        Edit: children statt next benutzt
        Last edited: 2009-10-07 15:52:44 +0200 (CEST)
        Lieblingsmodule: IPC::System::Simple, Path::Class
        
        +2 replies
        
        PETER_PAN2009
        
        2009-10-07 16:04
        
        User since
        2009-08-24
        111 Artikel
        BenutzerIn
        
        Ok ich hab's!
        
        Jetzt will ich ja das aktuelle Verzeichniss rausfiltern:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10
        
        my @info = (); while (my $entry = $dir->next) { if (-d $entry && $entry=~ m/qt_4/) { my $stat = $entry->stat or warn("$entry: $!\n"), next; push @info, $stat->mtime; } } my @newdir = sort{$b<=>$a}(@info); print "$newdir[0]\n";
        
        So bekomme ich auf jeden Fall das Richtige raus, möchte aber jetzt in das Verzeichniss wechseln, welches ich abgefangen habe! Leider habe ich nur die Anzahl der Sekunden, das Verzeichniss(Pfad + Name) ist ja nicht mehr bekannt!
        
        Soll ich ich es mit einem Hash versuchen oder kann man das irgendwie in der Schleife lösen??
        
        Sorry Leute, aber ich bin ein Anfänger :-)!
        
        Danke
        
        pq
        
        2009-10-07 16:09
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        wie kriegst du den maximalwert einer liste, die du in einer schleife durchläufst... überleg mal... ist ganz einfach...
        wie würdest du das im reallife machen? du kriegst mehrere zettel mit grossen zahlen und solltest dir die grösste merken. genau, du merkst dir immer die zuletzt grösste und vergleichst dann mit der nächsten zahl. sollte wirklich einfach in perl zu übersetzen sein =)
        Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
        lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
- +2 replies
- sid burn
  
  2009-10-07 14:06
  User since
  2006-03-29
  1520 Artikel
  BenutzerIn
  Quote
  Ich möchte ganz gerne anhand des Erstelldatums das neueste Verzeichniss ermitteln!
  
  Welches Betriebssystem den? Unix ähnliche Betriebssysteme Speichern das erstelldatum gar nicht erst. Ich glaube nur Windows speichert das Erstelldatum. Ich würde eher über die "mtime" sprich Modification time gehen. Sprich wann die Datei das letzte mal bearbeitet wurde.
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9
  
  use Path::Class; my @files = sort { $b->stat->mtime <=> $a->stat->mtime } map { file($_) } grep { $_ ne '.' && $_ ne '..' } dir->open->read; say "Neuste Datei: $files[0]";
  
  Ansonsten hier ein Beispiel mit Path::Class das dir in @files die Dateien/Verzeichnisse des aktuellen verzeichnisses speichert, und nach Modification Time Sortiert. Und dann die neueste Datei ausgiebt.
  
  EDIT: ".." wird auch übersprungen.
  Last edited: 2009-10-07 14:12:35 +0200 (CEST)
  Nicht mehr aktiv. Bei Kontakt: ICQ: 404181669 E-Mail: perl@david-raab.de
  - sid burn
    
    2009-10-07 15:53
    User since
    2006-03-29
    1520 Artikel
    BenutzerIn
    
    Hmm ich sehe gerade aus betterworlds Posts das es die Methode "children" gibt. Damit kann man mein vorherigen Code noch verbessern/vereinfachen.
    
    Code: (dl )
    
    1 2 3 4 5 6 7 8 9 10 11 12 13
    
    use Path::Class; use List::Util qw(first); my $dir = $ARGV[0] || '.'; my $newest = first { $_ } sort { $b->stat->mtime <=> $a->stat->mtime } dir($dir)->children; $newest->is_dir ? say "Neustes Verzeichniss: $newest" : say "Neuste Datei: $newest";
    
    Hier habe ich noch "first" hinzugefügt da man ja nur am neusten Eintrag Interessiert ist.
    Nicht mehr aktiv. Bei Kontakt: ICQ: 404181669 E-Mail: perl@david-raab.de

View all threads created 2009-10-07 11:52.