|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Andrey Titov 2:5020/400 15 Jan 2002 20:47:14
To : All
Subject : Список файлов в директории
--------------------------------------------------------------------------------
Hужно получить в список имена всех файлов в директории.
Hижеприведённый фрагмент работает только на сервере (под FreeBSD).
Как его можно подправить, чтобы работал на локальной машине под Windows?
Пробовал $ls = dir/b; и $ls = `dir/b`; вместо $ls = `ls $file`; Hе помогает.
@files = ('*.html','publications/*.html','documents/*.shtml');
chdir($basedir);
foreach $file (@files) {
$ls = `ls $file`;
@ls = split(/\s+/,$ls);
foreach $temp_file (@ls) {
if (-d $file) {
$filename = "$file$temp_file";
if (-T $filename) {
push(@FILES,$filename);
}
}
elsif (-T $temp_file) {
push(@FILES,$temp_file);
}
}
}
--- ifmail v.2.15dev5
* Origin: MTU-Intel ISP (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
