Datei-Datum ermitteln (Allgemeines zu Perl)

[thread]16654[/thread]

Datei-Datum ermitteln

Tags: perl5 Ähnliche Threads

Leser: 22

Articles: hide open all | hide show old branches

+3 replies

crojay

2011-08-24 01:16

User since
2011-03-08
81 Artikel
BenutzerIn
[default_avatar]

Hi,

kann mir jemand verraten wie ich das Datum einer Datei ermitteln kann? Ich benötige dies um die Datei entsprechend umzubennen, sodass darin der Zeitstempel im Format YYYY-MM-DD_hh:mm:ss enthält.

Habe es bisher mit file::stat versucht aber bin mir nicht sicher ob das der richtige weg ist.

Danke

+2 replies

topeg

2011-08-24 03:55

User since
2006-07-10
2611 Artikel
BenutzerIn

user image

Meinst du die Zeit der Letzten Veränderung ("mtime")?

Code (perl): (dl )

#!/usr/bin/perl
use POSIX;
use strict;
use warnings;

my $file=shift(@ARGV) // '/etc/fstab';

my $timestr=POSIX::strftime( "%Y-%m-%d_%H:%M:%S", localtime(( stat $file )[9] ) );

print "$timestr\n";

Das kann man auch von Hand:

Code (perl): (dl )

#!/usr/bin/perl
use strict;
use warnings;

my $file=shift(@ARGV) // '/etc/fstab';

my @date=reverse((localtime(( stat $file )[9] ))[0..5]);
$date[0]+=1900;
$date[1]+=1;
my $timestr=sprintf('%04u-%02u-%02u_%02u:%02u:%02u',@date);

print "$timestr\n";

Last edited: 2011-08-24 03:57:52 +0200 (CEST)

mark05

2011-08-25 15:09

User since
2010-01-05
129 Artikel
BenutzerIn
[default_avatar]

hi
das sollte alles mit stat gehen

jedoch muss man dort die zeit umrechnen da stat epoch-time ausgibt.

http://en.wikipedia.org/wiki/Unix_time

ergo koennte das so aussehen

Code: (dl )

#!/usr/bin/perl -w
use strict;
use warnings;
use DateTime;

my @filestats = stat '/etc/fstab';
my $atime = $filestats[8];
my $mtime = $filestats[9];
my $ctime = $filestats[10];

print "atime als epochtime = $atime atime im gewuenschten format new = ",convert_epochtime($atime),"\n";
print "mtime als epochtime = $mtime atime im gewuenschten format new = ",convert_epochtime($mtime),"\n";
print "ctime als epochtime = $ctime atime im gewuenschten format new = ",convert_epochtime($ctime),"\n";


sub convert_epochtime {
my $epochtime = shift;
my $dt = DateTime->from_epoch( epoch => $epochtime );
my $newtimeformat = $dt->ymd;
$newtimeformat .= '_';
$newtimeformat .= $dt->hms;
return ($newtimeformat);
}

1;

wobei DateTime ein modul vom cpan ist.

holger

View all threads created 2011-08-24 01:16.