Nach x Tagen löschen / datum vergleichen (Perl/CGI)

[thread]14142[/thread]

Nach x Tagen löschen / datum vergleichen

Leser: 21

Articles: hide open all | hide show old branches

+10 replies
cbxk1xg

2009-10-14 16:30

User since
2003-10-20
496 Artikel
BenutzerIn

Ich habe in meinem CMS eine rekursive Löschfunktion für Ordner und deren Inhalte samt Unterordner eingebaut. Damit der normale User allerdings keinen Herzinfarkt bekommt, werden diese Dateien nur in einen Mülleimer verschoben und nicht gleich von der Platte geputzt.

In diesem Mülleimer legt das CMS beim "löschen" Unterordner an, die folgendermaßen aufgebaut sind: 2009-10-14-16-20-31 Also nach dem Prinzip: YYYY-MM-DD-HH-MM-SS

Nun will ich jedoch nicht, daß der Ordner und dessen Unterordner auf immer bestehen bleiben. Nach 7 Tagen soll der entsprechend alte Ordner samt Inhalt gelöscht werden. Datestamps des Filesystems kann/will ich nicht benutzen und das schöne Modul Date::Calc kann/darf ich nicht installieren.

Hat jemand eine Idee wie man die Delta-Days berechnen kann?
- +8 replies
- renee
  
  2009-10-14 16:42
  User since
  2003-08-04
  14371 Artikel
  ModeratorIn
  Du kannst es so machen:
  
  Die Zeitangaben mit Regex aus Ordnernamen holen
  mit Time::Local in Epochensekunden umrechnen
  Wenn aktuelle Epochensekunden (time) - errechnete Epochensekunden > 7 * 24 * 60 * 60, dann lösche Ordner
  
  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/
  - +7 replies
  - cbxk1xg
    
    2009-10-14 16:50
    
    User since
    2003-10-20
    496 Artikel
    BenutzerIn
    
    Mhh.. Time::local scheidet leider aus, da nicht installiert. Ich kann auf dem blöden Webspace auch nichts nachinstallieren. Hat jemand eine andere Idee?
    - +3 replies
    - pq
      
      2009-10-14 16:57
      
      User since
      2003-08-04
      12209 Artikel
      Admin1
      
      das ist seit perl 5 mit im core!
      http://perlpunks.de/corelist/version?module=Time::...
      perl ist case-sensitiv
      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
      - bianca
        
        2009-10-14 17:04
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        2009-10-14T14:57:11 pq
        das ist seit perl 5 mit im core!
        http://perlpunks.de/corelist/version?module=Time::...
        perl ist case-sensitiv
        
        Ja, das wollte ich auch noch anmerken.
        
        Damit kann man nämlich wie folgt die Tage als Zwischenzeit berechnen:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8
        
        use Time::Local; my @start = split /\./,$_[0]; my @heute = split /\./,$_[1]; for (\@start, \@heute) { --$_->[1]; $_->[2] -= 1900; } my $zwischenraum = (timegm((0)x3,@heute) - timegm((0)x3,@start)) / 86400;
        
        Edit: Das Beispiel erwartet in $_[0] und $_[1] die beiden Daten im Format TT.MM.JJJJ
        Last edited: 2009-10-14 17:05:25 +0200 (CEST)
        10 print "Hallo"
        20 goto 10
        
        renee
        
        2009-10-14 17:11
        
        User since
        2003-08-04
        14371 Artikel
        ModeratorIn
        
        Edit: Schwachsinn geschrieben. Wer lesen kann ist klar im Vorteil...
        Last edited: 2009-10-14 17:12:46 +0200 (CEST)
        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/
    - +3 replies
    - renee
      
      2009-10-14 17:03
      
      User since
      2003-08-04
      14371 Artikel
      ModeratorIn
      
      2009-10-14T14:50:30 cbxk1xg
      Ich kann auf dem blöden Webspace auch nichts nachinstallieren.
      
      In ModuleWieInstalliereIchEinModul wird auch erklärt, wie man auf Webspace Module nachinstallieren kann.
      
      mod-edit pq: wiki-link portabel gemacht
      Last edited: 2009-10-14 17:08:31 +0200 (CEST)
      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/
      - +2 replies
      - pq
        
        2009-10-14 17:04
        
        User since
        2003-08-04
        12209 Artikel
        Admin1
        
        wobei es halt im fall von Time::Local gar nicht nötig ist. man muss es nur richtig schreiben...
        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
        
        renee
        
        2009-10-14 17:07
        
        User since
        2003-08-04
        14371 Artikel
        ModeratorIn
        
        Jepp, deswegen bezog ich mich nur auf den allgemeinen Teil der Antwort.
        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/
- bianca
  
  2009-10-14 17:01
  
  User since
  2009-09-13
  7016 Artikel
  BenutzerIn
  
  Date::Calc hat Mktime, damit kann man aus einem Datum einen Zeitwert bauen.
  Vielleicht kannst Du aus der Source des Moduls heraussuchen, wie das Modul das macht und das dann nachbauen in Deinem Script.
  
  Alternativ würde ich einfach jeden Monat mit 30 Tagen anhalten und einfache Substraktion durchführen. Dann werden die halt nach "ungefähr" 7 Tagen gelöscht. Ist das nicht egal bei der Anwendung?
  10 print "Hallo"
  20 goto 10

View all threads created 2009-10-14 16:30.