|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Alexander V. Gaiduk 2:5020/400 09 Aug 2002 13:45:55
To : Slava Kostin
Subject : Hа: Рекурсивный обход каталогов
--------------------------------------------------------------------------------
> AG> &scandir('/мой/секретный/каталог');
>
> ^поясни, плиз, зачем "&"?
подходит сын к отцу-программисту, спрашивает:
- па, а как солнце восходит и заходит?
- точно восходит?
- точно.
- точно заходит?
- ну да, точно.
- так вот сынуля, работает - нетрожь.
:)
>
> AG> sub scandir {
>
> [Skipped]
>
> AG> foreach $d (sort { $a cmp $b } readdir(DIR)) {
>
> И, прошу прощения, и эту строчку прокомментируй, плиз.
readdir(DIR) - прочитали список файлов каталога
sort { $a cmp $b } - отсортировали его
{ $a cmp $b } - по возрастанию (можно опустить, ранее тут была сортировка
по датам)
foreach $d - побежали по отсортированному списку
=GAV
--- ifmail v.2.15dev5
* Origin: LesoBANK (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
