Perl 正则表达式帮助答案

【问题标题】：Perl Regex HelpPerl 正则表达式帮助
【发布时间】：2010-07-17 00:37:41
【问题描述】：

我正在寻找匹配文件中带有前缀的字符串

/**

并且有一个后缀

*/

中间有任意数量的字符/空格/换行符。

例如：

/** anything
    anything
*/

到目前为止，我有m/(\/\*\*).*?(\*\/)/，但这不处理换行符。我知道修复必须简单，但我的正则表达式经验非常有限。
额外问题：有没有人有一个学习正则表达式的好网站？

【问题讨论】：

标签： regex perl

【解决方案1】：

在其后添加s modifier：

m/(\/\*\*).*?(\*\/)/s

但如果你操作的是源代码，请小心：

print 'a string /**';
int a = b + c;
print '*/';

// /**
a = a - c;
// */

如果要学习正则表达式，确实只有一个在线资源：http://www.regular-expressions.info/

【讨论】：

【解决方案2】：

不使用 /s 和 make '.'行为不同，以下也应该起作用：

m/(\/\*\*)(\r?\n|.)*(\*\/)/

有学习perl的地方吗？

但是，如果您不喜欢阅读有点无聊的手动样式的内容。试试 Jeffrey Friedl 的 O'Reilly 的 Mastering Regular Expressions，它更有趣。

【讨论】：

【解决方案3】：

您的特定正则表达式（带有换行符）可以与\/\*\*[\d\D]*?\*\/ 匹配\D 的副作用是它匹配换行符并且可以以这种方式使用。

在 Perl 中，您还可以使用 Regexp::Common 来查找各种源代码 cmets。

已经提到了一些最好的链接（Friedl 的书和http://www.regular-expressions.info/）

我的正则表达式网站如下：

【讨论】：