my First HTML based script.

Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

Untouchable Monks, Greetings.

I have a requirements to automate the followwing tasks. Also this is my first attemp with HTML, please bear with me.

1- start internet explorer and enter a url then press enter.

2- An authentication page popps up, enter user name and password then click the Enter button.

3- The returned page is a form (similar in layout to the ActiveState ActivePerl documentation). On the left hand side there is a vertical pane (static) and on the right hand side is the remainder of the form

4- Depending on what you select from the left pane will open a corresponding form. From the left hand pane I need to click on a url labled "CL Command". This action will display a new form in the right hand pane, in that form there is only one field and a button.

5- In the empty field I enter "server_fd ALL" command. Once I press Enter or click the run button (I think its labled run) a new display area appears under that field with information. I need to capture this information in an array or whatever, and do other stuff to it.

What I am trying to do is to obtain the storage volume information of a NASA/SAN solution. Its an EMC product called Celerra.
On every Celerra there is a linux based control workstation which most NAS/SAN administration can be achived using any browser. Since I have a number of these -each with a numbre of datamovers - which makes capacity monitoring be a bit hairy.

Since I haven't done any HTML then I haven't got a clue about to to proceed, So your help and advice is highly appreciated.

Comment on my First HTML based script.

Replies are listed 'Best First'.

Re: my First HTML based script.
by monktim (Friar) on Oct 23, 2003 at 20:47 UTC

http://www.oreilly.com/catalog/perllwp/

There's even a link with examples. http://examples.oreilly.com/perllwp/

This will grab the html from the google homepage.

use strict;
use warnings;
use LWP;
my $browser;
$browser = LWP::UserAgent->new() unless $browser;
my $resp = $browser->get('http://www.google.com');
print "$resp->content\n";
[download]

[reply]
[d/l]


Perl: the Markov chain saw
	PerlMonks