ReSQL.ru
     
powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / PHP, Perl, Python [игнор отключен] [закрыт для гостей] / [PERL] размер директории
5 сообщений из 5, страница 1 из 1
[PERL] размер директории
    #37963989
Владимир Г.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир Г.
Участник
Как используя перл с !!!командной строки!!! получить размер директории?
...
Рейтинг: 0 / 0
19.09.2012, 13:43
| Ответить | Цитировать | Написать  
[PERL] размер директории
    #37964324
Владимир Г.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир Г.
Участник
Скачал и установил 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:53
| Ответить | Цитировать | Написать  
[PERL] размер директории
    #37964332
Владимир Г.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир Г.
Участник
в предыдущем посте опечатка
ошибка:
Код: 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, 15:57
| Ответить | Цитировать | Написать  
[PERL] размер директории
    #37964703
Фотография Warstone
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
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>` и разбирайтесь что и где...
...
Рейтинг: 0 / 0
19.09.2012, 20:20
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
[PERL] размер директории
    #38480926
Фотография volodin661
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
volodin661
Участник
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
28.11.2013, 00:37
| Ответить | Цитировать | Написать  
5 сообщений из 5, страница 1 из 1
Форумы / PHP, Perl, Python [игнор отключен] [закрыт для гостей] / [PERL] размер директории
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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