使用perl捕获函数名称

Question

我想创建一些标题的模拟文件。我想用Perl脚本执行此操作，但我无法检索函数名称。

我需要找到一个正则表达式，它将整个函数名称转换为Debug到public virtual Function，或Function转换为private Function*。

Answer 1

尝试

$FuncName =~ s/\s*\w*\s*\w+(&|\*|(&\*|\*&)?)?\s+((\*&|&\*)|&|\*)?(\w+)((\*&|&\*)?|&|\*)?\s*/$5/;

这应该删除$FuncName

中存储的名称旁边的所有内容

 # virtual const *foo -> foo 

 # int foo& -> foo 

 # public virtual*& foo*& -> foo