From: "Catalin Florin RUSSEN" <[EMAIL PROTECTED]>
> > foreach $filename (split(/\n/, `ls $dir$mask`))
> > {
> > $sb = stat($filename);
> > print $filename, "\t", scalar(localtime($sb->ctime)), "\n";
> > }
>noh, o sa ma dau pe el sa vad ce vace (ca tot mi-am pus cygwin ca sa nu
>belesc serevrul ;)
Acu incep sa inteleg si eu de ce-am zis ca vor ride unii. `ls $dir$mask`
porneste de la ideea preconceputa ca shell-ul poate executa `ls` si ca
rezultatul e un nume de fisier pe linie. Adica n-o sa mearga pe win.
Iaca si un cod ceva mai portabil:
#!/usr/bin/perl
use strict;
use File::stat;
my $filename;
my $dir = '/etc/';
my $mask = '\.conf';
my $sb;
opendir(DIR, $dir) || die('Cannot open'+$dir);
foreach $filename ( readdir(DIR))
{
if($filename =~ m/$mask$/)
{
$sb = stat($dir.$filename);
print $filename, "\t", scalar(localtime($sb->ctime));
print ' but is not a file' unless (-f $dir.$filename);
print "\n";
}
}
closedir(DIR);
---
Send e-mail to '[EMAIL PROTECTED]' with 'unsubscribe rlug' to
unsubscribe from this list.
