/* 和 */ 的字符串匹配答案

【问题标题】：String Matching for /* and *//* 和 */ 的字符串匹配
【发布时间】：2009-12-16 02:43:03
【问题描述】：

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

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

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

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

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

第 1 行：

/* MY TXT File */

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

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

下面是我的代码。

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

LINE1 和 LINE2 将被视为评论。

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

^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

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

谢谢。

【问题讨论】：

我不得不问你为什么要解析出/* 和*/？如果您正在使用一种新语言解析某些脚本，您应该为该语言创建一个专门的解析器。如果是配置文件，请使用其中一种成熟的格式，例如 YAML 或 JSON。
我打算将一个大尺寸的 txt 文件转换为 XML 文件。 txt 文件中有一些 /* */ 注释行。我必须解析它并添加 XML 注释 "" 样式。新的 XML 文件更容易阅读。

标签： regex perl

【解决方案1】：

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

将匹配前两个字符为 /* 且后两个字符为 */ 的行。

【讨论】：

@Nano，请务必注意，Anon 的建议在正则表达式中使用 {} 而不是 //。它使正则表达式更易于阅读。
另请注意，与大多数正则表达式解决方案一样，如果您的源代码中碰巧有一个包含"/* comments */" 的字符串，这将失败。如果这是一个问题，则需要一个解析器。
/*MY TXT 文件/ -- * 和 M 之间没有空格，现在可以正常使用了。 / MY TXT 文件 */ -- * 和 M 之间有一个或多个空格，无效。如何处理？谢谢。
除非您的脚本中的其他内容破坏了输入，否则无论如何这应该可以正常工作。
我认为你并没有真正理解我写的内容。所以这次我会直截了当地说：我发布的正则表达式将处理这两种样式。您的脚本中的其他地方有问题，或者文本文件在开始/结束之前/之后有字符。

【解决方案2】：

看到这个FAQ。不要忽略与给定模式匹配的文本，而是捕获它。

或者，您可以试一试String::Comments::Extract。见[String::Comments::Extract::C->collect( <source> )](http://search.cpan.org/perldoc/String::Comments::Extract#String::Comments::Extract::C-%3Ecollect(%3Csource%3E).

【讨论】：

【解决方案3】：

有一个令人难以置信的 CPAN 模块可以帮助解决这个问题，Regexp::Common::comment。使用起来非常简单：

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";
}

您应该能够轻松地扩展它以涵盖多行 cmets。

【讨论】：