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

Помогите найти скрипт каторый работает через антигейт (без всяких модулей специальных для этого)
ну или так обьясните
my $resp = $ua->post("http://антигейт/in.php",
["key" => "ключ",
"file" => "капча",])->as_string;

далее как капчу получить в перменную.я пробывал типа так
$lol=get("антигейт/in.php");
print"$lol";
выводит ошибку какую-то..так вообще можно?

 

[none], тут же всё подробно описано: http://antigate.com/panel.php?action=api

первым запросом отправляешь ключ и капчу на http://antigate.com/in.php, если всё удачно, то получаешь ответ в виде "OK|id_капчи"

Потом уже получаешь статус/результат распознавания так:
http://antigate.com/res.php?key=ключ&action=get&id=id_капчи_из_первого_запроса

Можешь поковырять исходник от Kaimi, http://kaimi.ru/2009/05/anticaptcha-perl/
у него правда на сокетах, если хочешь на LWP писать, посмотри на тему HTTP::Request::Common, я обычно через него делаю multipart/form-data запросы...

 

я так и делаю, не понял как мне результат распознавания в переменную засунуть..

 

тебе же написали все..
грузишь капчу , получаешь айди,
потом запрос
http://antigate.com/res.php?key=ключ&action=get&id=id_капчи_из_первого_запроса
и если капча готова то
вытягиваешь регуляркой

 

для perl 5.12 есть что нибудь бесплатное или крякнутое, для реализации скриптов в exe?

 

Здравсвуйте. Я новичёк в Perl. И не могу разобраться.
Итак. Есть массив с html кодом @data
Мне надо сделать условие, что если в html коде, который хранится в массиве @data отсутсвует текст "Warning"
то выполняется некотрое условие. Вот как я делаю.

PHP:

      @data = GetRequest($url); # моя функция получения html страницы
      if( !@data =~ m/Warning/ )
      {
          print 'Текст Warning отсутсвует!';
      }

Но ничё не работает. Помогите плиз. с меня +

 

Попробуй так

Code:

foreach (@mass)
{
	if ($_=~ /WARNING/)
	{
		Условие
	}
}

 

PHP:

      @data = GetRequest($url); # моя функция получения html страницы
      if( !(grep { $_ =~ /Warning/ } @data) )
      {
          print 'Текст Warning отсутсвует!';
      }


There's more than one way to do it
С т. зрения выделения памяти - возвращать из процедуры лучше не массив, тем более немаленький массив из строк с хтмл, а ссылку на него:

Code:

     
sub GetRequest($) {
  my $url = shift;
  ...
  return \@data
}
 @data = @{GetRequest($url)}; html страницы     

 

CavaPackager видели?

 

ответ сервера (если речь про использование LWP) надо через метод content получать (или decoded_content).
$src = $resp->decoded_content;

 

элементарно

Code:

use LWP::UserAgent;

open(FILE , "<file.txt"); #открываем файл с линками
chomp(my @links = <FILE>);
close FILE;

my $ua = LWP::UserAgent->new;
$ua->timeout( 20 );

while (my $link = shift @links)
{
	$page = $ua->get($link);
	if($page ->is_success)
	{
		print "good: $link\n";
		open (FILE2 , ">>good.txt");  # записываем удачные
               print FILE $link."\n";
		close FILE2;
	}
	else
	{
		print "bad: $link\n";
	}
}

<>;

 

Установил ActivePerl 5.8.9 Build 826. Никак немогу привязать ево к Apache HTTP Server 2.2 в Apache HTTP Server 2.2 уже установлен PhP 5.2.9.9 и MySQL Server 6.0 это всьо работает но никак немугу в Apache HTTP Server 2.2 утановить ActivePerl 5.8.9 Build 826.
Пробовал в httpd.conf прописать

но mod_perl.so нигде нет
Пробовал в httpd.conf прописать

Неоткрывает вопше Perl файлов
В Perl всегда пришу

Система Win 32
Подскажыте плиз что делать??????

 

для mysql нужен модуль DBD-mysql

Code:

ppm install http://theoryx5.uwinnipeg.ca/ppms/DBD-mysql.ppd 

в httpd.conf

Code:

ScriptlnterpreterSource registry 

и перегружаем сервер.

Перед установкой актив перл, поставить галочку

Code:

Add Perl to the PATH environment variable

если не ставилось, то руками впихнуть в переменную окружения.

ps
Это строка игнорируеться #!C:\Perl\bin\perl.exe, так как
ScriptlnterpreterSource registry прописано в настройках сервера.

Сервер ищет интерпретатор в реестре win, видимо у вас там ничего нет.

Если нет, то

Code:

мой компютер->свойства->дополнительно->переменные среды->Path изменить->;C:\Perl\bin;

 

В

У меня прописано

В httpd.conf прописано

Не установлял

Но в Perl Апачи не видет

 

FAIL

Code:

LoadModule cgi_module modules/mod_cgi.so

Никсы ставьте

 

Модуль

в httpd.conf бил разлочен давно но сним или без ниво Перл не пашет.
Надежда на Денвер но там Msql царапаэтса (имеэт много ларов)
А если пере мутить етот текст под Перл

Бутто

Может порулить

 

мне нужно записать данные в файл, но перед записью очистить весь мусор. в одной из статей нашла
# Добавление в конец (создается, если не существует)
open FF, "» file.txt"; эта запись работает. нормально добавляет все и создает файл если его нет

sysopen FF, "file.txt", OJJRONLY I 0_CREAT I O_APPEND;


# Чтение/запись (файл очищается)
open FF, "+> file.txt";
а эта не понимаю как работает.она конечно очищает мне всё что было до этого в файле, но пишет всего 1 запись , а мне надо много.
подскажите как создать файл если его нет, записать туда много данных и очистить данные при следующем выполнении скрипта

 

Кто работал с Perl2exe как его зарегистрировать ???
Обьясните по шагам пожалуйста пожалуйста нашел ключ но незнаю как зарегистрировать

Ключ
test:[email protected]:20110506,12091

 

сохрани ключ в файл с именем perl2exe.key
и положи его рядом с perl2exe.exe

 

Cпасибо большое попробуй как долго блин я ждал ответа не как не мог разобратся

А как юзать опции может подскажите тоже не как догнать немогу

Code:

Usage:

perl2exe myscript.pl
or
perl2exe [options] myscript.pl

This will convert a script named myscript.pl to myscript.exe.

options:

-v	Verbose output
-register	This option allow you to enter registration information for Perl2Exe. You will be prompted for a registration key.
-small	Generates a smaller executable which uses a shared runtime DLL. The generated executable will be smaller by about 600KB. The executable will require a shared DLL, p2xXXX.dll to run. This DLL will be copied to the current directory.
Applies to the Pro version on Windows only.

-tiny	Create an even smaller executable by placing additional code into DLL's. Perl2Exe will create DLL files in the current directory containing code from loadable modules which use pll, dll, or so files. This option is not available in the Lite versions of Perl2Exe.
-gui	
Create a no-console executable.  This can be used for Tk and Win32::GUI applications.   I/O to STDOUT and STDIN will not be visible.  If your application does not work do not use the -gui option while testing as it will hide possible error messages.

Applies to Windows version only.

-icon=filename	
Add a user supplied icon to the executable. The icon must contain a Standard(32x32) and a Small(16x16) bitmap and must be 1078 bytes long.

How to create the required icon using Dev Studio: 
Start DevStudio and open or create a new icon file. Draw the Standard (32x32) icon image. Press the Insert key. Select Small (16x16). Draw the small icon image. Save the icon file.

Icons will not display on Win95 systems unless IE is also installed.

Applies to Windows  version only

-o=filename	Specify the output filename.
-platform=SunOS
-platform=Linux
etc	Specify the target platform for the executable.  The default is based on the host machine.  On a Linux host the default is linux, on a SunOS (Solaris) host the default is SunOS.   For a full list of available platforms type the command 'perl2exe'.
 

-noopt	Disable some optimization.
-opt	Increase optimization.  Line numbers in error messages will not match your code if this option is used.
-I=dir1:dir2	This will cause Perl2Exe to search in additional directories for modules