ANTICHAT — форум по информационной безопасности, OSINT и технологиям

Так не работает. А во вторых File2 достаточно большого объема в среднем около 40-60 мб. Мне кажется засовывать такой файл в массив будет опрометчиво (ИМХО).
Я делал вот так :
Но опять же поиск в file2 почему то шел только по нулевому значению @array. Остальные читались но по ним поиск не шел. Я хз в чем дело. ХЕЛП !!!

P.S. Ищет то оно у меня правильно . Именно так как надо ! Но почему только по первому значению массива ??? Почему следующие значения во второй цикл не подставляет ?

while (/$string/g) {...}

?

__________________
God forgive me for I have sinned
It’s been six months since my last confession
There is nowhere that I can run to
My soul I place in your hands

сорри но не представляю как это можно использовать в данном случае.

З.Ы. Я вообще не могу понять почему во втором цикле не выполняется следующая строка файла с шаблонами. Народ подскажите хотя бы в какую сторону копать. Что это может быть ?Если Print сделать первого файла то выводит полностью все шаблоны. А вот какого то не пихается во второй цикл вторая и ниже строки. Я хз.


З.Ы З.Ы З.Ы

Всем спасибо. Разобрался почему не работал должным образом скрипт. Все дело в неправильном (несвоевременном ) закрытии file2(должен закрываться внутри первого цикла.Как впрочем и открываться).

[dei] -> если
ppm> install "IO::Socket::SSL"
Error: No valid repositories:
Error: 500 Can't connect to ppm.ActiveState.com:80 (Bad hostname 'ppm.ActiveState.com')
Error: 500 Can't connect to ppm.ActiveState.com:80 (Bad hostname 'ppm.ActiveState.com')
а если :
....\IO-Socket-SSL-1.18>perl Makefile.PL
то пишет:
WARNING No library for handling international domain names found.
It will work but croak if you try to verify an international name against
a certificate.It's recommended to install either Net::IDN::Encode or Net::LibIDN
Warning: prerequisite Net::SSLeay 1.21 not found.
Writing Makefile for IO::Socket::SSL
или
.........\IO-Socket-INET6-2.56>perl Makefile.PL
Warning: prerequisite Socket6 0.12 not found.
Writing Makefile for IO::Socket::INET6
короче чем глубже , в лес тем толще партизаны(((
помогите !! может где есть перл уже со всеми либами или выложите кто нить свой ....
джентельменский набор ))) заранее благодарен

DarkMist, с офф сайта скачат послед. версию
потом:
пуск - виполнить - cmd - ppm
и там напиши: IO
вибери модуль Socket::SSL и установи..

Да я вообще не понимаю в чем проблема? пользуйся cpan да и все. Там есть все что нужно и даже больше. Для ppm еще репозитории искать нужно , а в cpan все есть.

Здравствуйте народ. В очередной раз обращаюсь к вам за помощью.

Такой вопрос : Есть текстовый файл (большого объема) в текстовом файле скрипт находит по шаблону определенное слово и выводит строку с этим словом.
Внимание вопрос !

Как сделать так что бы вместо одной строки скрипт выводил тестовый блок в котором присутствует эта строка ?

Например: есть шаблон dddddd
В текстовом файле есть блок с таким текстом



Задача вывести вот этот блок :
Прошу ответить на мой пост.
P.S. Не против за дельный совет дать чуток вмз.

constanta, чтобы сделать что-то подобное, нужно сначала определиться, каким образом выделяются блоки текста, в которых надо найти слово по шаблону.(будет ли это перенос строки, тег или какой-то спецсимвол).
Затем все просто:
1) ищешь начало и конец блока текста (первого или очередного), выделяешь=запоминаешь его.
2) в выделенном блоке ищешь слово по шаблону, если нашел выводишь блок.
3) переходишь к 1-му пункту.

Если есть вопросы, пиши.
Если проблемы с выделением блока текста, давай пример текста, поможем.

скажите плз для версии IPB в сплоите "exploit" написанно это ,как это расшифровать или понять что это
$pass_hash1 = "%*36%*36%*36%2527%20%*4F%*52%20%28%*69%*64%3D ";
$pass_hash2 = "%20%*41%*4E%*44%20%*61%*73%*63%*69%*69%28%*73%*75 %*62%*73%*74%*72%*69%*6E%*67%28";
$pass_hash3 = $pass.",".$s_num.",1))".$ccheck.") /*";

вообщем как пишутся такие хеши на перле...