Погода: 25 °C
08.0821...23пасмурно, дождь
09.0824...26переменная облачность, без осадков
  • Как на 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!

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

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

Модератор: