Datum und Uhrzeit einer Datei

[Jan Runte]

Hallo.

ich suche eine Möglichkeit das Datum und die Uhrzeit einer Datei
formatiert darzustellen. Ich habe nur folgende Eigenschaften abfragen können:

$alter= (-M "test.cgi");
$alter= (-A "test.cgi");
$alter= (-C "test.cgi");

liefern mir nur Tage zurück und auch noch unformatiert in einer Gleitkommazahl.

Kann mir jemand sagen, wie ich auf so einem Format komme: 17.10.1999 / 14:25 ??
Es muß nicht unbedingt in diesem Format, aber halt in einem lesbaren Format.
In der Dokumentation von "Eike Grote" (www.phy.uni-bayreuth.de/~btpa25/perl) und
anderen div. Dokus, konnte ich nichts dolles finden.

Vielen Dank auch im voraus.

MfG jR.

[Cheatah]

Hi,

ich suche eine Möglichkeit das Datum und die Uhrzeit einer Datei
formatiert darzustellen. Ich habe nur folgende Eigenschaften abfragen können:

[...]

liefern mir nur Tage zurück und auch noch unformatiert in einer Gleitkommazahl.

stimmt, die sind für Datumsangaben denkbar ungeeignet. Was Du suchst ist die Funktion stat:

($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,$blksize,$blocks) = stat($filename);

Vermutlich suchst Du $mtime (Datum der letzten Änderung), also (stat($filename))[9]. Diese Zeit kannst Du wie gewohnt mit localtime verarbeiten und so jedes gewünschte Format herstellen.

Cheatah

[Christoph Zurnieden]

Hallo zusammen,

stimmt, die sind für Datumsangaben denkbar ungeeignet. Was Du suchst ist die Funktion stat:

($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,$blksize,$blocks) = stat($filename);

Vermutlich suchst Du $mtime (Datum der letzten Änderung), also (stat($filename))[9]. Diese Zeit kannst Du wie gewohnt mit localtime verarbeiten und so jedes gewünschte Format herstellen.

(Weil ich es nie lassen kann)Kurzer Auschnitt aus der perlfaq-5
(da stehen nämlich auch 2 Beispiele ;-)

How do I get a file's timestamp in perl?

If you want to retrieve the time at which the file was last read, written, or had its meta-data (owner, etc) changed, you use the -M, -A, or -C filetest
operations as documented in the perlfunc manpage. These retrieve the age of the file (measured against the start-time of your program) in days as a floating
point number. To retrieve the ``raw'' time in seconds since the epoch, you would call the stat function, then use localtime(), gmtime(), or
POSIX::strftime() to convert this into human-readable form.

Here's an example:

$write_secs = (stat($file))[9];
    printf "file %s updated at %s\n", $file,
        scalar localtime($write_secs);

If you prefer something more legible, use the File::stat module (part of the standard distribution in version 5.004 and later):

# error checking left as an exercise for reader.
    use File::stat;
    use Time::localtime;
    $date_string = ctime(stat($file)->mtime);
    print "file $file updated at $date_string\n";

The POSIX::strftime() approach has the benefit of being, in theory, independent of the current locale. See the perllocale manpage for details.

Also beim nächsten Mal....

und nichts für ungut ;-)

Gruß
Christoph