We use cookies to ensure you have the best browsing experience on our website. Please read our cookie policy for more information about how we use cookies.
  1. Prepare
  2. Regex
  3. Applications
  4. Building a Smart IDE: Identifying comments
  5. Discussions

Building a Smart IDE: Identifying comments

  • torobintu
     + 0 comments

    perl

    use warnings;
use strict;

my $mComment = 0;
while(<>){
    if(m|//|){
        print "$&$'";
    } elsif ( (/\/\*\*?/ && ($mComment = 1)) || $mComment == 1){ 
#set $mComment to 1 if match
        s/^\s+//g; #remove beginning spaces
        print;
        $mComment = 0 if(m%\*\*?/%);
    }
}