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

Question

我有一个文字字符串，我想搜索一个单词。

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

我的文字是Cat dog Jim NY You

我的搜索字是NY

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

#!/usr/bin/perl

$x = "Cat dog Jim NY You";

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

Answer 1

使用捕获（Ctrl + K）。

(...)

顺便说一下，总是使用if ( my ($capture) = $x =~ /(NY)/ ) { say $capture; } 。

上述程序还需要use strict; use warnings qw( all );。