Datei abfragen??? (Allgemeines zu Perl)

[thread]5827[/thread]

Datei abfragen???

Andreas

2003-10-16 16:02

User since
2003-09-24
111 Artikel
BenutzerIn
[default_avatar]

Hallo an alle,

folgendes Prob, ich muss in einer Endlosschleife eine Datei auslesen sobald diese sich geändert hat.
Jetzt könnte ich ja z.B. anhand des Datums und der Zeit der Datei erkennen ob es noch die alte ist oder neu.

Wie kann ich Änderungs- Datum und -Uhrzeit einer Datei herausbekommen?

Danke schon mal

Andreas

havi

2003-10-16 16:06

User since
2003-08-04
2036 Artikel
BenutzerIn

Code: (dl )

perldoc -f stat

Perl-Zeitung - http://perl-zeitung.at/
Perl-Blog - http://usr-bin-perl.blogspot.com/

renee

2003-10-16 16:18

User since
2003-08-04
14371 Artikel
ModeratorIn

Code: (dl )

#! /usr/bin/perl

use strict;
use warnings;
use diagnostics;

my $file = './test.pl';
my $mod = -M $file;
print $file." wurde vor ".$mod." Tagen zuletzt geändert\n";

Ausgabe:

Code: (dl )

1
2

~ 23> perl mod.pl
./test.pl wurde vor 0.968078703703704 Tagen zuletzt geändert

\n\n

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/

[E|B]

2003-10-16 16:48

User since
2003-08-08
2561 Artikel
HausmeisterIn

Hol dir den Timestamp mit stat[9].

Gruß, Erik!

s))91\&\/\^z->sub{}\(\@new\)=>69\&\/\^z->sub{}\(\@new\)=>124\&\/\^z->sub{}\(\@new\)=>);
$_.=qq~66\&\/\^z->sub{}\(\@new\)=>93~;for(@_=split(/\&\/\^z->sub{}\(\@new\)=>/)){print chr;}

It's not a bug, it's a feature! - [CGI-World.de]

View all threads created 2003-10-16 16:02.