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

не проще ли просто авторизоваться и спарсить баланс ?

 

Всем привет, помогите пожалуйста ,какой модуль можно-нужно использовать что бы получит звуковую волну ( audio wave) для звукового файла.

 

del...

 

ты не обижайся конечно, но это просто страшный быдло -код..

как ты вообще узнаешь залогинился твой скрипт или нет ? правильно никак...

 

Щас попробывал зайти не залогиневшись
http://www.oooooo.com/messages?r1=pl47&compose=1
<input type="hidden" name="authcode" value="" id="authcode"
Валуе не залогиневшись пустое. Не логинится короче
Щас попробывал так:
Сохраняет ошибку:500 Can't locate object method "new" via package "LWP:rotocol::https::Socket"

PHP:

#!/usr/bin/perl   
use LWP::UserAgent;
use HTTP::Cookies;
my $ua = LWP::UserAgent->new;
$ua->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; en; rv:1.9.0.19) Gecko/2010031422 Firefox/3.0.19");
my $cookie = HTTP::Cookies->new();
$ua->cookie_jar($cookie);
my $Username = 'alo'; 
my $pass = 'log2';
my $aut = $ua->post('https://www.oooooo.com/login',
[ 'username' =>$Username, 
                                              'p' =>'', 
                                              'dest' =>'%2Fhome', 
                                              'password' =>$pass])->code;

$ex = $ua->get('http://www.www.oooooo.com')->content();                                                
open(OUT, '> result.htm');
print OUT "$ex\n";
close(OUT);


 

попробуй так.

PHP:

 #!/usr/bin/perl 

use LWP::UserAgent; 
use HTTP::Cookies;
 
print "-----------------------------------------\n"; 
print "Proga by alim, version 1.0"; 
print "----------------------------------------------------------\n"; 
print "               Choose mode:\n"; 
print "----------------------------------------------------------\n"; 
print "    [1]  Start programm\n"; 
print "    [2]  Exit\n"; 
$choice = <STDIN>; 
chomp $choice; 
print "Your choice: $choice\n";

my ($ua) = &browser; 
if ($choice == 1) 
{
    my $Username = 'alo'; 
    my $pass = 'log2'; 
    my $aut = $ua->post('https://www.oooooo.com/login', 
                                              [ 'username' =>$Username, 
                                              'p' =>'', 
                                              'dest' =>'%2Fhome', 
                                              'password' =>$pass])->code;
    my $i = 0;
    my $search2 = $ua->get("http://www.oooooo.com/messages?r1=pl47&compose=1"); 
    $search2->content =~ m/name="authcode" value="(.+?)"/i; 
    print "Authcode:". $1 . "\n";                             
} 
if ($choice == 2) 
{ 
    exit; 
} 

sub browser
{
my $ua = new LWP::UserAgent;
my $cookie_c = HTTP::Cookies -> new (file => 'lwp_cookies.dat',autosave => 1,);
$ua ->cookie_jar($cookie_c);
my $auth = $ua->get('http://www.oooooo.com/');
return $ua;
}

unlink 'lwp_cookies.dat';

только везде замени http://www.oooooo.com/ на норм домен

 

тоже самое

 

обнови перл тогда до 5.12

 

мейби сайт кинешь

 

ну и вопросы у тебя
ты бы может познакомился бы с основами синтаксиса , перед тем чтобы что-то писать.

Code:

my $geoinfo = $ua->get("http://www.oooooo.com/$geoinfo");

или

Code:

my $geoinfo = $ua->get('http://www.oooooo.com/'.$geoinfo);

 

Code:

 my $text='id=1,id=2,id=3'; 
while ( $text =~ /id=(.+?)/g){  
print $1."\n";} 
print "hello"; 

 

Как организовать работу скипта через соскы?

PHP:

 #!/usr/bin/perl    
use LWP::UserAgent; 
use HTTP::Cookies; 
my $ua = LWP::UserAgent->new; 
$ua->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.9.0.19) Gecko/2010031422 Firefox/3.0.19"); 
my $cookie = HTTP::Cookies->new(); 
$ua->cookie_jar($cookie); 
my $search = $ua->get('http://show-ip.com')->content; 
open(OUT, ">> 1.html");  
print OUT "$search\r\n";  
close(OUT); 


 

http://search.cpan.org/search?query=SOCKS&mode=all

 

используй сокеты..
или каимовский модуль
http://kaimi.ru/2010/07/модуль-для-работы-с-web/
умеет работаь с соксами с авторизацией даже

 

Посоветуйте какую литературу почитать новичку по Perl?

 

скажите пожалуйста: для отправки писем с вложениями на сервере с операционкой винодоус используется mail_mime или что то другое?
просто смотрел закачки там только для nix систем инсталяшки, как проинсталировать на виндовозе скажите пожалуйста

 

Здравствуйте,помогите пожалуйста с вопросом по поводу HTML:arser .
В доках есть такой код

HTML:

 $p = HTML::Parser->new( api_version => 3,
                         start_h => [\&start, "tagname, attr"],
                         end_h   => [\&end,   "tagname"],
                         marked_sections => 1,
                       );

В этих строчка

HTML:

start_h => [\&start, "tagname, attr"],end_h   => [\&end,   "tagname"]

определяем начальный и конечный тэг для парсинга.
Вопрос в том как записать этот тэг и атрибут.
Если записываю так

HTML:

$p = HTML::Parser->new( api_version => 3,
                         start_h => [\&start, "<div>, post_body"],
                         end_h   => [\&end,   "</div>"],
                         marked_sections => 1
                       );

то ошибка. Помогите пожалуйста с этим модулем.

 

какая ?

 

Bad argspec при [\&start, "<div>, post_body"]
и
Unrecornized identifier div in argspec при [\&start, "div, post_body"]

 

Повнимательнее почитайте perldoc HTML:arser. Имена тэгов там не нужно писать