Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / PHP, Perl, Python [игнор отключен] [закрыт для гостей] / [PERL] размер директории / 5 сообщений из 5, страница 1 из 1
19.09.2012, 13:43
    #37963989
Владимир Г.
Владимир Г.
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
[PERL] размер директории
Как используя перл с !!!командной строки!!! получить размер директории?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.09.2012, 15:53
    #37964324
Владимир Г.
Владимир Г.
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
[PERL] размер директории
Скачал и установил Filesys-DiskUsage-0.05
теперь можно узнавать размер директории используя скрипт .pl

Код: php
1.
2.
  use Filesys::DiskUsage qw/du/;
  $total = du(qw/file1 file2 directory1/);


но при попытке запустить с командной строки метерится что
Код: plaintext
1.
Can't open perl script "qw/du/;": No such file or directory



возможно ли подключать модуль в командной строке?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.09.2012, 15:57
    #37964332
Владимир Г.
Владимир Г.
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
[PERL] размер директории
в предыдущем посте опечатка
ошибка:
Код: plaintext
1.
Can't open perl script "du(qw/C:\\Perl\\ULNOV440/)": Invalid argument


Пробую запустить такую строку:
Код: php
1.
perl du(qw/"C:\\Perl\\ULNOV440"/)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.09.2012, 20:20
    #37964703
Warstone
Warstone
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
[PERL] размер директории
Владимир Г.в предыдущем посте опечатка
ошибка:
Код: plaintext
1.
Can't open perl script "du(qw/C:\\Perl\\ULNOV440/)": Invalid argument


Пробую запустить такую строку:
Код: php
1.
perl du(qw/"C:\\Perl\\ULNOV440"/)

Вы-же на богомерзкой Венде... my @strings = `dir <PATH>` и разбирайтесь что и где...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
28.11.2013, 00:37
    #38480926
volodin661
volodin661
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
[PERL] размер директории
WarstoneВладимир Г.в предыдущем посте опечатка
ошибка:
Код: plaintext
1.
Can't open perl script "du(qw/C:\\Perl\\ULNOV440/)": Invalid argument


Пробую запустить такую строку:
Код: php
1.
perl du(qw/"C:\\Perl\\ULNOV440"/)

Вы-же на богомерзкой Венде... my @strings = `dir <PATH>` и разбирайтесь что и где...

а что уж в ней такого богомерзкого кроме коммерческой составляющей и отвратительной тех. поддержки в лице российского представительства майкрософт?


anyway решение данной проблемы одинаково для любой платформы:

Код: perl
1.
2.
3.
4.
5.
6.
use File::Find;
find(\&wanted, @directories_to_search);
sub wanted { ... }


perl -E 'use File::Find; find( sub { our $total_size += -s  }, "/opt"); say $total_size/1024/1024, "Mb"'
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / PHP, Perl, Python [игнор отключен] [закрыт для гостей] / [PERL] размер директории / 5 сообщений из 5, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]