ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
29.05.2008, 12:04
|
|
Moderator - Level 7
Регистрация: 16.02.2008
Сообщений: 580
Провел на форуме:
1595333
Репутация:
291
|
|
Vid0k
я хотел попробовать, но не начал. лично я посоветовал бы тебе юзать gtk. а инфа наверняка есть на gtk.org
|
|
|
29.05.2008, 12:35
|
|
Познавший АНТИЧАТ
Регистрация: 27.04.2007
Сообщений: 1,044
Провел на форуме:
3660186
Репутация:
905
|
|
$p01nt
Код:
$str = 'xxx;yyy';
($poe, $poez) = split (/;/, $str);
можно и регуляркой  |
|
|
|
29.05.2008, 14:15
|
|
Участник форума
Регистрация: 19.02.2008
Сообщений: 186
Провел на форуме:
584540
Репутация:
96
|
|
krypt3r тема раскрыта не до конца ты лишь показал как разделить и занести в переменную... а если эта инфа в текстовом файле и надо все строчки поочередно заносить в эти переменные ... как поступать тогда ? |
|
|
|
29.05.2008, 14:29
|
|
Участник форума
Регистрация: 19.02.2008
Сообщений: 186
Провел на форуме:
584540
Репутация:
96
|
|
уже разобрался! Спасибо!
|
|
|
|
30.05.2008, 01:49
|
|
Участник форума
Регистрация: 08.10.2007
Сообщений: 259
Провел на форуме:
500748
Репутация:
137
|
|
Подскажите как отправить пост запрос через LWP::UserAgent с куками
|
|
|
|
30.05.2008, 02:23
|
|
Banned
Регистрация: 15.07.2007
Сообщений: 39
Провел на форуме:
1122110
Репутация:
43
|
|
Сообщение от ZET36
Подскажите как отправить пост запрос через LWP::UserAgent с куками
?
use LWP;
use HTTP::Cookies;
use strict;
my $url='www.perl.com/login';
my $ua=LWP::UserAgent->new;
my $cookie_jar=HTTP::Cookies->new;
$ua->cookie_jar($cookie_jar);
my $req=$ua->post($url,
['username' => 'ZET36',
'password' => 'justanotherperlhacker',
]);
$cookie_jar->extract_cookies($req);
|
|
|
|
30.05.2008, 03:37
|
|
Участник форума
Регистрация: 08.10.2007
Сообщений: 259
Провел на форуме:
500748
Репутация:
137
|
|
спасибо t00th но когда я пытаюсь вывести ответ то выводит
скрипт запускал со своего компа , может я что не так сделал?
Код:
use LWP;
use HTTP::Cookies;
my $url='www.win.mail.ru/cgi-bin/auth';
my $ua=LWP::UserAgent->new;
my $cookie_jar=HTTP::Cookies->new;
$ua->cookie_jar($cookie_jar);
my $req=$ua->post($url,
[Login => 'login', Domain => 'mail.ru', Password => 'pass', Mpopl => '274219236']);
$cookie_jar->extract_cookies($req);
print $req->content;
$F = <STDIN>;
и я так не понял в какую переменную нужно прописывать куки (которые я хочу отправить с запросом) а сдесь помему приведён пример чтения куков после запроса
Последний раз редактировалось ZET36; 30.05.2008 в 04:02..
|
|
|
|
30.05.2008, 04:43
|
|
Members of Antichat - Level 5
Регистрация: 04.09.2005
Сообщений: 528
Провел на форуме:
6520559
Репутация:
2947
|
|
Сообщение от ZET36
спасибо t00th но когда я пытаюсь вывести ответ то выводит
скрипт запускал со своего компа , может я что не так сделал?
Код:
use LWP;
use HTTP::Cookies;
my $url='www.win.mail.ru/cgi-bin/auth';
my $ua=LWP::UserAgent->new;
my $cookie_jar=HTTP::Cookies->new;
$ua->cookie_jar($cookie_jar);
my $req=$ua->post($url,
[Login => 'login', Domain => 'mail.ru', Password => 'pass', Mpopl => '274219236']);
$cookie_jar->extract_cookies($req);
print $req->content;
$F = <STDIN>;
и я так не понял в какую переменную нужно прописывать куки (которые я хочу отправить с запросом) а сдесь помему приведён пример чтения куков после запроса
|
|
|
|
30.05.2008, 04:39
|
|
Members of Antichat - Level 5
Регистрация: 04.09.2005
Сообщений: 528
Провел на форуме:
6520559
Репутация:
2947
|
|
Сообщение от ZET36
Подскажите как отправить пост запрос через LWP::UserAgent с куками
http://search.cpan.org/~gaas/libwww-perl-5.812/lib/HTTP/Cookies.pm
use HTTP::Cookies;
$cookie_jar = HTTP::Cookies->new(
file => "$ENV{'HOME'}/lwp_cookies.dat',
autosave => 1,
);
use LWP;
my $browser = LWP::UserAgent->new;
$browser->cookie_jar($cookie_jar);
|
|
|
|
30.05.2008, 13:54
|
|
Участник форума
Регистрация: 08.10.2007
Сообщений: 259
Провел на форуме:
500748
Репутация:
137
|
|
Сообщение от slider
http://search.cpan.org/~gaas/libwww-perl-5.812/lib/HTTP/Cookies.pm
тоесть куки которые я хочу отправить с запросом должны быть записаны в файл
Код:
file => "файл с куками.txt"
?
|
|
|
|
|
 |
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Комбинированный вид