Xpoint
   [напомнить пароль]

не работает скрипт с LWP модулем

Метки: [без меток]
2006-06-04 00:53:56 [обр] hogart[досье]

Всем добрый день.
Я новичок в Perl, поэтому прошу не быть ко мне строгим.
Я немного изменил скрипт из faq`а данного форума для своих целей след. образом:

use strict;
use LWP;
use HTTP::Request::Common;

my $ua = LWP::UserAgent->new();
$ua->agent("PerlUA/0.1");
my @a=<STDIN>;
foreach $a(@a) {
my $url = "http://genes.mit.edu/cgi-bin/mirscan.pl";
my $request = POST $url, [a => $a];
my $document = $ua->request($request);
if ($document->is_success)
{
  print "Content-Type: text/html\n\n";
  print $document->content;
}
else
{
  print "Content-Type: text/html\n\n";
  print "Couldn't post to $url\n";
}
}

Но в качестве ответа возвращается страница, которая появляется на сайте если форму оставить пустой:

Content-Type: text/html

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
   <title>MiRScan Web Server: An online resource for identifying candidate microRNAs Web Server</title>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=ISO-8859-1">
<META NAME="AUTHOR" CONTENT="faust@mit.edu">
</head>
<BODY BGCOLOR="#00336677" link="#FFFF00" vlink="#77FFFF77" alink="#FFFF00" text="#FFFFFF">
Sat Jun 3 16:49:36 EDT 2006
<br><hr><hr>

адрес сайта http://genes.mit.edu/mirscan/
В качестве запроса использовал тот пример, который приведен под формой на сайте.

Вопрос: почему скипт не работает??

спустя 14 минут [обр] Владимир Палант(146/4445)[досье]
Ну так ведь текстовое поле там называется "SEQUENCE", а не "a"?
my $request = POST $url, [SEQUENCE => $a];
спустя 13 минут [обр] hogart[досье]
действительно-все заработало..спасибо =)
а то я пытался с sequence (строчными)..
Powered by POEM™ Engine Copyright © 2002-2005