Как с помощью Perl записать в файл результаты вывода shell-команды du?

print AAA `du -b | sed '$d'`;

Блин.. Не работает. В файле, который создается, есть результат выполнения du -b, но sed '$d' не выполняется.

> '$d'

Нужно убрать кавычки.

Омг, при таком выполнении он мне написал справку по sed'у. Убиться.. Ладно, пойдем другим путем. Как считать из файла все строки, кроме последней?

open (PASS, «< text.txt»);

while (<PASS>) {

print;

}

Это считывает все строки; а как забить на последнюю и не писать её?

чкт, считай все строки в массив строк и удали последний элемент. Или хочешь чтобы перл как-то случайно угадал где начинается последняя строка не читая её?