striptag

[Dan Jacobson]

This used to strip only the given tags:
$ striptag font div < file.html
but now it strips all tags. Something must have changed on my system. Help.
$ cat striptag
use strict;
use HTML::Parser;
my $parser = HTML::Parser->new( text_h => [ sub { print shift; },"dtext" ]);
$parser->parse_file(*STDIN);

[Himanshu Garg]

Dan Jacobson <ji*****@jidanni.org> wrote in message news:<87************@jidanni.org>...

This used to strip only the given tags:
$ striptag font div < file.html
but now it strips all tags. Something must have changed on my system. Help.
$ cat striptag
use strict;
use HTML::Parser;
my $parser = HTML::Parser->new( text_h => [ sub { print shift; },"dtext" ]);
$parser->parse_file(*STDIN);

You probably deleted the code that handles the command line arguments.
Nowhere do I see special handling of ARGV which in this case is font
and div.

++imanshu

[gnari]

"Himanshu Garg" <hi******@gdit.iiit.net> wrote in message
news:a4**************************@posting.google.c om...

Dan Jacobson <ji*****@jidanni.org> wrote in message

news:<87************@jidanni.org>...

This used to strip only the given tags:
$ striptag font div < file.html
but now it strips all tags. Something must have changed on my system. Help. $ cat striptag
use strict;
use HTML::Parser;
my $parser = HTML::Parser->new( text_h => [ sub { print shift; },"dtext" ]); $parser->parse_file(*STDIN);

You probably deleted the code that handles the command line arguments.
Nowhere do I see special handling of ARGV which in this case is font
and div.

or more likely, you have another version of the script lying around,
that deals with the tag selection.

gnari

[Dan Jacobson]

OK, done: http://jidanni.org/comp/striptag
striptag -- strip given tags out of HTML
Usage example: striptag font div < file.html

[Dan Jacobson]

OK, done: http://jidanni.org/comp/striptag
striptag -- strip given tags out of HTML
Usage example: striptag font div < file.html