regex - perl - 使用正则表达式获取子字符串

Question

我确实意识到 SO 上有很多 perl 正则表达式问题；我一直无法找到一个可以帮助我解决我的情况。我有以下字符串:

string = "dn: example\nl: example\ndepartment: example\nname: example"

我正在尝试使用以下方法提取每个字段(dn 除外):

my ($name) = $output_string =~ /name:\s(\w+)\n/;
my ($department) = $output_string =~ /department:\s(\w+)\n/;
my ($location) = $output_string =~ /location:\s(\w+)\n/;

我一定不了解如何使用正则表达式，因为这对我不起作用。每个变量都以未定义结束。我做错了什么？

Answer 1

添加 m标志打开多行模式，然后使用行首和行尾 anchor 来匹配字符串中行的开始/结束:

my ($name)       = $output_string =~ /^name:\s(\w+)$/m;
my ($department) = $output_string =~ /^department:\s(\w+)$/m;
my ($location)   = $output_string =~ /^location:\s(\w+)$/m;