in reply to Re: HTML stripper in WWW::Mechanize doesn't seem to work
in thread HTML stripper in WWW::Mechanize doesn't seem to work

Right, apologies for this but i 've confused you on one thing. I want one set of stripped HTML to be assigned to one element of the array. So, if www.google.com was my initial website all its contents would be stored in $stripped_html[0], then by doing a x = x + 1; i would move to the next element of the array and assign the next URL's contents to it.Thanks
  • Comment on Re^2: HTML stripper in WWW::Mechanize doesn't seem to work

Replies are listed 'Best First'.
Re^3: HTML stripper in WWW::Mechanize doesn't seem to work
by Nkuvu (Priest) on Aug 01, 2005 at 02:19 UTC
    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" );
[reply]
[d/l]
[select]
      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]
        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]

In Section Seekers of Perl Wisdom