仅在 Perl 中进行一次匹配
Perl 中有一个更简单的 match 运算符 - ?PATTERN? 运算符。它基本上与 m// 运算符相同,只是它仅在每次调用 reset 之间在您搜索的字符串中匹配一次。
例如,您可以使用它来获取列表中的第一个和最后一个元素 −
范例
#!/usr/bin/perl @list = qw/food foosball subeo footnote terfoot canic footbrdige/; foreach (@list) { $first = $1 if /(foo.*?)/; $last = $1 if /(foo.*)/; } print "First: $first, Last: $last\n";
当执行上述程序时,将产生以下结果 −
First: foo, Last: footbrdige
广告