Пара полезных перловых модулей.
Среда, 10.02.2010NetAddr::IP – Это первый. Различные операции над ип адресами. Лично мне нужно было найти входит ли ип в определенную сеть. Тут это делается очень просто….
use NetAddr::IP;
$some = NetAddr::IP::Lite->new('192.168.1.0/24'); - Сеть
$some1 = NetAddr::IP::Lite->new('192.168.1.1'); - Первый ип
$some2 = NetAddr::IP::Lite->new('192.168.2.1'); - Второй ип
print $some->contains($some1) ; - True или False. В данном случае ТРУ.
print "\n";
print $some->contains($some2) ; True или False. В данном случае ФОЛС.
print "\n";
Еще он умеет по всякому выводить ип адрес. Об этом и многом другом тут.
Mail::Box – Второй полезный модуль. Задача обработать почту в unix mail box (/var/mail/….).
use Mail::Box;
use Mail::Box::Manager;
my $mailfile="/var/mail/sms"; # файлик для работы
my $mgr = Mail::Box::Manager->new;
my $folder = $mgr->open($mailfile, type => 'Mail::Box::Mbox', access => 'rw');
foreach my $msg ($folder->messages) { # читаем подряд все сообщения.
my $subject = $msg->subject; # Тема
my $body = $msg->decoded; # Тело
my $rec = $msg->get('Received'); # Вот так вытаскивается любой произвольный заголовок.
$msg->delete; # удаляем сообщение.
}
На сам деле делать он умеет очень много. IMAP, POP3 и т.д. Смотреть тут