Автор Тема: сортировка файлов  (Прочитано 3961 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Оффлайн Yaroslav

  • Фанат форума
  • Старожил
  • ****
  • Сообщений: 323
  • +0/-0
  • 0
    • Просмотр профиля
сортировка файлов
« : 22 Июля 2003, 16:15:08 »
как отсортировать файлы по дате их изменения?
и вообще где можно посмотреть какие флаги имеет функция sort?
Никогда не бойся делать то, что ты не умеешь. Помни, ковчег был построен любителем. Профессионалы построили \"Титаник\".

Оффлайн Yaroslav

  • Фанат форума
  • Старожил
  • ****
  • Сообщений: 323
  • +0/-0
  • 0
    • Просмотр профиля
сортировка файлов
« Ответ #1 : 22 Июля 2003, 16:55:47 »
что б было понятно где отсортировать:

while (defined($filename = glob("*.txt"))) {  #типа тут наверное
open (WORDSLIST, "$filename");
@file=;
}
Никогда не бойся делать то, что ты не умеешь. Помни, ковчег был построен любителем. Профессионалы построили \"Титаник\".

Оффлайн Chs

  • Perl программер
  • Глобальный модератор
  • Ветеран
  • *****
  • Сообщений: 1108
  • +0/-0
  • 2
    • Просмотр профиля
    • http://chs.now.at/
сортировка файлов
« Ответ #2 : 22 Июля 2003, 17:21:11 »
perldoc -f sort
perldoc -f stat
2B OR NOT 2B = FF

Оффлайн mike

  • ProPerl\'er
  • Старожил
  • ****
  • Сообщений: 435
  • +0/-0
  • 2
    • Просмотр профиля
    • http://
сортировка файлов
« Ответ #3 : 22 Июля 2003, 17:26:20 »
perldoc -f sort

foreach(sort { -M $a <=> -M $b } glob("*.txt")) { ... }
[ основной браузер когда-то был, теперь попробуй разберись =]

Оффлайн Yaroslav

  • Фанат форума
  • Старожил
  • ****
  • Сообщений: 323
  • +0/-0
  • 0
    • Просмотр профиля
сортировка файлов
« Ответ #4 : 22 Июля 2003, 18:03:50 »
Цитировать
mike:
foreach(sort { -M $a <=> -M $b } glob("*.txt")) { ... }

нефурычит
Никогда не бойся делать то, что ты не умеешь. Помни, ковчег был построен любителем. Профессионалы построили \"Титаник\".

Оффлайн mike

  • ProPerl\'er
  • Старожил
  • ****
  • Сообщений: 435
  • +0/-0
  • 2
    • Просмотр профиля
    • http://
сортировка файлов
« Ответ #5 : 22 Июля 2003, 18:34:08 »
В каком смысле? Я проверял прежде чем запостить.
[ основной браузер когда-то был, теперь попробуй разберись =]

Оффлайн Yaroslav

  • Фанат форума
  • Старожил
  • ****
  • Сообщений: 323
  • +0/-0
  • 0
    • Просмотр профиля
сортировка файлов
« Ответ #6 : 22 Июля 2003, 18:46:30 »
Цитировать
mike:
В каком смысле? Я проверял прежде чем запостить.

в прямом, куда его надо вставлять в моем примере?
если вставить так:
foreach(sort { -M $a <=> -M $b } ($filename = glob("*.txt")))
то он находит только один файл, а не все
Никогда не бойся делать то, что ты не умеешь. Помни, ковчег был построен любителем. Профессионалы построили \"Титаник\".

Оффлайн mike

  • ProPerl\'er
  • Старожил
  • ****
  • Сообщений: 435
  • +0/-0
  • 2
    • Просмотр профиля
    • http://
сортировка файлов
« Ответ #7 : 22 Июля 2003, 18:52:24 »
Цитировать
Yaroslav:
если вставить так:

Нет, так вставлять не надо. ;) В моем примере тело цикла foreach будет выполняться последовательно для каждого из имен файлов после сортировки. Т.е. тебе нужно сделать где-то так:

foreach $filename (sort { -M $a <=> -M $b } glob("*.txt"))
{
    #сюда вставляешь код обработки $filename
}
[ основной браузер когда-то был, теперь попробуй разберись =]

Оффлайн Yaroslav

  • Фанат форума
  • Старожил
  • ****
  • Сообщений: 323
  • +0/-0
  • 0
    • Просмотр профиля
сортировка файлов
« Ответ #8 : 22 Июля 2003, 19:03:02 »
Цитировать
mike:
foreach $filename (sort { -M $a <=> -M $b } glob("*.txt"))

ОГРОМНОЕ СПАСИБО!
Никогда не бойся делать то, что ты не умеешь. Помни, ковчег был построен любителем. Профессионалы построили \"Титаник\".

 

Sitemap 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28