#!/usr/bin/perl
use XML::Simple;
use Data::Dumper;
use HTML::Parse;
use HTML::FormatText;

use strict;
my $articulo;
my $formatText;
my $seleccion;
my @array;

`wget http://meneame.net/story/86-directores-prensa-son-presionados-para-influir-contenidos -O articuloDePrueba`;
$articulo = `cat articuloDePrueba`;
$formatText = HTML::FormatText->new->format(parse_html($articulo));
$seleccion =  HTML::Parser->new( api_version => 3,
                         #start_h => [\&start, "tagname, attr"],
                         start_h => [\&start, "h1, text"],
                         end_h   => [\&end,   "p"],
                         marked_sections => 1,
               );

# $seleccion = HTML::Parser->new(api_version => 3,
#                        handlers => { text => [\@array, "event,text"],
#                                      comment => [\@array, "event,text"],
#                                    });

open F, ">PRUEBA";
print F "$seleccion";
foreach $seleccion (@array){
        print F "$seleccion";
}
close F;

#!/usr/bin/perl
use warnings;
use strict;

use HTML::Parser;
use LWP::Simple;

my $estamos_dentro_de_marca = 0;
my $articulo = get('http://meneame.net/story/86-directores-prensa-son-presionados-para-influir-contenidos');

sub start {
    my $tag = shift;
    return if $tag ne 'h1' and $tag ne 'p';
    $estamos_dentro_de_marca = 1;
}

sub end {
    my $tag = shift;
    return if $tag ne 'h1' and $tag ne 'p';
    $estamos_dentro_de_marca = 0;
}

sub texto {
    return if not $estamos_dentro_de_marca;
    print "$_[0]\n\n";
}

my $parser = HTML::Parser->new(
    api_version => 3,
    handlers    => [
        start   => [ \&start, "tagname" ],
        end     => [ \&end,   "tagname" ],
        text    => [ \&texto, "dtext"   ],
    ],
    marked_sections => 1,
);

$parser->parse($articulo);