Forum Webscript.Ru

Программирование => Perl => Тема начата: Timofey от 17 Февраля 2003, 18:11:57

Название: список файлов в каталоге
Отправлено: Timofey от 17 Февраля 2003, 18:11:57

как узнать ТОЛЬКО список всех файлов в каталоге
(а то через readdir всле сразу лезет . .. и подкаталоги и т.п.)

Название: список файлов в каталоге
Отправлено: NeoNox от 17 Февраля 2003, 18:45:14

http://forums.webscript.ru/showthread.php?s=&threadid=10420&msgnum=9

Название: список файлов в каталоге
Отправлено: mike от 17 Февраля 2003, 19:33:31

perldoc -f grep
Вариант:

Код: [Выделить]


$path = "somepath";
opendir DIR, $path;
@files = grep { -f "$path\\\\$_" } readdir DIR;
closedir DIR;


Название: список файлов в каталоге
Отправлено: Wyclef от 17 Февраля 2003, 19:35:35

Цитировать

а то через readdir всле сразу лезет . .. и подкаталоги и т.п.

push @files, $_ if -f $_;

Название: список файлов в каталоге
Отправлено: innin от 18 Февраля 2003, 17:36:29

print <*.*>;

Название: список файлов в каталоге
Отправлено: Wyclef от 18 Февраля 2003, 18:07:13

Т.Кристиансен "Perl Библиотека программиста"

Название: список файлов в каталоге
Отправлено: innin от 18 Февраля 2003, 20:55:16

Wyclef
вы, наверное, имеете в виду Perl Cookbook Кристансена и Торкингтона :-)

Название: список файлов в каталоге
Отправлено: Wyclef от 19 Февраля 2003, 07:30:12

innin
именно, ты не мне говори а господину Timofey\'ю :)

Название: список файлов в каталоге
Отправлено: NeoNox от 19 Февраля 2003, 11:05:28

moderator
Флейм в данном разделе запрещен.
Учтите на будующее.
Тема закрыта.