in reply to Removing XML comments with regex

Is this good enough ? 
while (<>) {
    $line=$_;
    chomp $line;
    $StartTag='<!--';
    $EndTag='-->';
        if (($line =~ m/\Q$StartTag\E/) .. ($line =~ m/\Q$EndTag\E/)){
            $Flag=0;
        }
        elsif (($line =~/<!--/) || ($line =~/-->/)){
            $Flag=0;
        }
        else {
            $Flag=1;        
        }
            
            if($Flag){
              print "$line\n";            
            }
  
}

[download]
(: Life is short enjoy it :)

Replies are listed 'Best First'.
Re^2: Removing XML comments with regex
by tuxz0r (Pilgrim) on Oct 24, 2007 at 19:44 UTC
    I did the following (barring corner cases as mentioned previously) and it seems to strip comments just fine: 
    cat t.xml | perl -e '$/ = ""; $_ = <>; s/<!--.*?-->//gs; print;'

    [download]
    which gave the output: 
    <Node_A>
    
    <Node_B>
        
        <Node_C>
        </Node_C>
        
        
    </Node_B>
</Node_A>

    [download]
[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom