ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Alexander Shevchenko 2:5020/1817.26 10 Dec 2002 17:07:04
To : ‚ᥬ
Subject : поиск файлов
--------------------------------------------------------------------------------
Сделал процедуру, которая показывает на экран список всеъ каталогов, включая
вложенные:
sub search
{
local($i)=$i.' ';
chdir(@_[0]);
local(@filenames)=<*>;
local(@file);
foreach $file (@filenames)
{
if (-d $file)
{
print "$i$file\n";
search("$file");
chdir('..');
}
}
chomp($i);
chomp($i);
}
Теперь хочется отказаться от смены директорий (да и что бы имена полными с
путями выводились). Делаем так:
sub search
{
local($i)=$i.' ';
# chdir(@_[0]);
> local(@filenames)=<@_[0]//*>;
local(@file);
foreach $file (@filenames)
{
if (-d $file)
{
print "$i$file\n";
search("$file");
# chdir('..');
}
}
chomp($i);
chomp($i);
}
В результате не залазиет в каталоги, имена которых с пробелами... можно как-нить
это вылечить?
Alexander Shevchenko
... Default tagline #2
---
* Origin: Default origin (2:5020/1817.26)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
