https://www.opennet.me/openforum/vsluhforumID9/8847.html В Perl совсем почти не разбираюсь, возникла срочная задача исправить работающий скрипт.<br> Прошу помочь тех кто в этом разбирается, т.к. задача тривиальная. Разбираться самому с языком уйдет много времени, а это критично. Нужно вставить кусок кода в цикл.<br>есть переменная email, есть каталоги /var/spool/imap/user/$email<br>в данном каталоге нужно выбрать все файлы по шаблону, пример 164458. (т.е. произвольное кол-во цифр и в конце точка) и посчитать их суммарный объем в байтах, поместив итоговую сумму в переменную used.<br> https://www.opennet.me/openforum/vsluhforumID9/8847.html#3 Thu, 09 Sep 2010 17:25:30 GMT &gt;а как исключить несуществующий $path ? <br>&gt;чтобы вот такого не было: <br>&gt;readdir() attempted on invalid dirhandle DIR at ./usage.pl line 56. <br><br>банально проверяйте что возвращает opendir<br>почитать можно здесь<br>perldoc -f opendir<br> https://www.opennet.me/openforum/vsluhforumID9/8847.html#2 Thu, 09 Sep 2010 09:00:28 GMT а как исключить несуществующий $path ?<br>чтобы вот такого не было:<br>readdir() attempted on invalid dirhandle DIR at ./usage.pl line 56.<br><br> https://www.opennet.me/openforum/vsluhforumID9/8847.html#1 Wed, 08 Sep 2010 09:01:52 GMT Примерно так:<br>$path = "/var/spool/imap/user";<br>opendir(DIR, $path);<br>foreach (readdir DIR) {<br> next<br> unless (/^\d+\./);<br> $total_size += (stat("$path/$_"))[7];<br>}<br>closedir DIR;<br><br>print "Total Size: $total_size\n";<br>