Perl 搜索并捕获行后

Question

好吧，这可能是一个很容易回答的问题，但我正在努力解决。我试图让我的程序捕获某个单词之后的所有内容，然后打印它。例如，如果输入文本是

酒吧富富富富富

如果我正在搜索 bar，我希望输出为“foo foo foo foo”。我希望我的问题有意义。任何帮助将不胜感激！我对 Perl 很陌生，所以你能给出的解释越多越好。谢谢！

Answer 1

#! /usr/bin/env perl

*ARGV = *DATA;  # for demo only

while (<>) {
  print "line $.: $1\n" if /bar\s+(.+)/;
}

__DATA__
you can't see me
bar foo foo foo foo
nope

输出：

第 2 行：foo foo foo foo