I have a script which runs WWW::Mechanize to obtain a page so it can be parsed
for email addresses. However, I can't recall how I'm supposed to use
HTML::TokeParser to get what I need. This is the pertinent part of the script:
...
my $data = $agent->content();
my $parse = new HTML::TokeParser($data);
my @emails;
my $token;
while ($data) {
$token = $parse->get_trimmed_text("/small");
push @emails, $token;
}
foreach my $email (@emails){
print $email;
};
This gives me the error Can't call method "get_trimmed_text" on an undefined
value at ./check_delete_users.pl line 40.
I had this working at one point but lost the file. What am I missing?
Mathew
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
