Files von sysdate -1 herausfinden (Allgemeines zu Perl)

[thread]17857[/thread]

Files von sysdate -1 herausfinden

Tags: perl5 datum sysdate -1 Files Similar Threads

Readers: 19

Articles: hide open all | hide show old branches

+9 replies
walu

2012-10-25 15:30

User since
2012-10-25
2 articles
BenutzerIn

Hallo Zusammen,

wollte mal fragen, wie kann ich die Files von (SYSDATE -1)ausgeben und die gezipte Files sollten nicht betrachtet werden
Danke m Voraus

-rw-r--r-- 1 admin wlsbase 1494357 Oct 23 23:04 cluster_m1.log04661.gz
-rw-r--r-- 1 admin wlsbase 1486097 Oct 24 00:01 cluster_m1.log04662.gz
-rw-r--r-- 1 admin wlsbase 51200080 Oct 24 02:53 cluster_m1.log04664
-rw-r--r-- 1 admin wlsbase 51200280 Oct 24 05:26 cluster_m1.log04665
-rw-r--r-- 1 admin wlsbase 51200244 Oct 24 10:56 cluster_m1.log04669
-rw-r--r-- 1 admin wlsbase 51200004 Oct 24 11:44 cluster_m1.log04670
-rw-r--r-- 1 admin wlsbase 51200549 Oct 24 12:41 cluster_m1.log04671
-rw-r--r-- 1 admin wlsbase 51200231 Oct 24 13:39 cluster_m1.log04672
-rw-r--r-- 1 admin wlsbase 51200356 Oct 25 00:03 cluster_m1.log04685
-rw-r--r-- 1 admin wlsbase 51200039 Oct 25 07:23 cluster_m1.log04689
Last edited: 2012-10-25 15:58:41 +0200 (CEST)
- +5 replies
- GwenDragon
  
  2012-10-25 16:10
  User since
  2005-01-17
  14741 articles
  Admin1
  Du meinst aktueller Zeitpunkt - 1 Sekunde?
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14
  
  use File::Find; my @found; # gefundene Dateinamen find (\&found, $dir); sub found { my $fn = $File::Find::name; if (-f $fn && $fn !~ /\.gz$/ # kein .gz && (stat($fn))[10] == +time-86400) { # ctime == Jetztzeit - 1 day push @found,$fn; # gefunden, dann ins Array } }
  
  //EDIT:
  Auf -1 Tag umgestellt, fehlende $ wieder hinzugefügt
  Last edited: 2012-10-25 16:37:22 +0200 (CEST)
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +4 replies
  - Muffi
    
    2012-10-25 16:15
    
    User since
    2012-07-18
    1465 articles
    BenutzerIn
    
    Hmm, ich habs als gestern aufgefasst... mal abwarten ;)
    1 + 1 = 10
    - +3 replies
    - GwenDragon
      
      2012-10-25 16:34
      
      User since
      2005-01-17
      14741 articles
      Admin1
      
      Ach so, es ist das SQLs SYSDATE gemeint, da ist -1 dann - 1 Day ;)
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
      - +2 replies
      - Muffi
        
        2012-10-25 16:43
        
        User since
        2012-07-18
        1465 articles
        BenutzerIn
        
        Stimmt, sysdate -1 heisst ja eigentlich garnicht gestern, sondern -24 Stunden.
        
        [EDIT] allerdings macht das keinen großen Sinn, die Dateien sekundengenau von jetzt - 86400 Sekunden sehen zu wollen.
        Ich bleib bei: Die gestrigen sind gemeint.
        Last edited: 2012-10-25 16:45:24 +0200 (CEST)
        1 + 1 = 10
        
        GwenDragon
        
        2012-10-25 20:24
        
        User since
        2005-01-17
        14741 articles
        Admin1
        
        Tja, - 1 Tag ist aber eben nicht gestern, mein Lieber.
        Da hat sich walu etwas missverständlich geäußert.
        
        Ungestet:
        
        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
        
        use DateTime; use File::Find; # gefundene Dateinamen my @found; find (\&found, $dir); # Gestern 00:00:00 als Unixepoche (in Sekunden) my $yesterepoch = DateTime->today->add(days => -1)->epoch; sub found { my $fn = $File::Find::name; my $stat; if ( -f $fn # kein *.gz && $fn !~ /\.gz$/ # gestern 00:00:00 && ($stat = (stat($fn))[10]) >= $yesterepoch # gestern 23:59:59 && $stat <= $yesterepoch+86400-1 ) { push @found,$fn; # gefunden, dann abs ins Array } } print join "\n",@found;
        
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- +2 replies
- Muffi
  
  2012-10-25 16:14
  User since
  2012-07-18
  1465 articles
  BenutzerIn
  ungetestet in etwa so:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10
  
  use Class::Date 'date'; use constant CTIME => 10; for my $filepath (glob('/foo/*')) { next if $filepath =~ /\.gz$/; next if date((stat($filepath))[CTIME])->truncate eq (date(time) - '1D')->truncate; print "$filepath\n"; }
  
  1 + 1 = 10
  - walu
    
    2012-10-25 19:29
    
    User since
    2012-10-25
    2 articles
    BenutzerIn
    
    vielen Dank, sorry mit sysdate -1 ist gestern gemenit
- GwenDragon
  
  2012-10-31 11:41
  
  User since
  2005-01-17
  14741 articles
  Admin1
  
  Und wie hast du es nun gelöst?
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten

View all threads created 2012-10-25 15:30.