#!/usr/bin/perl -p0777 # # htdecom -- remove html comments from a document # tchrist@perl.com # # taken from the larger striphtml program require 5.002; s{ <! # comments begin with a `<!' # followed by 0 or more comments; (.*?) # this is actually to eat up comments in non # random places ( # not suppose to have any white space here # just a quick start; -- # each comment starts with a `--' .*? # and includes all text up to and including -- # the *next* occurrence of `--' \s* # and may have trailing while space # (albeit not leading white space XXX) )+ # repetire ad libitum XXX should be * not + (.*?) # trailing non comment text > # up to a `>' }{ if ($1 || $3) { # this silliness for embedded comments in tags "<!$1 $3>"; } }gesx; # mutate into nada, nothing, and niente