НГС.Форум /Компьютеры Интернет Связь / Программирование /

Perl

Печать RSS Деревом

Porter
Анонимный пользователь
28.02.03 13:27
Как на Perl'е узнать количество/имена субдиректорий/файлов в директории?
КопироватьСсылка
Рассказать друзьям
Algor
activist
Сообщений: 106
01.03.03 17:08Ответ на сообщение Perl пользователя Porter
[tmp@tmp tmp]$ ls -la

итого 336

drwx------ 2 tmp tmp 4096 Мар 1 17:01 .

drwx------ 57 tmp tmp 4096 Мар 1 16:58 ..

-rw------- 1 tmp tmp 324733 Мар 1 15:56 extfs9UT5pe

-rwxr-xr-x 1 tmp tmp 52 Мар 1 17:01 tmp.pl

[tmp@tmp tmp]$ cat ./tmp.pl

#!/usr/bin/perl

@ls=`ls -la `;

print "@ls";

exit 0;

[tmp@tmp tmp]$ ./tmp.pl

итого 336

drwx------ 2 tmp tmp 4096 Мар 1 17:01 .

drwx------ 57 tmp tmp 4096 Мар 1 16:58 ..

-rw------- 1 tmp tmp 324733 Мар 1 15:56 extfs9UT5pe

-rwxr-xr-x 1 tmp tmp 52 Мар 1 17:01 tmp.pl

[tmp@tmp tmp]$
КопироватьСсылка
Рассказать друзьям
Algor
activist
Сообщений: 106
01.03.03 17:30Ответ на сообщение Perl пользователя Porter
[tmp@tmp tmp]$ cat ./tmp.pl

#!/usr/bin/perl

opendir(ddd, "./");

@ls=readdir(ddd);

print "@ls";

exit 0;[tmp@tmp tmp]$ ./tmp.pl

. .. extfs9UT5pe tmp.pl[tmp@tmp tmp]$

З.Ы. Надеюсь понятно :-)
КопироватьСсылка
Рассказать друзьям
Porter
Анонимный пользователь
01.03.03 17:31Ответ на сообщение Re: Perl пользователя Algor
Не понятно.. Комментов мона?
КопироватьСсылка
Рассказать друзьям
Max_13
veteran
Сообщений: 2845
13.04.03 01:00Ответ на сообщение Re: Perl пользователя Porter
print `ls`
Все что написано мною - IMHO!
КопироватьСсылка
Рассказать друзьям

НГС.Форум /Компьютеры Интернет Связь / Программирование /

Перейти в форум

открыть в новом окне

Модератор:

flopic