HTTP post - perl
Sziasztok!
Adott HTML oldalt szeretném automatizálni kicsit perl-ben. A HTML oldalon van egy input type text, és egy Submit.
HTML (minden sor elejéről ahová kellene, levettem a < jelet, különben meg akart volna jelenni):
!DOCTYPE html>
html lang="en">
head>
title>Ird be a cimet
meta charset=utf-8 />
/head>
body>
img src="large_logo.jpg" style="max-height: 100px; max-width: 100px;" />
h2>
h3>IP cim ellenorzes
form action="/secret" method="post" accept-charset="utf-8">
input type="text" name="secret" id="ipaddress" maxlength="70">
input type="submit" id="submit_address">
/form>
/body>
/html>
Erre csináltam ezt:
#!/usr/local/bin/perl
use strict;
use warnings;
use diagnostics;
use LWP;
my $browser = LWP::UserAgent->new;
my $cim = '10.0.0.1';
my $URL = "http://WEBCIM/secret";
my $response = $browser->post( $URL,
[ 'ipaddress' => $cim,
'value' => 'Submit',
]
);
Kérdés:
Hogyan lehetne megtudnom az eredményét ami a Submit gomb után érkezik? Egyáltalán jól próbálom meg elküldeni a HTTP Post-ot? Tud ebben valaki segíteni? Még egy kicsit kezdő vagyok PERLben.
Köszi, üdv.
- Tovább (HTTP post - perl)
- 2184 megtekintés