Wednesday, 18 July 2012
Преобразование IP адреса в целое число на Perl
Вариант 1 - готовый модуль:
perl -MNet::IP -e '$ip = new Net::IP("192.168.1.1"); print $ip->intip();'Вариант 2 - использование короткой функции:
3232235777
perl -e '$ip = "192.168.1.1"; print unpack("N",pack("C4",split(/\./,$ip)))'Источник: http://cpansearch.perl.org/src/SARENNER/Net-IPAddress-1.10/IPAddress.pm
3232235777
Как найти определенную сетевую карту на Linux сервере?
В случае использования большого числа карт, поиск нужного порта превращается в ад, но есть чудесный флаг у утилиты ethtool, который позволяет поморгать лампочками на заданной карте:
-p --identify
Initiates adapter-specific action intended to enable an operator to easily identify the adapter by sight. Typically this involves blinking one or more LEDs on the specific ethernet port.
Thursday, 12 July 2012
Как узнать настоящий MAC сетевой карты при использовании bonding в Linux?
Только вот так:
cat /proc/net/bonding/bond0
Sunday, 1 July 2012
Исполнение CGI приложений на lighttpd на Debian 6 Squeeze
Очень часто встает необходимость снабдить небольшой скрипт на Perl, но тащить ради этого Apache крайне не хочется, тут нам на помощь приходит легкий lighttpd, который умеет запускать CGI приложения.
Устанавливаем:
apt-get install -y lighttpd lighttpd-docВключаем CGI модуль:
lighttpd-enable-mod cgiПрименяем изменения:
/etc/init.d/lighttpd restartСоздаем папку для CGI приложений:
mkdir /var/www/cgi-binСоздаем тестовое CGI приложение на Perl:
vim /var/www/cgi-bin/test.plКод:
#!/usr/bin/perlВыставляем exec флаг:
use strict;
use warnings;
print "Content-type: text/html\n\n";
print "Hello, World!";
chmod +x /var/www/cgi-bin/test.plЗапускаем через браузер: http://x.x.x.x/cgi-bin/test.pl
Subscribe to:
Posts
(
Atom
)