Register or have you forgotten your password?
Learn how to get the most out of Surmunity - read our forum tips here!
| Welcome! Please register to access all of our features.
April 18th, 2008, 9:09 AM
|
#1 (permalink) | ||
|
Registered User
Fresh Surpasser
Joined in Mar 2008
4 posts
Gave thanks: 0
Thanked 0 times
|
Need help using perl module
Hi,
I'm trying to use the HTML::TreeBuilder perl module on one of my webpages. I went through the perl module install page on cpanel. It looked like it was already installed though. The text was: Quote:
Code:
#!/usr/bin/perl
use CGI::Carp qw(fatalsToBrowser);
my $homedir = (getpwuid($>))[7];
my $n_inc = scalar @INC;
for (my $i = 0; $i < $n_inc; $i++ ) {
if (-d $homedir . '/perl' . $INC[$i]) {
unshift(@INC,$homedir . '/perl' . $INC[$i]);
$n_inc++;
$i++;
}
}
use HTML::TreeBuilder;
require LWP::UserAgent;
print "Content-type: text/html;\n\n";
my $ua = LWP::UserAgent->new();
my $response = $ua->get(<url removed>);
my $root = HTML::TreeBuilder->new_from_content($response->content);
print $root->as_HTML;
$root = $root->delete();
Quote:
Any suggestions? |
||
|
    
|
|
April 24th, 2008, 7:04 AM
|
#2 (permalink) | |
|
﴾͡๏̯͡๏﴿...tweet
Super #1
|
Quote:
__________________
 jam
|
|
|
|
|
|
April 24th, 2008, 8:20 AM
|
#3 (permalink) |
|
Registered User
Fresh Surpasser
Joined in Mar 2008
4 posts
Gave thanks: 0
Thanked 0 times
|
I'm using this code section to set the include path with my home directory:
Code:
my $homedir = (getpwuid($>))[7];
my $n_inc = scalar @INC;
for (my $i = 0; $i < $n_inc; $i++ ) {
if (-d $homedir . '/perl' . $INC[$i]) {
unshift(@INC,$homedir . '/perl' . $INC[$i]);
$n_inc++;
$i++;
}
}
|
|
|
|
