Thread LWP::UserAgent und methode post (4 answers)
Opened by xeroxed_yeti at 2007-08-01 19:07

xeroxed_yeti
 2007-08-01 19:07
#97150 #97150
User since
2007-07-19
12 Artikel
BenutzerIn
[default_avatar]
Hallo zusammen.

Ich würde gerne mit Hilfe eines Perlscripts mehrere Werte nach und nach an eine Internetseite übergeben und diese nachdem sie dort prozessiert wurden, bearbeiten.

Die URL der Seite ist http://www.genebee.msu.su/services/malign_reduced.... und supported die Methode 'post'.

Code: (dl )
1
2
3
4
5
6
7
form METHOD="POST" ACTION="/cgi-bin/nph-malign.pl">
      <input type="hidden" 
      .....
      .....
        <tr>
          <td><textarea NAME="SEQ" ROWS="5" COLS="80"></textarea></td>
        </tr>


Die Textarea ist für mich der spannende Teil, hier übergebe ich mehrere Strings. Um das ganze mal auszuprobieren könnt ihr folgende Eingabe verwenden:
Code: (dl )
1
2
3
4
>Prot1
QAFAYQLSNGIPIESWFMDKNDNELLKLIPFLEKLVELNEDVRPHIRDRFRLHDLLPPD
>Prot2
MRLRTRKASQ


Mein Script soll nun hingehen und diese Eingabe an die Webpage übermitteln, den Submit-Button drücken und das Ergebnis in $content ablegen. Aber leider steht bei mir in $content lediglich der Quellcode der Ausgangsseite, also von http://www.genebee.msu.su/services/malign_reduced.....
Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13

#!/usr/bin/perl -w

use strict;
use warnings;
use LWP;

my $htmlInput = ">Prot1\nQAFAYQLSNGIPIESWFMDKNDNELLKLIPFLEKLVELNEDVRPHIRDRFRLHDLLPPD\n
>Prot2\nMRLRTRKASQ\n";

my $browser = LWP::UserAgent->new(timeout => 0);
$browser->env_proxy;
my $contnent = $browser->post('http://www.genebee.msu.su/services/malign_reduced.html', ["SEQ" => $htmlInput]);
print $content->content;


Kann mir wer sagen, wo mein Fehler leigt? Bzw welches Modul würdet ihr für diese Aufgabe verwenden?

Danke Markus

View full thread LWP::UserAgent und methode post