如何使用perl从文件中搜索和提取注释行？

Question

我是Perl编程的新手。需要您的帮助，只能从文件中搜索和提取注释行。以下是一个例子

{
    This is line 1
    /*This is line 2
    This is line 3
    This is line 4*/
    This is line 5
}

我只想从上面的文件中搜索和提取注释行。

Answer 1

你可以使用这样的正则表达式：

\/\*([\s\S]*?)\*\/

<强> std::tie

代码

my $str = 'you string';
if ( $str =~ /\/\*([\s\S]*?)\*\// ) {
    print "Comment: $1";
}

正如Working demo在评论中指出的那样，您可以使用带s标记的点（单行）代替[\s\S]，因此您可以将正则表达式更改为：

\/\*(.*?)\*\/