Во всём есть исключения   

не правда, к этой строчке прилагается балончик с красной краской, а расходники нынче дорогие.
так что это не от arto зависит.

          

просто убил   

   
Поиск ip адреса в тексте

gcc, насколько я понял задачу топикстартера, речь идет не о том, чтобы найти в тексте нечто похожее на IP (это легко), а из списка IP найти битые/неживые. Последнее -- тоже несложно, но муторно. Это надо на список IP напустить что-нибудь вроде Net::Ping, но не просто так, а распаралелить (иначе будет долго). Кстати, MrD, если задача действительно такова, то в Net::Ping в качестве примера есть скрипт, который делает такой массированный пинг. Можно его взять за основу.

основа есть. но это только первый шаг    благодарю всех кому не лень и он помогает.  

я бы назвал это не помогает: а делает вместо тебя 
Впрочем это конечно же его личное дело 

ну говорю ж я нубас в этом дела!   умел б хоть чёто давно уж замутил. вот    

Э... Если речь обо мне, то я не собираюсь писать скрипт, а всего лишь дал совет.

MrD, программа, о которой я говорил выше, оказывается, отсутствует в последних версиях Net::Ping, но есть в более ранней: http://search.cpan.org/~bbb/Net-Ping-2.31/demo/fping
Посмотрите, может ее фунционалитета Вам уже хватит.

примерно так, если system возвращает 1,  при верном:

Помогите написать декодер ASN.1 ber на перле.
с использованием Convert::ASN1.

Это сообщение отредактировал(а) Cyr - 9.3.2014, 15:50

200€

могу дать 3000 руб.

btw, что такое ber? Berber language (ISO 639 alpha-3, ber)?
может der http://en.wikipedia.org/wiki/Distinguished...es#DER_encoding?

если моя догадка верна, то вот вам бесплатная подсказка:
# openssl x509 -in CERT1.pem -outform DER | perl -0777 -MConvert::ASN1=asn_dump -lne 'asn_dump($_)' 
0000  802: SEQUENCE {
0004  721:   SEQUENCE {
0008    3:     [CONTEXT 0] {
000A    1:       INTEGER = 2
000D     :     }
000D   10:     INTEGER = -1
0019    8:     SEQUENCE {
001B    6:       OBJECT ID = 1.2.643.2.2.3
0023     :     }
0023  101:     SEQUENCE {
0025   32:       SET {
0027   30:         SEQUENCE {
0029    9:           OBJECT ID = 1.2.840.113549.1.9.1
0034   17:           [UNIVERSAL 22]
0036     :             69 6E 66 6F 40 63 72 79 70 74 6F 70 72 6F 2E 72 [email protected]
0046     :             75 __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ u
0047     :         }
0047     :       }
0047   11:       SET {
0049    9:         SEQUENCE {
004B    3:           OBJECT ID = 2.5.4.6
0050    2:           [UNIVERSAL 19]
0052     :             52 55 __ __ __ __ __ __ __ __ __ __ __ __ __ __ RU
0054     :         }
0054     :       }
...