Posts Tagged ‘perl’

arp таблица по SNMP

OID — .1.3.6.1.2.1.17.7.1.2.2.1.2 Пример запроса и ответа: Пример перлятины для разбора: #!/usr/bin/perl $format = «vlan = %u mac = » . join( «:», map { «%02x» } 1 .. 6 ) . » port = %u\n»; while () { ( $oid, $port ) = split(/(?

Perl — разложить 100к файлов

Задача: разложить 115к файлов типа nameYYYYMMDD по директориям типа YYYY/MM/DD/ (фотки с камеры наблюдения). Решение: [cc lang=’perl’]#!/usr/bin/env perl # use warnings; use strict; use File::Path; use File::Copy; opendir DIR, «/home/camera» or die $!; while(my $fname = readdir DIR) { if ($fname =~ /cabinet(\d\d\d\d)(\d\d)(\d\d)/){ mkpath(«/home/camera/archive/$1/$2/$3»); move(«/home/camera/$fname» ,»/home/camera/archive/$1/$2/$3/$fname») or die $!; } } closedir DIR; [/cc] При […]

Работаем с IPv4

Периодически возникает задача отвалидировать пользовательский ввод и убедиться что там содержится валидный ipv4. Можно конечно обойтись «\d+.\d+.\d+.\d+», но тогда 999.9999.99999.999999 тоже окажется валидным что не есть хорошо. Вообще конечно правильное решение: распарсить адрес по точкам, побитово его сдвинуть и работать уже с ним. Но иногда это оверкил и нужно просто убедится что пользователь написал нам […]

Мигаем scroll lock’ом при входящем email (perl)

Переехало

Оптимизация скриптов на perl используя threads

Есть у меня скрипт, который обходит пачку серверов внешней утилитой zabbix_get, получает значения нужных ключей, складывает их и отдает ответ. И вот пришла мне в голову идея оптимизировать это дело используя нити, что бы работало все это паралельно, а не последовательно. Было: [cc lang=»perl»]sub get_value_from_Zagent(){ foreach $_ (@_){ print «DEBUG: run external command: /begun/zabbix/bin/zabbix_get -s […]

Пиши регулярку удобно.

А Вы знаете что sed, так же как и perl поддерживает не только символ «/» в своих регулярках в качестве разделителя, но и другие символы. Например [cc]ykurilkin@sup2~$ echo abcabcabc | sed ‘s#a#1#g’ 1bc1bc1bc ykurilkin@sup2~$ [/cc] или [cc]ykurilkin@sup2~$ echo abcabcabc | perl -npe ‘s|a|1|g’ 1bc1bc1bc ykurilkin@sup2~$ [/cc] Удобно если Вы хотите в регулярку пихнуть /var/www/http или […]

Subscribe to RSS Feed