ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
20.05.2008, 19:00
|
|
Участник форума
Регистрация: 19.02.2008
Сообщений: 186
Провел на форуме:
584540
Репутация:
96
|
|
где почитать про многопоточность ? в гугл не посылать )) статью на ачате видел-ничего не понял  |
|
|
21.05.2008, 01:36
|
|
Познающий
Регистрация: 25.05.2007
Сообщений: 36
Провел на форуме:
369502
Репутация:
28
|
|
Попробуй здесь посмотри http://nopox.wordpress.com/2007/10/06/multithreading-in-perl/ или http://www.realcoding.net/article/view/2130 ( конечно не в perl, но как пособие сойдёт )
|
|
|
|
22.05.2008, 20:22
|
|
Участник форума
Регистрация: 19.02.2008
Сообщений: 186
Провел на форуме:
584540
Репутация:
96
|
|
как получить страничку на которую перекинуло после посылки пост запроса (лвп)?
Пример:
#! /usr/bin/perl
use strict;
use LWP 5.64;
my $url='http://paste.org.ru/?';
my $browser=LWP::UserAgent->new;
my $response=$browser->post($url,
[ 'type'=>'1',
'code'=>'xXxXxXxXx',
]
);
как получить ссылку где был размещен текст 'xXxXxXxXx'? Типа http://paste.org.ru/?7acv51
|
|
|
|
22.05.2008, 23:59
|
|
Reservists Of Antichat - Level 6
Регистрация: 23.08.2007
Сообщений: 1,237
Провел на форуме:
18127311
Репутация:
1676
|
|
#! /usr/bin/perl -w
use strict;
use LWP 5.64;
my $url='http://paste.org.ru/?';
my $browser=LWP::UserAgent->new;
my $response=$browser->post($url,
[ 'type'=>'1',
'code'=>'7acv51',
]
);
$response = $response->as_string;
$response =~ /"(.*?)"/;
print "http://paste.org.ru$1";
|
|
|
|
24.05.2008, 19:45
|
|
Участник форума
Регистрация: 08.10.2007
Сообщений: 259
Провел на форуме:
500748
Репутация:
137
|
|
Подскажите как устанавливать дополнительные модули в перл?
Знаю что бы просто выполнить команду
perl -MCPAN -e 'install <имя модуля>' требуется компилятор C++ , у меня его нету((
и через PMM пробывал , запускаю из cmd D:\Perl\bin\ppm.bat , и как написано в инструкции должна появиться командная строка но это у меня не проихожит, появляется программа
в ней как я её не тыкал не нашол куда можно ввести команду
а командная строка из который я запускал PMM нагло молчит,
помогите пожайлусто
Последний раз редактировалось ZET36; 24.05.2008 в 19:51..
|
|
|
|
24.05.2008, 19:54
|
|
Leaders of Antichat - Level 4
Регистрация: 16.01.2006
Сообщений: 1,966
Провел на форуме:
21768337
Репутация:
3486
|
|
Зачем команда, ето гуи. Скачиваешь необходимые либы себе, обзором их находишь и ставишь.
|
|
|
|
24.05.2008, 20:47
|
|
Участник форума
Регистрация: 08.10.2007
Сообщений: 259
Провел на форуме:
500748
Репутация:
137
|
|
Спасибо , тогда ещё один вопрос если можно, хочу организовать отправку письма
Код:
use Log::Dispatch::Email::MailSender;
my $email =
Log::Dispatch::Email::MailSender->new
( name => 'email',
min_level => 'emerg',
to => [ qw( foo@bar.com bar@baz.org ) ],
subject => 'Oh no!!!!!!!!!!!',
smtp => 'mail.foo.bar' );
$email->log( message => 'Something bad is happening', level => 'emerg' );
как я понял для этого нужно установить модуль Log
http://search.cpan.org/~drolsky/Log-Dispatch-2.21/lib/Log/Dispatch/Email/MailSender.pm
Последний раз редактировалось ZET36; 24.05.2008 в 22:50..
|
|
|
|
24.05.2008, 21:03
|
|
Постоянный
Регистрация: 06.06.2006
Сообщений: 515
Провел на форуме:
1985206
Репутация:
963
|
|
Сообщение от .Slip
Зачем команда, ето гуи. Скачиваешь необходимые либы себе, обзором их находишь и ставишь.
совсем глупый чтоле =\
|
|
|
|
24.05.2008, 22:25
|
|
Участник форума
Регистрация: 08.10.2007
Сообщений: 259
Провел на форуме:
500748
Репутация:
137
|
|
Всё разобрался с установкой в Gui , установил модуль MailSender но всёравно скрипт выдаёт ошибку. подскажите пожайлусто, какие модули нужны для отправки письма
|
|
|
|
25.05.2008, 12:59
|
|
Reservists Of Antichat - Level 6
Регистрация: 23.08.2007
Сообщений: 1,237
Провел на форуме:
18127311
Репутация:
1676
|
|
Попробуй так:
Код:
use Net::SMTP;
$smtp = Net::SMTP->new('smtp.mtu-net.ru');
$smtp->mail( 'billgates@microsoft.com' );
$smtp->to('stevejobs@apple.com');
$smtp->data();
$smtp->datasend('To: stevejobs@apple.com\n');
$smtp->datasend('From: billgates@microsoft.com\n');
$smtp->datasend("\n");
$smtp->datasend("Microsoft\n");
$smtp->dataend();
$smtp->quit;
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Линейный вид
