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

Подскажите, как сделать Post запрос на перле, который постит текст, который введен в форме:

<form action="/spotlight?id=317891" method="post" name="form_g2cents" id="form_g2cents">
<textarea name="comment_text" id="comment_text" class="w_350 field" rows="5"></textarea>
<script type="text/JavаScript">counter_init('comment_text*1500');</script>
<div class="buttons">
<input type="submit" class="button" name="submit_comment" value="добавить" />
</div>
</form>

 

Code:

#!/usr/bin/perl -w

use LWP::UserAgent;
my $ua = new LWP::UserAgent;
my $q = $ua->post( 'http://connect.ua/spotlight?id=317891',
			[  comment_text   => ' ',
			   submit_comment => '%D0%B4%D0%BE%D0%B1%D0%B0%D0%B2%D0%B8%D1%26%2365533%3B%D1%26%2365533%3B',
			] );

 

demonoid
вроде еще
form_g2cents => 'что-то'
если будет проверяться isset($_POST['form_name'])

 

+ необязательно в urlencode
вот читани http://slil.ru/25994152 - там описывается на пальцах как запросы бомбить на io:socket и lwp

 

вроде или точно ? %)

поскольку тип форм по умолчанию application/x-www-form-urlencoded , это стоит делать

 

угу ты мне раскажи-- оно при передаче и будет урленкодить если в урлэнкоде - если нет то небудет - я думаю ему мессаги нах ненадо каждый раз перегонять - учите матчасть =) -- я укуреный и пьян

 

учите русский .

 

охота повыделываться?? если такой умный возьми проверь и не спорь больше если неуверен

 

Народ, привет. Я тут книжку одну читаю, а там скрипт на перле что бы узнать поле SERVER из заголовка ответа. Скрипт что то не канает. Перл вижу почти впервые.... Вот листинг

Code:

#!usr/bin/perl
use LWP::UserAgent;
$client = LWP::UserAgent->new( ) or die;
print "Enter site:";
$url=<STDIN>;   #Просим пользователя ввести адрес сайта
$answer = $client->get($url); #Отсылаем запрос на сайт
print "============================\n";
print $answer->header("server")."\n"; # Выводим поле Server из заголовка
print "============================\n";

никаких ошибок нет но поле не выводит. просто тупо пусто там.
Заранее спасибо!

 

чо не выводит то, вроде все вывело

 

эм. сорри. это я затупил. вводил адрес без http://
глупая привычка.

 

жжошь =) -- единственный минус $& - что если несколько таких выдираний идет и в строке не находится ничего подходящего по регекспу то она не перезапишется и выдаст тебе повтор с предыдущего поиска
ченить типо
print $& if $text =~ m![a-z0-9:/.]+\.[a-z]+!i; - будет разумнее

ну и не забывай что если часть регекспа в кавычки зафигачить то эта помещается в переменные $1,$2 и тд...

можно например print $1 if $text =~ m!([a-z0-9:/.]+\.[a-z]+)!i; сделать
или с помощью замены всей строки чисто на линк - так переприсваивать ненадо ничего буит
$text = 'text link.ru';
$text =~s/text (твой регексп)/$1/; -- тока в этом случае надо всю строку регекспом описывать что она заменилась на тот линк который тебе надо

 

.::Gh0st::. так надо?

Code:

#!/usr/bin/perl

use strict;
use warnings;
use diagnostics;

my $text = 'text link.ru';
my ($link) = $text =~ m!([a-z0-9:/.]+\.[a-z]+)!i;
print $link, "\n";

 

Какой функцией сделать отсчёт времени работы скрипта? Что бы сразу после запуска, начался отсчёт, и перед закрытием скрипта вывелось время его работы.

 

$time=localtime;
print $time; ---- просто выдаст время - в окончании скрипта вывед время начала и еще раз время в конце - хз насчет четкого таймера

как альтернативу на вскидку мона параленьный поток создать
и в while(условия завершения скрипта){$time++ if sleep 1;}

потомы вести скока секунд работал скрипт - наркомания но хз =)

 

Нашёл решение:

Code:

#!/usr/bin/perl -w
$start=time();

# блаблабла

print 'Время работы скрипта '.(time()-$start).' секунд';

 

Vsem prijatnogo vremeni sutak

ja vot nashol forum : http://89.136.42.95
No nekak nemogu razobratsa kak zdelot SQL injection . Moshet ktonibut obesnit

 

Я Новичок с большой буквы и у меня следующая проблема.

Какой код мне нужно написать чтобы получить страницу вида index.php?id=123456?

Я то написал но уменя куча ошибок. Помогите

 

#! /usr/bin/perl -w
use LWP::UserAgent;

$ua = LWP::UserAgent->new;
$res = $ua->get("http://somesite/index.php?id=123456")->as_string;
print $res;

 

Kaimi извини но php бы