HTTP post - perl

Szkriptek: Python, Perl, Bash, ...

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.

  • 2184 megtekintés

( franklin | 2014. 10. 09., cs – 02:49 )

Ok, sorry, már meg is van. Legközelebb hamarabb nézem meg a működést minthogy rögtön segítségért kiabáljak, köszi.

Solution:

#!/usr/bin/perl
use strict;
use warnings;
use diagnostics;

use LWP;

my $browser = LWP::UserAgent->new;
my $ip = '192.168.0.1';
my $URL = "WEBCIM";
my $response = $browser->post( $URL,
[ 'secret' => $ip,
'value' => 'Submit',
]
);
print $response->content;

Persze ezt még finomítom hogy text file legyen az input line by line, ésatöbbiésatöbbi. Köszi azért ... :p