Организация приема SNMP trap’ов Perl скриптом

[Podedinov]

Задача обрабатывать трапы perl скриптом, в интернете нашел только скрипт на PHP:

Код: Выделить всё

#!/usr/bin/php -q
<?php
$message = "";
$fd = fopen("php://stdin", "r");
while (!feof($fd)) $message .= fread($fd, 1024);
?>

Может кто-нибудь поможет его переделать в Perl.

[Хостинг HostFood.ru]

Тарифы на хостинг в России, от 12 рублей: https://www.host-food.ru/tariffs/hosting/
Тарифы на виртуальные сервера (VPS/VDS/KVM) в РФ, от 189 руб.: https://www.host-food.ru/tariffs/virtualny-server-vps/
Выделенные сервера, Россия, Москва, от 2000 рублей (HP Proliant G5, Intel Xeon E5430 (2.66GHz, Quad-Core, 12Mb), 8Gb RAM, 2x300Gb SAS HDD, P400i, 512Mb, BBU):
https://www.host-food.ru/tariffs/vydelennyi-server-ds/
Недорогие домены в популярных зонах: https://www.host-food.ru/domains/

[thefree]

http://perl.worldken.org/

[ProFTP]

Может кто-нибудь поможет его переделать в Perl.

вопрос не понятен...
что такое trap’ы?
чем не устроил php?

[thefree]

Может кто-нибудь поможет его переделать в Perl.

вопрос не понятен...
что такое trap’ы?
чем не устроил php?

https://encrypted.google.com/search?hl=ru&q=snmp+trap