ANTICHAT.XYZ    VIDEO.ANTICHAT.XYZ    НОВЫЕ СООБЩЕНИЯ    ФОРУМ  
Баннер 1   Баннер 2

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

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
Вернуться   Форум АНТИЧАТ > Программирование_OLD > PHP, PERL, MySQL, JavaScript
Перезагрузить страницу [Perl] Новичкам: задаем вопросы
   
 
Страница 40 из 156 « Первая < 30 36 37 38 39 40 41 42 43 44 5090140 > Последняя »
 
Опции темы Поиск в этой теме Опции просмотра

  #391  
Старый 04.04.2008, 20:02
Piflit
Banned
Регистрация: 11.08.2006
Сообщений: 1,522
Провел на форуме:
5128756

Репутация: 2032


Отправить сообщение для Piflit с помощью ICQ
По умолчанию
походу с перезаписью кук проблема.
my $cookies = HTTP::Cookies->new();
$ua->cookie_jar($cookies);

ящики по очереди парсятся. значит в конце цикла надо $cookies->clear; ?
 

  #392  
Старый 04.04.2008, 20:15
Kaimi
Reservists Of Antichat - Level 6
Регистрация: 23.08.2007
Сообщений: 1,237
Провел на форуме:
18127311

Репутация: 1676


Отправить сообщение для Kaimi с помощью ICQ
По умолчанию
Можешь сlear, можешь файл удалять, как угодно.
 

  #393  
Старый 06.04.2008, 12:16
ZET36
Участник форума
Регистрация: 08.10.2007
Сообщений: 259
Провел на форуме:
500748

Репутация: 137
По умолчанию
неподскажите есть ли в перле возможность работы с ресурсами библиотек.
ну например в джаваскрипте что бы показать картинку pagerror.gif хранящуюся в библиотеке shdoclc.dll оформлять путь к ней нужно так
res://C:\WINDOWS\system32\shdoclc.dll/pagerror.gif

дайте пожайлуста чтонибудь почитать об функциях работы с ресурсами в перле
 

  #394  
Старый 07.04.2008, 09:35
biophreak
Постоянный
Регистрация: 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..
 

  #395  
Старый 07.04.2008, 14:47
ZET36
Участник форума
Регистрация: 08.10.2007
Сообщений: 259
Провел на форуме:
500748

Репутация: 137
По умолчанию
biophreak спасибо то что нужно
 

  #396  
Старый 13.04.2008, 11:32
$p01nt
Участник форума
Регистрация: 19.02.2008
Сообщений: 186
Провел на форуме:
584540

Репутация: 96
По умолчанию
опять начал постигать перл ) появился такой вопрос . как из текста :

fsafsdtwret4wtg gwevdsgreww sid=q243W fsdfdewrtgdoprewtgdfhrrreg fsddfgb

выдернуть sid=q243W ?
 

  #397  
Старый 13.04.2008, 11:40
ZAMUT
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}
 

  #398  
Старый 13.04.2008, 11:41
$p01nt
Участник форума
Регистрация: 19.02.2008
Сообщений: 186
Провел на форуме:
584540

Репутация: 96
По умолчанию
а если кол-во символов рандомное ?
 

  #399  
Старый 13.04.2008, 11:44
ZAMUT
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}
 

  #400  
Старый 13.04.2008, 11:50
$p01nt
Участник форума
Регистрация: 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..
 
 
Страница 40 из 156 « Первая < 30 36 37 38 39 40 41 42 43 44 5090140 > Последняя »



« Предыдущая тема | Следующая тема »


Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 


Быстрый переход




ANTICHAT.XYZ