N.Bokov: Gerät-X

Beitrag lesen

du nutzt das Modul LWP::UserAgent

Ja, stimmt. Und wie kann ich dann die Konfigdatei weiter geben, wenn ich die 2 Felder habe:

<form name="config" method="POST" action="config.htm">
<input type="submit" name="id_nr566" value="&nbsp;Schreiben&nbsp;">

So?

8<-------------8<

#!c:/perl/bin/Perl.exe

use CGI::Carp "fatalsToBrowser";
use strict;

use LWP::UserAgent;

my $ua = LWP::UserAgent->new();
my $resp = $ua->post("http://192.168.0.248/config.htm", {"field-keywords" => "C:\Dokumente und Einstellungen\user\Desktop\config.txt"});

my $inhalt = $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>

$inhalt

</body>

</html>

HTML

8<-------------8<