test einer Datei (Allgemeines zu Perl)

[thread]13250[/thread]

test einer Datei

Tags: Tests Ähnliche Threads

Leser: 23

Articles: hide open all | hide show old branches

+8 replies
rasch

2009-03-18 16:25
User since
2009-03-18
15 Artikel
BenutzerIn
Hallo Leute,
Ich hätte eine Frage:
In folgender Schleife bekomme ich das Alter der Datei 'file' in Tagen, aber das Alter ist immer das selbe, auch nach ein Paar Sekunden dauerndem Schlaf. Ich habe vorausgesetzt, dass nach 5 Sekunden das Alter der Datei um 5 Sekunden älter wird. Hat jemand eine Idee?
Code (perl): (dl )

1 2 3 4 5 6 7

my $alter=''; while(1){ $alter=(-M 'file'); print "$alter\n"; sleep(5); $alter=''; }
Last edited: 2009-03-18 16:35:15 +0100 (CET)
- +3 replies
- pq
  
  2009-03-18 16:32
  User since
  2003-08-04
  12208 Artikel
  Admin1
  Tja das ist tricky, -M zeigt das alter der Datei zum Zeitpunkt des Script-Starts an =)
  
  Code: (dl )
  
  -M Script start time minus file modification time, in days.
  
  Du kannst stattdessen (stat $filename)[9] nehmen, das liefert dir ~~das absolute Alter~~ das Änderungsdatum der Datei.
  
  edit: s/Alter/Änderungsdatum/ danke betterworld
  Last edited: 2009-03-18 16:45:20 +0100 (CET)
  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
  - betterworld
    
    2009-03-18 16:43
    User since
    2003-08-21
    2614 Artikel
    ModeratorIn
    
    2009-03-18T15:32:41 pq
    Tja das ist tricky, -M zeigt das alter der Datei zum Zeitpunkt des Script-Starts an =)
    
    Code: (dl )
    
    -M Script start time minus file modification time, in days.
    
    Du kannst stattdessen (stat $filename)[9] nehmen, das liefert dir das absolute Alter der Datei.
    
    Vielmehr liefert es den Zeitpunkt der letzten Änderung. Das Alter erhält man, nachdem man es von der aktuellen Zeit abgezogen hat.
    
    Ich nutze lieber File::stat, dann muss man sich die "9" nicht merken:
    
    Code (perl): (dl )
    
    1 2 3
    
    use File::stat; my $mtime = stat('file')->mtime; my $alter = time() - $mtime;
    
    Lieblingsmodule: IPC::System::Simple, Path::Class
    - rasch
      
      2009-03-19 08:46
      
      User since
      2009-03-18
      15 Artikel
      BenutzerIn
      
      Danke beiden für Ihre Antworten. Das ist genau das, was ich meinte.
      rasch
- +4 replies
- betterworld
  
  2009-03-19 13:34
  
  User since
  2003-08-21
  2614 Artikel
  ModeratorIn
  
  Hat eigentlich schon mal jemand einen Nutzen daraus gezogen, dass sich -M auf den Scriptstart bezieht, oder daraus, dass es in Tagen angegeben wird? Für die meisten praktischen Zwecke wären Sekunden imho angebrachter.
  
  Eine sinnvolle Anwendung von -M ist, dass man Timestamps von zwei Dateien vergleicht. Aber das würde genauso gut gehen, wenn -M einfach die mtime zurück gäbe.
  Lieblingsmodule: IPC::System::Simple, Path::Class
  - +3 replies
  - rasch
    
    2009-03-19 20:28
    
    User since
    2009-03-18
    15 Artikel
    BenutzerIn
    
    Hallo,
    ich bin nur ein bisschen in die Perlprogrammierung reingerochen. Ich lerne erst Perl mit Hilfe des Buches 'Perl in 21 Tagen' von Laura Lemay, und beim Lesen bin ich auf Test der Dateien gestossen. Ich habe alle parameters versucht, und bei einigen, von denen ich dachte, dass sie nützlich sind, habe ich auch eine praktische Anwendung gesucht.
    Jetzt weiss ich, dass es auch menschlicher geht.
    Meine Frage war nur eine Idee, bei der ich mich nicht zu helfen wusste. Deshalb habe ich Kommunity um Hilfe gebeten. Es kommen sicher noch ein Paar dumme Fragen von mir, aber ich bitte um Geduld.
    - +2 replies
    - betterworld
      
      2009-03-19 20:37
      
      User since
      2003-08-21
      2614 Artikel
      ModeratorIn
      
      Meine letzte Frage war eigentlich auch eher an die Allgemeinheit gerichtet ;)
      Lieblingsmodule: IPC::System::Simple, Path::Class
      - renee
        
        2009-03-19 21:03
        
        User since
        2003-08-04
        14371 Artikel
        ModeratorIn
        
        Häufig ist es unerheblich, ob es Skriptstartzeit oder wirklich aktuell ist. Wenn Du bei einem Programmlauf alle Dateien älter als x Tage löschen willst, dann kommt es meist nicht auf 2 oder 3 Sekunden an... Und da ist die Angabe in Tagen auch ganz nützlich.
        
        Ich setze eher -M als (stat)[9] ein, weil ich dann schneller erkenne was ich will.
        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/

View all threads created 2009-03-18 16:25.