Мобильная версия форумов
Открыть
 −2°C
завтра: −13°C
Погода в Перми
−2°C
ночью−6°C
утром−11°C
завтра−13°C
Подробно
 66,70
+0.1615
Курс USD ЦБ РФна 16 февраля
66,7044
+0.1615
 75,25
+0.2021
Курс EUR ЦБ РФна 16 февраля
75,2492
+0.2021
  • Porter

    Анонимный пользователь

    Как на Perl'е узнать количество/имена субдиректорий/файлов в директории?

  • activist

    Сообщений: 106

    [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]$

  • activist

    Сообщений: 106

    [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

    Анонимный пользователь

    Не понятно.. Комментов мона?

  • veteran

    Сообщений: 2845

    print `ls`

    Все что написано мною - IMHO!

Записей на странице:

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

Модератор: