从外部命令中检索输出的最后一行

Question

我已将脚本的输出存储在$ a变量中，从这个变量我只想要最后一行，我应该用什么来从这个变量中获取最后一行？

Answer 1

以下内容避免了首先收集所有输出：

open(my $pipe, '|-', @cmd);
my $last_line;
$last_line = $_ while <$pipe>;
close($pipe);

Answer 2

怎么样：

my ($last) = $str =~  /.+\R(.+)$/;