Find centralized, trusted content and collaborate around the technologies you use most.
Teams
Q&A for work
Connect and share knowledge within a single location that is structured and easy to search.
以下Perl代码删除了 C 多行注释:
Perl
sub StripMultilineComments { my $string=shift(); $string =~ s#/\*.*?\*/##sg; #strip multiline C comments return $string; }
由于我对Perl正则表达式很陌生,所以我并不完全了解它是如何工作的。
好吧,说它有效有点夸大其词。例如,
char* s1 = "/*"; char* s2 = "*/";
变成
char* s1 = "";
和
// /* i = 5; // */
//
也就是说,
$string
替换运算符使用的模式匹配
/
*
.*?
由于非贪婪修饰符 ( ?),第三个原子匹配它可以(在所需位置)的最小字符数。
?