Re^3: HTML stripper in WWW::Mechanize doesn't seem to work

You can do this, but you'll have to do something like a join first.

Consider the simpler example:

my @mango = ('one', 'two', 'three', 'penguin');

my $result = @mango;
print "Result is $result\n"; # prints 4

$result = join ' ', @mango;
print "Result is $result\n"; # prints "one two three penguin"
[download]

If the content subroutine returns an array and you assign it in scalar context, you get the count of the things in the array. For your particular code you'll want something like: $stripped_html = join ' ', $webcrawler->content( format => "text" );

Comment on Re^3: HTML stripper in WWW::Mechanize doesn't seem to work Select or Download Code

Replies are listed 'Best First'.
Re^4: HTML stripper in WWW::Mechanize doesn't seem to work by sk (Curate) on Aug 01, 2005 at 03:49 UTC
I don't think `content()` returns an array. I checked the source code and this is what i see `sub content { my $self = shift; my $content = $self->{content}; return $content unless $self->is_html; ### More stuff there... ..... ..... return $content; }` [download] Looks like it is just a scalar. Does not look like any reference to an array either so I guess it is a scalar. So he should be able to store it in one element of his array.	[reply] [d/l] [select]
Re^5: HTML stripper in WWW::Mechanize doesn't seem to work by Nkuvu (Priest) on Aug 01, 2005 at 04:20 UTC
Good point. As mentioned previously, when I first replied to this I didn't have WWW::Mechanize installed and based my reply on the OP's comment. But later this evening I did install the module. And what do you know, the original script worked just fine. I did test the script with my suggestion for using an array and join, and it worked fine. Of course joining a scalar does nothing, so that obscured the success of the original script (my change worked despite the join, not because of it).	[reply]