[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