помогите пожалуйста «сконвертировать» строчку из bash в perl -код

perl -e «$p = `free -k | grep „buffers/cache“ | awk {'print $4'}`; print $p»

perl -E'say((split(/\s+/,(`free -k`)[2]))[3])'

это сообщение выводит на экран нужную цифру, а как эту строчку в *.pl скрипт запихнуть?

my $number = (split(/\s+/,(`free -k`)[2]))[3];

Но зачем?

http://search.cpan.org/~bloonix/Sys-Statistics-Linux-0.66/lib/Sys/Statistics/...

спасибо, заработало

мониторинг nagios в своем скрипте (*.pl) использует именно /proc/meminfo. оттуда он узнает, что свободной оперативы у меня 2% осталось и шлет алерты. однако эта оперативная память занята кешем диска, и по факту свободна, а значит у меня все впорядке и алерты слать не надо. я хочу в перл скрипт запихнуть считывание реально свободной оперативки. и не надо давать мне такие ссылки, я на баше то с грехом пополам могу кодить=)

Если он действительно так делает, нужно писать багрепорт, а не тред на лоре.

ну багрепорт багрепортом, а мне нужно решить проблему. я знаю как. осталось только скрипт подправить, спросил людей как написать то что мне надо на перле, люди добрые подсказали, проблема решена. а скрипты в нагиос пишут открытые, не связанные с разрабами, так что писать особо некуда =) и потом вдруг автор скрипта так задумал, ведь по факту он все правильно считывает из /proc/meminfo