Отправка POST запроса из perl-сценария : Программирование для всех. Языки программирования, программирование баз данных, технологии. Статьи для програмиста скачать бесплатно учебники книги документация форум : Статьи

Для отправки данных стоит восполльзоваться модулем LWP (Library for WWW accesss in Perl).

Большинство модулей в этой библиотеке являются объектно-ориентированными. Эмулируемый Агент пользователя, посланные запросы и ответы, полученные от сервера WWW, представлены объектами.

Вариант 1

Пусть мы хотим послать запрос в скрипт endpost.cgi следующего вида:

endpost.cgi - принимающий запрос скрипт 
#!/usr/bin/perl
use CGI ':standart';
$query=CGI->new();
print "Content-type: text/htmlnn";
if ($query->param("login") && $query->param("passwd")) {
  if ($query->param("login") eq 'gorynych' &&

                $query->param("passwd") eq 'gorynych') {
    print "данные успешно переданы!";
    exit;
  }
}
$text = $query->param("text");
print << "EOF";
Укажите правильный псевдоним и пароль для передачи!
<P>
<FORM action="/cgi-bin/endpost.cgi" method=post>
<TABLE border=0>
<TR><TD valign=top>Введите текст: </TD>
<TD><TEXTAREA name=text cols=40 rows=5>$text</TEXTAREA></TD></TR>
<TR><TD valign=top>Введите псевдоним: </TD>
<TD><INPUT type=text name=login value=""></TD></TR>
<TR><TD valign=top>Введите пароль: </TD>
<TD><INPUT type=password name=passwd value=""></TD></TR></TABLE><BR>
<INPUT type=submit value="отправить">
</FORM>
EOF

#end

post.cgi - посылающий запрос скрипт
#!/usr/bin/perl
$text = StrEscaped("Есть многое на свете, друг Гораций,
                    что и не снилось нашим мудрецам!");
$url = "http://your.host.com/cgi-bin/endpost.cgi";
$passwd = "gorynych";
$login = "gorynyc";

# создадим нового Агента пользователя
use LWP::UserAgent;
$ua = LWP::UserAgent->new;

my $req = HTTP::Request->new(POST=>$url);
# указываем тип контекста
$req->content_type('application/x-www-form-urlencoded');
# вводим сам контекст для передачи
$req->content("text=$text&login=gorynych&passwd=gorynych");
my $res = $ua->request($req);

# получаем ответ от выводим его
print "Content-type: text/htmlnn";
print $res->content;
# если вы хотите получить полный ответ, с заголовком HTTP,
# воспользуйтесь вызовом print $res->as_string

# вспомогательные процедуры
sub StrEscaped {
  # используем эту процедуру для преобразования
  # передаваемых символов кириллицы
  my ($str)=@_;
  $str=~s/([^0-9A-Za-z?&=:;])/sprintf("%%%x", ord($1))/eg;
  return $str
}

Пусть Вам нужно отправить псевдоним и пароль в некую CGI программу, которая проверяет переданные значения и возвращает 1 в случае успеха и 0 при вводе некоректных значений.

Модифицируем наш сценарий:

1. добавим в начало разбор параметров

use CGI ':standart';
$query = CGI->new();
# если были переданы POST параметры "login" и "passwd"
# заносим их в соответствующие переменные
if ($query->param("login") && $query->param("passwd")) {
  $login=$query->param("login");
  $passwd=$query->param("passwd");
}
# вводим значения, если переменные неопределенны
$passwd = "user" unless $login;
$login = "passwd" unless $passwd;

use LWP::UserAgent;
$ua = LWP::UserAgent->new;
my $req = HTTP::Request->new(POST=>$url);
$req->content_type('application/x-www-form-urlencoded');
$req->content("text=$text&login=$login&passwd=$passwd");
my $res = $ua->request($req);
...
вместо того, чтобы выводить контекст ответа, мы будем его проверять:
$res = $res->content;
if ($res eq 1) {
  print "данные успешно переданы!";
} else {
  # возвращаем текст в читаемый вид
  # и выводим форму для ввода, указывая в качестве
  # принимающего сценария наш новый post.cgi
  $text = StrUnescaped($text);
print << "EOF";
Укажите правильный псевдоним и пароль для передачи!
<P>
<FORM action="/cgi-bin/post.cgi" method=post>
<TABLE border=0>
<TR><TD valign=top>Введите текст: </TD>
<TD><TEXTAREA name=text cols=40 rows=5>$text</TEXTAREA></TD></TR>
<TR><TD valign=top>Введите псевдоним: </TD>
<TD><INPUT type=text name=login value=""></TD></TR>
<TR><TD valign=top>Введите пароль: </TD>
<TD><INPUT type=password name=passwd value=""></TD></TR></TABLE><BR>
<INPUT type=submit value="отправить">
</FORM>
EOF

#end
}

sub StrUnescaped {
  my ($str)=@_;
  $str =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
  return $str
}

Замечание:

"Ленивые люди" используют модуль HTTP::Request::Common, для отправки POST запроса (он сам оперирует заголовками и преобразованием символов и использует предустановленный content_type).

Это выглядит так:

use HTTP::Request::Common qw(POST);
use LWP::UserAgent;
$ua = LWP::UserAgent->new;
my $req = POST $url,
  [ text => "$text",
    login => "$login",
    passwd => "$passwd"
  ];

HTML 5: пять вещей вызывающих особый интер....

HTML 5 — это грядущее обновление гипертекстового языка разметки, основного способа создания контента для размещения его во всемирной паутине. Разработка HTML остановилась в 1999 году, на версии HTML 4.01 и с тех пор web-содержимое изменилось так, что текущие спецификации HTML перестали соответствовать сегодняшним требованиям. HTML 5 нацелен на то, чтобы увеличить функциональную совместимость HTML и соответствовать растущим требованиям разнообразного и смешанного web-контента. HTML 5 так же нацелен на устранение недостатков четвертой версии. В этой статье мы взглянем на 5 новых интересных вещей в HTML 5.

Элемент управления ListView был представлен в .Net Framework 3.5 как замена устаревшему GridView. Новый элемент имеет более расширенный функционал, чем его предшественник, но в тоже время лишен некоторых внутренних механизмов, что впрочем целиком следствие из расширенной универсальности ListView. Среди отличий ListView и GridView можно назвать и гибкую настройку разметки, что позволяет выводить данные не только в табличном виде, но и вообще в любом каком пожелает программист. Благодаря шаблонам ItemTemplate, EditItemTemplate, InsertItemTeplate можно настроить внешний вид при любом из состояний ListView: редактировании или выборе элемента.

Компания Стимулсофт предоставляет для разработчиков мощный набор инструментов для создания отчетов для Microsoft Visual Studio .Net 2005 и 2008; эти инструменты доступны как для Windows Forms, так и для Web Forms. Это генератор отчетов Stimulsoft Reports.Net. Генератор отчетов Stimulsoft Reports.Net имеет ряд особенностей: простая работа с дизайнером отчетов, полная поддержка экспорта в PDF, Word, Excel и многие другие форматы. Crystal Report и Microsoft Reporting Service – очень хорошие программные продукты для повседневной работы, но, если Вам необходимо создать отчеты с поддержкой кросс-табов, drill down, Ajax, штрих-кодов и возможностью подключения одновременно более одного источника данных, то Stimulsoft Reports.Net поможет Вам сэкономить массу времени. Также, данный генератор отчетов позволяет пользователям создавать свои собственные отчеты любой сложности. И все эти особенности делают Stimulsoft Reports.Net хорошим выбором в сфере программных продуктов для Business Intelligence.