ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
 |
|
04.04.2008, 20:02
|
|
Banned
Регистрация: 11.08.2006
Сообщений: 1,522
Провел на форуме:
5128756
Репутация:
2032
|
|
походу с перезаписью кук проблема.
my $cookies = HTTP::Cookies->new();
$ua->cookie_jar($cookies);
ящики по очереди парсятся. значит в конце цикла надо $cookies->clear; ?
|
|
|
04.04.2008, 20:15
|
|
Познавший АНТИЧАТ
Регистрация: 23.08.2007
Сообщений: 1,237
Провел на форуме:
18127311
Репутация:
1676
|
|
Можешь сlear, можешь файл удалять, как угодно.
|
|
|
|
06.04.2008, 12:16
|
|
Участник форума
Регистрация: 08.10.2007
Сообщений: 259
Провел на форуме:
500748
Репутация:
137
|
|
неподскажите есть ли в перле возможность работы с ресурсами библиотек.
ну например в джаваскрипте что бы показать картинку pagerror.gif хранящуюся в библиотеке shdoclc.dll оформлять путь к ней нужно так
res://C:\WINDOWS\system32\shdoclc.dll/pagerror.gif
дайте пожайлуста чтонибудь почитать об функциях работы с ресурсами в перле
|
|
|
|
07.04.2008, 09:35
|
|
Постоянный
Регистрация: 03.08.2007
Сообщений: 367
Провел на форуме:
876216
Репутация:
209
|
|
Хм...ИМХО, скорее всего это реализовано в модулях Win32::*, глянь на CPAN'е
Глянь модуль Win32::Exe, http://search.cpan.org/~smueller/Win32-Exe-0.11/lib/Win32/Exe.pm
Может оно тебе надо? Вроде умеет работать с ресурсами(иконки точно), с exe-файлами, дллки - те же PE, может подцепит, я хз, не сталкивался =)
Последний раз редактировалось biophreak; 07.04.2008 в 09:39..
|
|
|
|
07.04.2008, 14:47
|
|
Участник форума
Регистрация: 08.10.2007
Сообщений: 259
Провел на форуме:
500748
Репутация:
137
|
|
biophreak спасибо то что нужно
|
|
|
|
13.04.2008, 11:32
|
|
Участник форума
Регистрация: 19.02.2008
Сообщений: 186
Провел на форуме:
584540
Репутация:
96
|
|
опять начал постигать перл ) появился такой вопрос . как из текста :
fsafsdtwret4wtg gwevdsgreww sid=q243W fsdfdewrtgdoprewtgdfhrrreg fsddfgb
выдернуть sid=q243W ?
|
|
|
|
13.04.2008, 11:40
|
|
Members of Antichat - Level 5
Регистрация: 24.10.2007
Сообщений: 256
Провел на форуме:
6905523
Репутация:
1174
|
|
Сообщение от $p01nt
опять начал постигать перл ) появился такой вопрос . как из текста :
fsafsdtwret4wtg gwevdsgreww sid=q243W fsdfdewrtgdoprewtgdfhrrreg fsddfgb
выдернуть sid=q243W ?
Код:
$s='fsafsdtwret4wtg gwevdsgreww sid=q243W fsdfdewrtgdoprewtgdfhrrreg fsddfgb';
if($s=~/(sid=\w{5})/) {print $1}
|
|
|
|
13.04.2008, 11:41
|
|
Участник форума
Регистрация: 19.02.2008
Сообщений: 186
Провел на форуме:
584540
Репутация:
96
|
|
а если кол-во символов рандомное ?
|
|
|
|
13.04.2008, 11:44
|
|
Members of Antichat - Level 5
Регистрация: 24.10.2007
Сообщений: 256
Провел на форуме:
6905523
Репутация:
1174
|
|
Сообщение от $p01nt
а если кол-во символов рандомное ?
Код:
$s='fsafsdtwret4wtg gwevdsgreww sid=q243W fsdfdewrtgdoprewtgdfhrrreg fsddfgb';
if($s=~/(sid=\w{1,})/) {print $1}
|
|
|
|
13.04.2008, 11:50
|
|
Участник форума
Регистрация: 19.02.2008
Сообщений: 186
Провел на форуме:
584540
Репутация:
96
|
|
хмм... почему когда я использую :
$inpoisk='fsafsdtwret4wtg gwevdsgreww sid=q243D wasfsdarwfv';
$inpoisk=~/(sid=\w{1,})/;
print $inpoisk;
у меня выводит fsafsdtwret4wtg gwevdsgreww sid=q243D wasfsdarwfv ?
Последний раз редактировалось $p01nt; 13.04.2008 в 11:54..
|
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
