16°C
завтра: 19°C
Погода в Перми
16°C
ночью17°C
утром16°C
завтра19°C
Подробно
 66,61
+0.6121
Курс USD ЦБ РФна 20 августа
66,6082
+0.6121
 73,95
+0.7257
Курс EUR ЦБ РФна 20 августа
73,9484
+0.7257
  • Как на Perl'е узнать количество/имена субдиректорий/файлов в директории?

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

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



    З.Ы. Надеюсь понятно :-)

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

  • print `ls`

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

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

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

Модератор: