|
ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Artem Chuprina 2:5020/400 23 Jun 2006 21:30:50
To : Љ®«п Ѓ®Є®ў
Subject : Re: Помогите пожалуйста с ситаксисом (LWP::UserAgent)
--------------------------------------------------------------------------------
Колян Боков -> All @ Fri, 23 Jun 2006 13:04:48 +0400:
КБ> Привет,
КБ> помогите пожалуйста с ситаксисом. У меня есть один аппарат, который
КБ> конфигурируется xml-файлом. Для его загрузки на сервере аппарата
КБ> используется Web-GUI. Консультируясь с различными источниками информации я
КБ> написал такую вот программку:
КБ> 8<-----------------8<
КБ> #!c:/perl/bin/Perl.exe
КБ> use CGI::Carp "fatalsToBrowser";
КБ> use strict;
КБ> use LWP::UserAgent;
КБ> use HTTP::Request::Common;
КБ> my $ua = LWP::UserAgent->new();
КБ> my $resp = $ua->request(POST 'http://192.168.0.248/cfg.html',
КБ> Content_Type => 'form-data',
КБ> 'SID' => 'xy00',
КБ> 'id' => '56069145',
КБ> 'file' => ["C:\Dokumente und
КБ> Einstellungen\user\Desktop\myConfigFile.xml"]);
Hу, начать стоит с того, что если кавычки двойные, то \ надо дублировать.
КБ> my $content = $resp->content;
КБ> print <<HTML;
КБ> Content-type: text/html
КБ> <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"
КБ> "http://www.w3.org/TR/html4/loose.dtd">
КБ> <html xmlns="http://www.w3.org/1999/xhtml">
КБ> <body>
КБ> $content
КБ> </body>
КБ> </html>
КБ> HTML
КБ> 8<-----------------8<
КБ> Ответ с сервера:
КБ> 500 Server closed connection without sending any data back
А вот это может быть по разным причинам. Для начала тебе по
вышеуказанной причине не удалось отправить туда нужный файл. Попробуй
исправить это.
--
Artem Chuprina
RFC2822: <ran{}ran.pp.ru> Jabber: ran@jabber.ran.pp.ru
Страшна, как смертный грех Феанора (С)энта
--- ifmail v.2.15dev5.3
* Origin: Leninsky 45 home network (2:5020/400)
Вернуться к списку тем, сортированных по:
|
Re: Помогите пожалуйста с ситаксисом (LWP::UserAgent) 
