Forum Webscript.Ru

Программирование => Perl => Тема начата: Труба-Дур от 11 Июля 2002, 08:27:11

Название: Названия файлов в определеном каталоге?!
Отправлено: Труба-Дур от 11 Июля 2002, 08:27:11

Сабж... Есть каталог...
Надо написать код который просматривает это каталог на наличие в нем файлов и если они есть то надо вывыести их названия на экран?! Причем названия файлов могут быть разными, а не только нумерация.
:)

Название: Названия файлов в определеном каталоге?!
Отправлено: Maniac от 11 Июля 2002, 11:02:06

Ээээээ... А при чем тут CGI? Ты конкретно скажи на чем тебе надо?
Если на PHP, то вообще не ясно в чем проблема...

$dir=opendir(\'./somdir\');
while ($filename=readdir($dir))
   if (is_file("$dir/$filename")) print $filename.

Название: Названия файлов в определеном каталоге?!
Отправлено: Chs от 11 Июля 2002, 13:25:59

ээээ А причем тут ПХП?

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


$dir = opendir(\'./somedir\');
while(readdir($dir))
{
  print if (-f $_);
}



Название: Названия файлов в определеном каталоге?!
Отправлено: Evgeny от 11 Июля 2002, 17:52:11

А у меня так на перле работает:

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


opendir(D,\'./dirname\');

foreach(readdir(D))
{  print $_."\\n" if -f $_;
}