Mumia W. wrote:
> On 12/19/2006 10:58 PM, Mathew Snyder wrote:
>> 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
>>
>
> It looks like the invokation of HTML::TokeParser->new() failed.
>
> Read the documentation HTML::TokeParser to find out why. Hint: the "new"
> method expects a simple scalar to be a file name.
>
> Also, you get the content of the request not directly from the user-agent
> object, but from the response object returned by the "get" method.
No. A call to $agent->content is valid and does what is expected.
Rob
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
