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

@razdel = split(/@/,$string);
split(/:/,$razdel[1]);

Вроде бы так о_0.
Как на perl'e точно, не знаю, на PHP знаю.

 

Code:

$choice = '[email protected]:pass';
$choice =~ m/(.*)@(.*):(.*)/img;
print $1 . " - " . $2 . " - " . $3;

 

Code:

$str = 'логин@домен:пароль';
$str =~ /^(.+?)@(.+?):(.+?)$/;

$login = $1;
$domail = $2;
$pass = $3;

 

Спс

 

AMN накрутчик

Пытаюсь сделать накрутчик рекламы AMN (adlabs)
Пример сайта с рекламой - _http://nadietah.ru (рекламный блок справа).
Почему-то при таком соединении с сайтом, рекламный блок не выводится.

Code:

my $ua = LWP::UserAgent->new(timeout => 15,
                        cookie_jar => new HTTP::Cookies,
                        Referrer => 'http://nadietah.ru',
                        agent => agent()); #рендомно агент
        #until(proxy($ua)){};
        print "\nConnecting to site: $siteurl \n";
        my $res = $ua->get($siteurl);
        #$_ = $res->content;
        #my @alllinks = /href="(.+?)"/gi;
        my @alllinks = $res->content =~ /href="(.+?)"/gi;
        print "Got ".scalar @alllinks . " links\nProcessing...\n";
        my @luxlinks;
        foreach $key (@alllinks)
        {               
                $key = $key =~ /href=\"(.+?luxup.+?)\"/;
                print "$key\n" if $key;
        }

В чем подвох?
Спасибо

 

Реклама на сайте выводится с помощью javascript

 

А как его (js) заставить исполнится и отрендерить нужный html ?

 

Либо использовать модули эмулирующие выполнение js, либо смотри какие запросы шлет браузер, чтобы получить рекламу

 

my ($a, $b, $c) = split '@|:' => 'a@b:c'

 

Чем этот вариант лучше?

 

Потому что для этого придумали сплит, обёртку уже на регекспах

 

Сплит медленнее работает в данном случае

 

http://kaimi.ru/wp-content/uploads/2010/03/odsender_b.zip

Почему же у тебя тут сплитов столько?

 

Потому что я не использую конструкцию

Code:

split '@|:'

Из-за которой сплит медленнее отрабатывает

 

т.е. сплит с одним разделителем быстрее голого регекспа?

 

Бенчмарк считает что так

 

т.к. функция сплит построена на регекспах, она не может быть быстрее голых регекспов

 

phpBB ПМ

Доброе время суток атач!
Пишу скриптик для пропоганды материалов партнерки через ПМ
Сайт работает на phpBB. Уже успешно залогинился. Добрался до страницы отправки ПМ и наткнулся снифером заголовков на:

Code:

Content-Type: multipart/form-data; boundary=---------------------------31316206715786
Content-Length: 1637
-----------------------------31316206715786
Content-Disposition: form-data; name="username"

Âëàäî÷êà
-----------------------------31316206715786
Content-Disposition: form-data; name="subject"

Áó-ãà-ãà
-----------------------------31316206715786
Content-Disposition: form-data; name="addbbcode18"

#444444
-----------------------------31316206715786
Content-Disposition: form-data; name="addbbcode20"

12
-----------------------------31316206715786
Content-Disposition: form-data; name="helpbox"

Ðàçìåð øðèôòà: [size=x-small]ìàëåíüêèé òåêñò[/size]
-----------------------------31316206715786
Content-Disposition: form-data; name="message"

Âîò òàêàÿ õóéíÿ :)
-----------------------------31316206715786
Content-Disposition: form-data; name="add_attachment_body"

0
-----------------------------31316206715786
Content-Disposition: form-data; name="posted_attachments_body"

0
-----------------------------31316206715786
Content-Disposition: form-data; name="fileupload"; filename=""
Content-Type: application/octet-stream


-----------------------------31316206715786
Content-Disposition: form-data; name="filecomment"


-----------------------------31316206715786
Content-Disposition: form-data; name="folder"

inbox
-----------------------------31316206715786
Content-Disposition: form-data; name="mode"

post
-----------------------------31316206715786
Content-Disposition: form-data; name="sid"

9139ceb142e497a014214cdc9eacffb4
-----------------------------31316206715786
Content-Disposition: form-data; name="post"

Îòïðàâèòü
-----------------------------31316206715786--

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

Code:

$res = $ua->post($log_url,
                ['username' => $login,
                'password' => $pass,                
                'login' => $log_text
                 ],);

но многострочных еще не видел

Как с ними работать?
Если не трудно, то можно небольшой примерчик
Спасибо

 

Code:

$res = $ua->post($log_url,
                ['username' => 'Âëàäî÷êà',
                'subject' => 'Áó-ãà-ãà',                
                'addbbcode18' => '#444444'

                 и т.д.

                 ],);

 

Fepsis, спасибо за шустрый ответ
получается отправлять точно так же ?
А в чем же тогда разница пост запросов, скажем с таким?
username=Krevedko&password=123&redirect=&login=%C2%F5%EE%E4
т.е. почему сниффер по разному отображает?
потому что тот большой и мультистрочный?
что погуглить?