[vienna.pm] habs wohl nicht verstanden :-(, jetzt schon!
Michael Demelbauer
michael at wsr.ac.at
Fri Apr 7 05:49:07 CDT 2000
* * * vienna-pm-list * * *
Thus spaketh Peter J. Holzer:
> On 2000-04-07 10:42:46 +0200, Michael Demelbauer wrote:
> > * * * vienna-pm-list * * *
[ ... besten Dank an alle, die geantwortet haben, und nein: nur 'use
strict' hätte zu meiner Erleuchtung noch nicht gereicht ... ]
Da ich hier nicht der einzige Dummy zu sein scheine, poste ich das
ganze funktionierende Ding.
lG - Michl
---------------------- cut here ---------------------------------------
#!/usr/bin/perl
use strict;
use File::stat;
use POSIX;
my $dirsep = "/";
my $dir = ".";
my $file = "liste.dat";
opendir (DIRHANDLE, $dir) or die "cannot read directory $dir: $!";
close DIRHANDLE;
open (FILEHANDLE, ">$file")
or die "cannot open file $file for writing: $!";
my @files = readdir (DIRHANDLE);
for my $i (@files) {
my $st = stat ($dir . $dirsep . $i);
my $datum = strftime ("%Y-%m-%d %H:%M:%S",
localtime ($st -> mtime));
print FILEHANDLE "$datum $i\n";
}
---------------------- cut here ---------------------------------------
--
Michael P. Demelbauer
WSR (Wirtschafts- und Sozialwissenschaftliches Rechenzentrum)
LUGA (Linux User Group Austria)
If your operating system goes down more often than your girlfriend,
then either you need to get a Catholic girl, or you need to stop running NT.
###
You are subscribed to vienna-pm-list as Michael Demelbauer <michael at wsr.ac.at>
http://www.fff.at/fff/vienna.pm/
More information about the Vienna-pm
mailing list