Forum Webscript.Ru
Программирование => Perl => Тема начата: Yaroslav от 22 Июля 2003, 16:15:08
-
как отсортировать файлы по дате их изменения?
и вообще где можно посмотреть какие флаги имеет функция sort?
-
что б было понятно где отсортировать:
while (defined($filename = glob("*.txt"))) { #типа тут наверное
open (WORDSLIST, "$filename");
@file=;
}
-
perldoc -f sort
perldoc -f stat
-
perldoc -f sort
foreach(sort { -M $a <=> -M $b } glob("*.txt")) { ... }
-
mike:
foreach(sort { -M $a <=> -M $b } glob("*.txt")) { ... }
нефурычит
-
В каком смысле? Я проверял прежде чем запостить.
-
mike:
В каком смысле? Я проверял прежде чем запостить.
в прямом, куда его надо вставлять в моем примере?
если вставить так:
foreach(sort { -M $a <=> -M $b } ($filename = glob("*.txt")))
то он находит только один файл, а не все
-
Yaroslav:
если вставить так:
Нет, так вставлять не надо. ;) В моем примере тело цикла foreach будет выполняться последовательно для каждого из имен файлов после сортировки. Т.е. тебе нужно сделать где-то так:
foreach $filename (sort { -M $a <=> -M $b } glob("*.txt"))
{
#сюда вставляешь код обработки $filename
}
-
mike:
foreach $filename (sort { -M $a <=> -M $b } glob("*.txt"))
ОГРОМНОЕ СПАСИБО!