如何在 Perl 的变量中设置找到的文本

Question

我有一个要搜索单词的文本字符串。

我需要为找到的单词设置一个变量。

我的短信是Cat dog Jim NY You

我的搜索词是NY

我需要将匹配的子字符串放入一个变量中。

#!/usr/bin/perl

$x = "Cat dog Jim NY You";

if ( $x=~/NY/ ) {
    print "???\n";
}

Answer 1

使用捕获 ((...))。

if ( my ($capture) = $x =~ /(NY)/ ) {
    say $capture;
}

---

顺便说一句，总是使用use strict; use warnings qw( all );。

上述程序还需要use feature qw( say );。