Perl에서 변수의 발견 된 텍스트를 설정하는 방법

Question

단어를 검색 할 텍스트 문자열이 있습니다.

변수를 발견 된 단어로 설정해야합니다.

내 검색 단어 내가 변수에 일치하는 하위 문자열을 둘 필요가 NY

Cat dog Jim NY You

내 텍스트가된다.

#!/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);이 필요합니다.