ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.

11.03.2009, 23:24
|
|
Участник форума
Регистрация: 19.02.2008
Сообщений: 186
Провел на форуме: 584540
Репутация:
96
|
|
Нужно обусифицировать perl код, есть ли обусификаторы уже готовые или может быть есть статьи на русском по этой теме?
|
|
|

11.03.2009, 23:29
|
|
Новичок
Регистрация: 24.01.2007
Сообщений: 18
Провел на форуме: 103494
Репутация:
9
|
|
http://team-madalf.com/index.php?showtopic=59013
http://www.xakep.ru/post/37614/default.asp
http://event.perlrussia.ru/yr2008/talk/1285
А вобще лудше "компилить"....
|
|
|

12.03.2009, 00:37
|
|
Участник форума
Регистрация: 19.02.2008
Сообщений: 186
Провел на форуме: 584540
Репутация:
96
|
|
А есть ли возможность "скомпилить" perl скрипт который использует модули
LWP::UserAgent;
HTTP::Cookies;
strict;
locale;
threads;
threads::shared;
и если да, куда рыть?
|
|
|

12.03.2009, 00:51
|
|
Познающий
Регистрация: 14.01.2009
Сообщений: 93
Провел на форуме: 244235
Репутация:
39
|
|
$p01nt, если надо спрятать сорцы, нормального способа для перла нету
1. Heretic!
2. Use Acme::Bleach
3. There's perl2exe
perl2exe isn't secure you ignorant wanker!
yes it is
No it isn't
Well, that's not what it's for anyway
4. B:  eparse will defeat any attempt at hiding source!
пруфлинк http://www.perlmonks.org/?node_id=247543
|
|
|

13.03.2009, 01:03
|
|
Новичок
Регистрация: 04.11.2008
Сообщений: 3
Провел на форуме: 15054
Репутация:
0
|
|
Возникает проблема с gmail imap , когда надо обработать больше одного мыла в цикле.
Ктонить сталкивался с данной проблемой?
|
|
|

13.03.2009, 09:55
|
|
Участник форума
Регистрация: 05.11.2008
Сообщений: 105
Провел на форуме: 292722
Репутация:
71
|
|
azgard, КОД в студию!
|
|
|

14.03.2009, 14:17
|
|
Участник форума
Регистрация: 05.11.2008
Сообщений: 105
Провел на форуме: 292722
Репутация:
71
|
|
Сообщение от Chaak
Что делает эта регулярка?
s/(\$\w+)/$1/eeg
Сообщение от m0nzt3r
Вырезает из текста все слова, начинающиеся на $
/g, если не ошибаюсь, означает замену по всему тексту, то есть не один раз. А /e не знаю
Вот цитата из статьи "Регулярные выражения в Perl".
В perl имеется несколько модификаторов, используемых с командами m/.../ и s/.../.../: * i - игнорирует различие между заглавными и строчными буквами. * s - метасимволу "точка" разрешено соответствовать символам \n. * m - разрешает метасимволам ^ и $ привязываться к промежуточным символам \n, имеющимся в тексте. Не влияет на работу метасимволов \А, \Z и \z. * х - игнорирует "пробельные символы" в шаблоне (имеются в виду "истинные" пробелы, а не метасимволы \s и пробелы, созданные через escape-последовательности). Разрешает использовать внутри шаблона комментарии. * g - выполняет глобальный поиск и глобальную замену. * с - после того как в скалярном контексте при поиске с модификатором g не удалось найти очередное совпадение, не позволяет сбрасывать текущую позицию поиска. Работает только для команды m/.../ и только вместе с модификатором g. * о - запрещает повторную компиляцию шаблона при каждом обращении к данному оператору поиска или замены, пользователь, однако, должен гарантировать, что шаблон не меняется между вызовами данного фрагмента кода. * е - показывает, что правый аргумент команды s/.../.../ - это фрагменты выполняемого кода. В качестве текста для подстановки будет использовано возвращаемое значение - возможно, после процесса интерполяции. * ee - показывает, что правый аргумент команды s/.../.../ - это строковое выражение, которое надо вычислить и выполнить как фрагмент кода (через функцию eval). В качестве текста для подстановки используется возвращаемое значение - возможно, после процесса интерполяции
s/(\$\w+)/$1/eeg
В первой части этого выражения идет поиск скаляра, вычисляется его значение, и во второй части значение скаляра подставляется вместо самого скаляра.
Последний раз редактировалось demond; 14.03.2009 в 14:19..
|
|
|

14.03.2009, 17:41
|
|
Новичок
Регистрация: 24.01.2007
Сообщений: 18
Провел на форуме: 103494
Репутация:
9
|
|
$p01nt "threads::shared" не компилится или у меня руки кривые....А остальное ок вроди...
|
|
|

24.03.2009, 13:59
|
|
Постоянный
Регистрация: 11.03.2008
Сообщений: 347
Провел на форуме: 2075230
Репутация:
462
|
|
Код:
if ($get->content =~ /<a href=\"(.*)\">/)
{
print "$1\n";
}
выводит только первую найденную. как вывести все найденные?
|
|
|

24.03.2009, 14:05
|
|
Постоянный
Регистрация: 16.04.2008
Сообщений: 889
Провел на форуме: 12942062
Репутация:
1550
|
|
Сообщение от ph1l1ster
Код:
if ($get->content =~ /<a href=\"(.*)\">/)
{
print "$1\n";
}
выводит только первую найденную. как вывести все найденные?
PHP код:
preg_match_all('/<a href="(.*?)">/', $get->content, $out);
for ($i=0; $i<count($out[1]); $i++)
echo $out[1][$i]."\n";
Должно работат =)
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|