Question

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

bar foo foo foo foo

然后我希望输出为“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

输出：

line 2: foo foo foo foo

之后的Perl搜索和捕获线

1 个答案: