/ *和* /的字符串匹配

Question

我有一个包含以下各行的文本文件：

/* MY TXT File LINE */
/* MY TXT File LINE MORE */

constant private FileName = <A "C:\\TMP\\ALARM.TXT">

constant ConfigAlarms = <U1 0>    /*  Comment Here*/

我不知道如何分隔注释行（ /* something */ ）：

LINE1：

/* MY TXT File */

LINE2 ：（实际上，我认为该行不是真正的注释行。）

constant ConfigAlarms = <U1 0>    /*  Comment Here*/

我的代码如下。

if ($val =~ /\/\*/){
    print "<!-- $line -->";
    print "\n";
}

LINE1和LINE2将被视为注释。

我用Google搜索并找到了以下信息。

^f     # f at the beginning of a line
^ftp   # ftp at the beginning of a line
e$     # e at the end of a line
tle$   # tle at the end of a line

但是我不知道如何将/*与^和$字符结合起来以改进我的代码以解析以/*开头并以*/结尾的行

谢谢。

Answer 1

m{^/\*.*\*/$}

将匹配以/*作为前两个字符并以*/作为后两个字符的行。

Answer 2

请参阅此常见问题解答 。 捕获它，而不是忽略与给定模式匹配的文本。

另外，您可以给String :: Comments :: Extract一个镜头。 参见[ String::Comments::Extract::C->collect( <source> ) ]（ http://search.cpan.org/perldoc/String::Comments::Extract#String::Comments::Extract： ：C-％3Ecollect（ ％3Csource％3E ） 。

Answer 3

Regexp :: Common :: comment有一个令人难以置信的CPAN模块可以帮助解决这个问题。 使用它非常容易：

use Regexp::Common qw /comment/;

while (<>) {
    /$RE{comment}{C}/       and  print "Contains a C comment\n";
    /$RE{comment}{C++}/     and  print "Contains a C++ comment\n";
    /$RE{comment}{PHP}/     and  print "Contains a PHP comment\n";
    /$RE{comment}{Java}/    and  print "Contains a Java comment\n";
    /$RE{comment}{Perl}/    and  print "Contains a Perl comment\n";
    /$RE{comment}{awk}/     and  print "Contains an awk comment\n";
    /$RE{comment}{HTML}/    and  print "Contains an HTML comment\n";
}

use Regexp::Common qw /comment RE_comment_HTML/;

while (<>) {
    $_ =~ RE_comment_HTML() and  print "Contains an HTML comment\n";
}

您应该能够轻松地将其扩展为涵盖多行注释。