使用Perl去除c++文件中的注释

先来个好用的版本

while(<>)
{
        $file .=$_;
}
print $file;
print "New file is ";
#@left=(m{(^(\/\/).*)|(^(\/\*)(\w|\s)*(\*\/)$)}s);

$file=~s{(^(//).*)|(^(/\*)(\w|\s)*(\*/)$)}{}mg;
print $file;

$file=~s{(^(//).*)|(^(/\*).*(\*/)$)}{}gs;
Learning Perl 上说加s参数可以使得.识别\n符号，但这里不起作用

$file=~s{(^(//).*)|(^(/\*)(\w|\s)*(\*/)$)}{}gs;
不起作用

$file=~s{(^(//).*)|(^(/\*).*(\*/)$)}{}mgs;
更不好用。。。