Pour faire ca, il y a File::Listing (perldoc File::Listing)
foreach my $entry (parse_dir(`ls -l $path`))
{
my ($name, $type, $size, $mtime, $mode) = @$entry;
}
Sinon, un simple opendir() puis stat sur chaque fichier:
opendir D, $dir or die();
my @liste = grep { !/^\.{1,2}$/ && -r "$dir/$_" } readdir(D);
closedir D;
foreach(@liste)
{
my ($dev, $ino, $mode, $nlink, $uid, $gid, $rdev, $size, $atime, $mtime, $ctime, $blksize, $blocks) = stat("$dir/$_");
}
# use File::Listing
Posté par polux14 . En réponse au message Coupage de string. Évalué à 2.
foreach my $entry (parse_dir(`ls -l $path`))
{
my ($name, $type, $size, $mtime, $mode) = @$entry;
}
Sinon, un simple opendir() puis stat sur chaque fichier:
opendir D, $dir or die();
my @liste = grep { !/^\.{1,2}$/ && -r "$dir/$_" } readdir(D);
closedir D;
foreach(@liste)
{
my ($dev, $ino, $mode, $nlink, $uid, $gid, $rdev, $size, $atime, $mtime, $ctime, $blksize, $blocks) = stat("$dir/$_");
}