[MacPerl-AnyPerl] removing jsp-comments (c/c++/html)

[allan]

hello

does anyone have a code snip lying around to remove c/c++
and possibly html comments as used in jsp?
there is an example in the friedl book to remove c/c++, but
either i type wrongly or it doesn't work.

it should be bullet proof enough to take care of the example below.

thanks
../allan

<script>
function javaScriptFunction() {
        var i = 0;
        if (i == 0) {
        /* javascript comments
                var j = 10;
                // if (i == 1) {
                <%
                / * jsp code */
                int d = 100; // some java comments
                %> 
        */
                var j = 11; // more javascript-comments
        }
}
</script>
<!-- start table comments-->
<table>
        <tr>


result should be:


<script>
function javaScriptFunction() {
        var i = 0;
        if (i == 0) {
                var j = 11;
        }
}
</script>
<table>
        <tr>