Как я могу отслеживать предупреждения о ловушках в Perl? - PullRequest
Новая
       2

Как я могу отслеживать предупреждения о ловушках в Perl?

0 голосов
/ 19 апреля 2010

Какой самый простой код в Perl для отслеживания ловушек от любых устройств, таких как ИБП, выпрямитель, AirCond и т. Д. Например, мы хотим контролировать температуру, влажность серверного помещения, второй уровень и т. Д. В каждом устройстве, например ИБП, есть SNMP карта внутри, а затем мы производим IP-адрес сервера-ловушки. В настоящее время я использую открытое программное обеспечение snmptt.

1 Ответ

10 голосов
/ 19 апреля 2010

Избавиться от мышей в машинном зале может быть очень сложно. Они могут вызвать серьезные трудности, если вам не удастся использовать кабель, который они считают привлекательным для грызть.

Лично я не стал бы ставить ловушки непосредственно на мои маршрутизаторы или другое оборудование, но размещение ловушек - это искусство, и мыши не будут уважать наши идеи правильности. При срабатывании мыши ловушки могут быть грязными, поэтому вам может понадобиться положить газету под ловушками, чтобы они могли содержать беспорядок. Конечно, вам необходимо обеспечить хороший поток воздуха в вашем оборудовании, чтобы избежать перегрева.

  1. Сборка небольшой печатной платы с чувствительным к давлению переключателем, микроконтроллером, батареей и модулем Ethernet.
  2. Написание программного обеспечения для мониторинга состояния коммутатора и предоставления веб-интерфейса для микроустройства с использованием одного из множества встроенных стеков TCP / IP и HTTP, доступных для небольших проектов.
  3. Установите плату на ловушку так, чтобы ее челюсти давили на выключатель, когда он замкнут.
  4. Установите для каждой платы статический IP-адрес и настройте веб-сервер для отображения статуса прерывания на главной странице.
  5. Теперь вы можете использовать LWP :: Simple для отслеживания ловушки.

Пример Perl-кода: 

use strict;
use warnings;

use LWP::Simple;

my @hosts = @_;

while(1) {

    for my $host ( @hosts ) {

        my $content = get( "http://$host" );
        print "Host $host caught a mouse!\n" if $content =~ "TRAP CLOSED";

    }

    sleep 60;
}

Конечно, это решение предполагает, что вы используете ловушку с челюстями и ловите мышей. Различные типы ловушек, такие как клеевые ловушки, потребуют другого датчика на вашей печатной плате. В другом карьере потребуется только изменить код Perl.

Если это не тот ответ, который вы искали, пожалуйста, опишите подробно, что вы пытаетесь сделать, сообщите нам, какие инструменты вы пробовали, и любые другие факторы или ограничения, с которыми вы работаете.

Если вы не уверены, какие библиотеки доступны и не смогли начать работу, хотя бы сообщите нам, какие протоколы вы планируете использовать.

...