Re: [PERL] document.modified og perl

[Christian Hemmingsen <sslug@sslug>]

Kim Schulz wrote:

> Michael Rasmussen wrote:
> >
> > In article <sslug@sslug>, "Kim Schulz" <sslug@sslug>
> > wrote:
> >
> > > Michael Rasmussen wrote:
> > >> Hej alle,
> > >> Har et lille problem. Bruger perl til at generere dynamiske sider, men
> > >> et problem har jeg dog ikke fået løst endnu. Jeg har en footer skrevet
> > >> i javascript, som bl.a. udskriver, hvornår en side er sidst opdateret,
> > >> men når siden er genereret af perl, bliver datoen sat til standardtid,
> > >> altså 1/1 1970 01:00. Er der en af jer, som har fundet en metode til at
> > >> sætte datoen i det genererede htmldocumentet til en valgfri dato?
> > > ehh hvad med at gøre det via perl selv? kig på date() eller lignende.
> > > MVH
> > > Kim
> > >
> > Jeg prøver lige at redefinere mit spørgsmål:
> >
> > Jeg vil netop ikke sætte datoen med date(), da det vil betyde, at det er
> > datoen for skabelsen af selve siden - hver gang brugeren forespørger
> > siden, der vises. Det jeg ønsker, er, at kunne sætte en dato, som jeg
> > vælger - hver gang jeg ændrer i kilden, skal datoen for denne ændring
> > sættes, og det er den dato, der skal vise med kaldet til document.modified
>
> Tjaa det bliver jo nok lidt svært, da den dato du søger, ikke står noget
> sted.
> hvis jeg forstår dig ret, så vil du have den dato som en dynamisk side
> er blevet generet på første gang (f.eks. nyheden er blevet sat på
> siden).
>
> hvad med at putte denne dato ind i en variabel som bare sættes på samme
> tid som selve indholdet defineres.
> hvis det er modifikations datoen for perlscriptet du er ude efter, så
> skal du nok kigge på fil test parametrene
>
> -M  # Alder af fil i dage siden den sidst blev modificeret.
> -A  # Alder af fil i dage siden sidste gang den blev kørt (accessed)
> -C  # Alder af fil i dage siden inode skiftede.

Brug evt. stat, returnerer alderen i sekunder siden 1-1-1970, kan bruges i
f.eks. Date::Format.
perldoc -f stat
f.eks.
$last_access = (stat($somefile))[8]
eller
@file_info = stat($somefile_or_filehandle)

Christian Hemmingsen