[Perl] Новичкам: задаем вопросы

где почитать про многопоточность ? в гугл не посылать )) статью на ачате видел-ничего не понял

 

Попробуй здесь посмотри http://nopox.wordpress.com/2007/10/06/multithreading-in-perl/ или http://www.realcoding.net/article/view/2130 ( конечно не в perl, но как пособие сойдёт )

 

как получить страничку на которую перекинуло после посылки пост запроса (лвп)?

Пример:

#! /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

 

#! /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";

 

Подскажите как устанавливать дополнительные модули в перл?
Знаю что бы просто выполнить команду
perl -MCPAN -e 'install <имя модуля>' требуется компилятор C++ , у меня его нету((
и через PMM пробывал , запускаю из cmd D:\Perl\bin\ppm.bat , и как написано в инструкции должна появиться командная строка но это у меня не проихожит, появляется программа

в ней как я её не тыкал не нашол куда можно ввести команду
а командная строка из который я запускал PMM нагло молчит,

помогите пожайлусто

 

Зачем команда, ето гуи. Скачиваешь необходимые либы себе, обзором их находишь и ставишь.

 

Спасибо , тогда ещё один вопрос если можно, хочу организовать отправку письма

Code:

  use Log::Dispatch::Email::MailSender;

  my $email =
      Log::Dispatch::Email::MailSender->new
          ( name => 'email',
            min_level => 'emerg',
            to => [ qw( [email protected] [email protected] ) ],
            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

 

совсем глупый чтоле =\

 

Всё разобрался с установкой в Gui , установил модуль MailSender но всёравно скрипт выдаёт ошибку. подскажите пожайлусто, какие модули нужны для отправки письма

 

Попробуй так:

Code:

use Net::SMTP;

$smtp = Net::SMTP->new('smtp.mtu-net.ru');
$smtp->mail( '[email protected]' ); 
$smtp->to('[email protected]');
$smtp->data(); 
$smtp->datasend('To: [email protected]\n');
$smtp->datasend('From: [email protected]\n');
$smtp->datasend("\n");
$smtp->datasend("Microsoft\n");
$smtp->dataend();               
$smtp->quit; 

 

Вылазиет ошибка

Вроде модуль Net::SMTP установлен (устанавливал через Gui интерфейс) решил если не установился инсталить через командную строку (ppm-shell.bat)

вот её ответ

что я не так делаю

потом решил устанавливать через cpan шелл

и опять эта ошибка при запуске скрипта

хы странно а сейчас никакой ошибки нет при запуске скрипт подумает секунды 2 и успешно закрывается но письма на [email protected] неприходит может я не так отредактировал исходник?

Code:

use Net::SMTP;

$smtp = Net::SMTP->new('smtp.mail.ru');
$smtp->mail('[email protected]'); 
$smtp->to('[email protected]');
$smtp->data(); 
$smtp->datasend('To: [email protected]');
$smtp->datasend('From: [email protected]');
$smtp->datasend("\n");
$smtp->datasend("Microsoft\n");
$smtp->dataend();               
$smtp->quit; 
  

помогите пожайлусто , кто решит мою беду тому на протяжении недели каждый день буду ставить по +Max

 

Включи дебажный режим и посмотри, что рисует скрипт

Code:

$smtp = Net::SMTP->new('smtp.mail.ru', Timeout => 30, Debug => 1);

Скорее всего, тебе выдастся

PS. Рабочий код

Code:

#!/usr/bin/perl -w

use Net::SMTP;

$smtp = Net::SMTP->new (
  Host => 'smtp.mail.ru',
  Timeout => 30,
  Debug => 1
);
$smtp->auth('sde', 'PASSWORD');
$smtp->mail('[email protected]');
$smtp->to('[email protected]');
$smtp->data();
$smtp->datasend("To: maskit7\@mail.ru\n");
$smtp->datasend ("Subject: Test Subject");
$smtp->datasend("\n");
$smtp->datasend("A simple test message\n");
$smtp->dataend();
$smtp->quit;

Для авторизации требуются модули Mime::Base64 и Authen::SASL

 

krypt3r огромное спасибо выручил. с меня как я и обещал, а что бы отправить емайл с чужого мыла, нужно создавать свой smtp сервер?

 

посоветуйте GUI библиотеку под Perl незнаю какую выбрать
Perl Tk
Tkx
Gtk
Gtk2
Qt
кто нить пробывал писать гуи на перл а то инфы вообще мало
будет круто если еще и книжку подскажете

 

допустим в файле xxx лежит такой текст :

xxx;yyy
zzz;ooo
ppp;ccc

как мне в переменную $poe загнать текст xxx а в переменную $poez yyy ? и как потом их очистить и загнать текст из другой строки ?

 

Vid0k

я хотел попробовать, но не начал. лично я посоветовал бы тебе юзать gtk. а инфа наверняка есть на gtk.org

 

$p01nt

Code:

$str = 'xxx;yyy';
($poe, $poez) = split (/;/, $str);

можно и регуляркой

 

krypt3r тема раскрыта не до конца ты лишь показал как разделить и занести в переменную... а если эта инфа в текстовом файле и надо все строчки поочередно заносить в эти переменные ... как поступать тогда ?

 

уже разобрался! Спасибо!

 

Подскажите как отправить пост запрос через LWP::UserAgent с куками