форумы  помощь  поиск  регистрация  майллист  ВХОД  слежка

Вариант для распечатки		Архивированная нить - только для чтения!  Пред. тема | След. тема
Форумы Программирование под UNIX (Public)
Изначальное сообщение		[Проследить за развитием треда]

"perl и ls"
Сообщение от Purple (??) on 09-Июн-04, 11:45  (MSK)
как в перле получить список файлов?
	Рекомендовать в FAQ | Cообщить модератору | Наверх

Индекс форумов | Темы | Пред. тема | След. тема

Сообщения по теме

1. "perl и ls"
Сообщение от alchie (??) on 09-Июн-04, 12:15  (MSK)
>как в перле получить список файлов? <*> print  foreach (<*>) ; эквивалентен ls
	Рекомендовать в FAQ | Cообщить модератору | Наверх

	2. "perl и ls"
	Сообщение от Simps (ok) on 09-Июн-04, 12:33  (MSK)
	>>как в перле получить список файлов? > ><*> > > >print  foreach (<*>) ; >эквивалентен >ls Кусок скрипта #!/usr/bin/perl $root = GetDir('/usr/home/simps'); sub GetDir {                 my $Path = shift;                 my @DirContent;                 opendir(DIR, "$Path");                 @DirContent = grep { !/^\.+$/ } readdir(DIR);                 closedir(DIR);                 foreach $file (@DirContent) {                 # Попробуй для файлов ключ -f                     if (-d $Path."/".$file) {                         print $Path."/".$file."\n";                         GetDir("$Path/$file");                         }                 } } Скрипт обходит папку вместе с вложенными
		Рекомендовать в FAQ | Cообщить модератору | Наверх

	3. "perl и ls"
	Сообщение от pth (??) on 09-Июн-04, 17:53  (MSK)
	perldoc File::Find
		Рекомендовать в FAQ | Cообщить модератору | Наверх

Удалить

Индекс форумов | Темы | Пред. тема | След. тема

Пожалуйста, прежде чем написать сообщение, ознакомьтесь с данными рекомендациями.