如何使用 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]*?)\*\/

工作演示

代碼

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

正如鮑羅丁在他的評論中指出的那樣，您可以使用帶有s標志（單行）的點而不是[\\s\\S] ，因此您可以將正則表達式更改為：

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