topic Re: Perl LWP help.... in Operating System - Linux

Perl LWP help....

jmckinzie — Tue, 01 May 2007 15:15:16 GMT

I have a wep page that produces sourse such as below. It produces servernames that have failed backups, error codes, and links to other pages.

I want to use LWP to get this information and send it to a table for a specific set of servers (that my group is responsible for. I have a list of those servers in another file called list. Any help with this would be great as I still learning perl.

Netbackup Failures for last hours

Netbackup Failures for last 24 hours as of May 1 10:00:00

For troubleshooting tips, click on Status.

bhovdlt1	Status (96)	View Database	Last Data Backup (02/14/2007)	bhovdlt1
namcpbbhfs01

Re: Perl LWP help....

James R. Ferguson — Tue, 01 May 2007 15:53:38 GMT

Hi Jody:

I'm not clear as to exactly what you want. Have a look at the CPAN documentation. It offers some code examples to get you started.

http://search.cpan.org/~gaas/libwww-perl-5.805/lib/LWP.pm

Regards!

...JRF...

Re: Perl LWP help....

jmckinzie — Tue, 01 May 2007 22:32:19 GMT

Yes, I have....

I also have ascript that parses using HTML::TReeBuilder however that is only getting anything with a tag.

I also need the data from the table...

Here is my script.

use HTML::TreeBuilder;
my $tree = HTML::TreeBuilder->new;
$tree->parse_file( 'website.html' ) || die $!;
my $base_url = 'http://website.html';
# for resolving relative URLs
foreach $i ($tree->parse_file) {

my $html =~ m{(.*?)};
}

foreach my $a ( $tree->find_by_tag_name('a') ) {

my $href = $a->attr('href') || next;
my $text_content = $a->as_text;
use URI;

print "$html::", "$text_content\::", URI->new_abs($href, $base_url),"\n";
}

It outputs this: (one for every table a ref)

View Database::http://website/view.pl?Hostname=soleng02&BackupMethod=Data&Database=Active
Last Data Backup::http://website.Data.html
Status::http://website.status.html

THe source looks like this:

exnjpf10

Status (219)
View Database
Last Exchange Backup (UNKNOWN)

nyovdlt2/epmnj7prod2

Re: Perl LWP help....

jmckinzie — Thu, 31 Jan 2008 15:20:26 GMT

I had to add a cookie container: