Hei Alle,

Jeg har en fil som inneholder oversikt over en annen katalog:


> cat list.dat
-rwxr-XR-x 1 test staff 10240 okt 02 06:53 test.txtdd
-rwxrwxrwx 1 test staff 0 okt 04 07:22 test.txx
-rwxrwxrwx 1 test staff 132 Sep 16 2007 test_tt.sh
-rwxrwxrwx 1 test staff 193 Aug19 2007 test_ttt.sh
-rwxrwxrwx 1 test staff 45 nov 21 2007 testfile.sh
-RW-r - r - 1 test ansatte 10.240 april 18 06:49 testtrar.tar
>


Jeg må trekke navnene på filene som er opprettet i de siste 7 dagene. Så utdataene for skriptet skal lilke nedenfor fra ovenfor fil:

-rwxr-XR-x 1 test staff 10240 okt 02 06:53 test.txtdd
-rwxrwxrwx 1 test staff 0 okt 04 07:22 test.txx

Finnes det noen måte å få til dette?

Takk,
D

De "enkle" måten er å re-generere listen hjelp

find $DIR -mtime -7 -type f

Jeg gjorde dette nylig i perl denne måten.

$days = 7;
$dir = "/opt/application";
opendir(BIN, $dir) or die "Can't open $dir: $!";
while(defined($file = readdir BIN) ){
    next if $file =~ /^\.\.?$/;  #skip . and ..
    if(int(-M $file) < $days){
        # do something
    }
}

takk for det.

I cant bruke finne kommando som jeg dont ha tilgang til katalogen. Katalogen er åpnet av ftp. Jeg ftp til ekstern maskin og får liste fra katalogen til denne filen. Og fra denne filen, jeg trenger å filtrere ut filer eldre enn 7 dager. Så jeg tror eneste måten er å bruke filen.

I så fall tidsstempelet metoden kan være veien til venstre jeg gjette ...

Hi foton - Jeg har liten kunnskap om perl så jeg skrånende forstå hva scriptet gjør. Jeg tror det åpne katalog og tar hver fil og sjekke forholdene. Men kan det gjøres med innholdet i en fil?

Takk for hjelpen
D

eller bare kan jeg gjøre det under sjekk:
Jeg har tidsstempelet for en fil i en variabel

TS \u003d "29 sep 09:19"

Hvordan kan jeg finne ut om dette faller i siste 7 dager?

Jeg ser ikke hvorfor ikke.

$days = 7;
open FILE, "/opt/application/file.txt";
while(my $line = <FILE>){
    if(int(-M $line) < $days){
        #do something
    }
}

Det kan være andre wazs, men her er hva jeg vil gjøre. Installer "logwatch". La oss si at det installeres i / usr / share / logwatch. Deretter foreta en liten perl-skript:

#!/usr/bin/perl
use lib "/usr/share/logwatch/lib";
use Logwatch ':dates';

$ENV{"LOGWATCH_DATE_RANGE"}="since -7 days";
my $SearchDate = TimeFilter('%b %d %H:%M');

while (<>) {
   print if m/\b$SearchDate\b/o;
}