Форумы на Хакер

Добро пожаловать! Это — архивная версия форумов на «Хакер.Ru». Она работает в режиме read-only.

Нужна помощь с Perl

Пользователи, просматривающие топик: none

Зашли как: Guest

Все форумы >> [Веб-программинг] >> Нужна помощь с Perl

Имя

Сообщение

<< Старые топики Новые топики >>

Нужна помощь с Perl - 2009-04-09 14:39:01.143333

KUMATOZ

Сообщений: 19
Оценки: 0
Присоединился: 2009-03-23 01:24:30.740000

Нашел на хакере этот скрипт http://www.xakep.ru/post/13728/dozer.txt но никак не могу понять как его запустить, скачал отсюда http://www.perl.org.ru/download/software.html#stable себе Perl но там просто куча файлов, подскажите что делать?

Post #: 1

RE: Нужна помощь с Perl - 2009-04-09 15:03:56.370000

Parano1d

Сообщений: 423
Оценки: 0
Присоединился: 2008-05-21 13:40:17.093333

http://ru.wikipedia.org/wiki/Perl
http://ru.wikipedia.org/wiki/%D0%98%D0%BD%D1%82%D0%B5%D1%80%D0%BF%D1%80%D0%B5%D1%82%D0%B0%D1%82%D0%BE%D1%80

Post #: 2

RE: Нужна помощь с Perl - 2009-04-09 15:08:06.853333

KUMATOZ

Сообщений: 19
Оценки: 0
Присоединился: 2009-03-23 01:24:30.740000

Подскажите хороший интерпритатор, который тот код хорошо интерпритирует. Или этот окд досаточно в пхп файлик скопировать и сохаранить?

Post #: 3

RE: Нужна помощь с Perl - 2009-04-09 15:14:51.696666

system_shock

Сообщений: 299
Оценки: 0
Присоединился: 2009-01-15 12:40:34.846666

а ошибку какуюто пишет?

Post #: 4

RE: Нужна помощь с Perl - 2009-04-09 15:18:38.060000

KUMATOZ

Сообщений: 19
Оценки: 0
Присоединился: 2009-03-23 01:24:30.740000

quote:

а ошибку какуюто пишет?

Кто? я еще ничего не запускал

Post #: 5

RE: Нужна помощь с Perl - 2009-04-09 16:17:56.236666

Parano1d

Сообщений: 423
Оценки: 0
Присоединился: 2008-05-21 13:40:17.093333

quote:

Подскажите хороший интерпритатор, который тот код хорошо интерпритирует. Или этот окд досаточно в пхп файлик скопировать и сохаранить?

причём тут вообще php? а интерпретатор я так понял, что ты скачал…

quote:

скачал отсюда http://www.perl.org.ru/download/software.html#stable себе Perl но там просто куча файлов

ну так там файл по идее должен быть perl.exe

Post #: 6

RE: Нужна помощь с Perl - 2009-04-10 01:17:16.626666

Fraqter

Сообщений: 123
Оценки: 0
Присоединился: 2009-01-26 21:17:05.456666

to KUMATOZ
Качаешь http://www.activestate.com/activeperl/ , ставишь, но перед установкой удали то, что ты поставил ранее.
Запускаешь командную строку: Пуск -> Выполнить -> cmd
Вводишь: perl здесь_путь_к_скрипту (например: perl c:\folder\test.pl)

Post #: 7

RE: Нужна помощь с Perl - 2009-07-22 16:30:49.836666

SkylerX

Сообщений: 29
Оценки: 0
Присоединился: 2009-07-21 16:13:04.873333

Хотелось бы узнать, можно ли писать на perl скрипты, работающие с сайтами?
Например, мне надо написать скрипт, который бы логинился на сайт под моим логином и паролем, и там выполнял какие-либо действия (перейти на страницу n и там нажать кнопочку, которая что-либо делает).
Видел в интернете пост, где человек предлагал написать скрипт на perl для накручиваня голосов. Я вот только никак не могу понять сам принцип, как это все вообще происходит?
Знаю только, что на perl можно писать сайты или же просто моудли к ним, типа как на php. Но как происходит взаимодействие с другими сайтами, я понять не могу.
И еще: если такой скрипт возможно написать, то пишется он только на perl, или другие языки программирования тоже подойдут(которые умеют с web работать)?

Post #: 8

RE: Нужна помощь с Perl - 2009-07-22 16:50:50.806666

Pashkela

Сообщений: 3756
Оценки: 736
Присоединился: 2007-01-03 06:19:40.900000

подойдут, причем многие языки программировния, от PHP до C++

Post #: 9

RE: Нужна помощь с Perl - 2009-07-22 21:27:59.350000

Versus231

Сообщений: 3
Оценки: 0
Присоединился: 2009-07-18 19:42:01.556666

Спасибо. Тогда буду пробовать на Python'е делать. По идее на нем тоже можно написать.
Только вот не мог бы ты в общих чертах написать, по какому принципу такие скрипты делаются? Я просто не понимаю самой сути.
Как скрипт взаимодействует с опр. сайтом? Как ему сказать, что и где надо писать?

Post #: 10

RE: Нужна помощь с Perl - 2009-07-23 17:42:28.566666

SkylerX

Сообщений: 29
Оценки: 0
Присоединился: 2009-07-21 16:13:04.873333

Я вот тут вот в теории насбрасал кое-чего. На практике это примерно так реализовывается?
Брать опр. страницу, "парсить" ее (не уверен, что это правильный термин).
Вставить логин и пасс, которые будут хранится в файлике (или в словарике, т.к. элементов не сильно много).
Потом, когда залогинились, идем на вторую страницу. Парсим ее.
Для моего случая надо из опр строки взять опр кол-во символов и запихнуть в переменную.
Потом составить запрос (<form><input></form>), который отправит мои данные на страницу, вставив туда данные из строки, которую я сохранил.
Потом выйти из учетки.
Потом опять логинится под другим логином и все тоже самое, что было выше.
Только все это идет в цикле, опр кол-во раз.

Post #: 11

RE: Нужна помощь с Perl - 2009-10-16 16:10:30.810000

Amf3tam1N

Сообщений: 8
Оценки: 0
Присоединился: 2009-10-16 15:17:58.096666

Смотри LWP::UserAgent
Парсить правильный термин ;)

Post #: 12

RE: Нужна помощь с Perl - 2009-10-16 17:47:47.640000

Amf3tam1N

Сообщений: 8
Оценки: 0
Присоединился: 2009-10-16 15:17:58.096666

Вот пошустрому накидал код на перле, авторизуется на vkontakte, может поможет


 #!/usr/bin/perl 
 use strict;
 use LWP::UserAgent;
 use Cwd;
 use HTTP::Cookies;
 
 sub GetRequest {
     my $url = shift;
     my $fields = shift;
     my $ref = shift;
     my $cookie_jar = HTTP::Cookies-&gt;new(
         file =&gt; cwd . "/lwp_cookies.txt",
         autosave =&gt; 1,
       );
     
     my $ua = LWP::UserAgent-&gt;new(timeout =&gt; 30);
     $ua-&gt;agent('Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0; Q312461)');
     $ua-&gt;cookie_jar($cookie_jar);                                               
     my %ns_headers = (
            'User-Agent' =&gt; 'Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0; Q312461)',
            'Accept' =&gt; 'text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8',
            'Accept-Charset' =&gt; 'windows-1251,utf-8;q=0.7,*;q=0.7',   
            'Accept-Language' =&gt; 'ru,en-us;q=0.7,en;q=0.3',
            'Referer' =&gt; $ref,
            'Accept-Encoding' =&gt; 'identity',
            'Connection' =&gt; 'keep-alive',
            'Keep-Alive' =&gt; '300',
         );
 
     foreach ( keys %ns_headers )  {
     	$ua-&gt;default_headers-&gt;push_header($_, $ns_headers{$_});
     }
 
 
     return $ua-&gt;post( $url, $fields );
 }
 
 my $response = GetRequest("http://login.vk.com/?act=login", [email =&gt; 'СЮДА Е-МЕЙЛ', pass =&gt; 'СЮДА ПАРОЛЬ', vk =&gt; '', expire =&gt; ''], "http://vkontakte.ru/index.php");
 my $html = $response-&gt;{'_content'};
 $html =~ /value\s*=\s*\'([^']+)\'/;
 my $s = $1;
 $response = GetRequest("http://vkontakte.ru/login.php?op=slogin&redirect=1", [ 's' =&gt; $s], "http://login.vk.com/?act=login");
 $response = GetRequest("http://vkontakte.ru/profile.php", [], "http://login.vk.com/?act=login");
 $html = $response-&gt;{'_content'};
 
 open(OUT, "&gt;", "some_page.html");
 print OUT $html;
 close OUT;

работает 100%

Post #: 13

Страниц: [1]

Все форумы >> [Веб-программинг] >> Нужна помощь с Perl

Связаться:
Вопросы по сайту / xakep@glc.ru

Предупреждение: использование полученных знаний в противозаконных целях преследуется по закону.