简单的Perl正则表达式

Question

嗨,我对Perl很新,现在正在寻求帮助来解析一行简单的代码.

我需要解析的是来自

#include "filename"

我只需要正则表达式来获取文件名.

我知道Python中的split方法可以做到这一点,不知道Perl中是否有类似的func

谢谢

Answer 1

my ($fn) = $include =~ /"([^"]*)"/;

要么

my ($fn) = $include =~ /^\s*#\s*include\s*"([^"]*)"/;