Perlのプリントがマッチした正規表現の文字列

Question

は、次のPerlコードのみ（1 & 0）

#!/usr/bin/perl 
use strict; 
use warnings; 

my $string; 

$string ="interface Ethernet1/20 
    shutdown"; 

my $test = $string =~ m/^.+$(?=\s+shutdown)/mg; 
print "'$test'\n"; 

が、私は戻って取得戻って真または偽与え1. しかし、どのように私は戻って取得することができますマッチした文字列「インターフェースethernet1/20 '？ ご協力ありがとうございます！

Answer 1

単にそれをリストコンテキストを与える：

my ($test) = $string =~ m/^.+$(?=\s+shutdown)/mg; 

評価コンテキスト（スカラー対リスト）の概念はPerlプログラミングの基本ですので、いくつかのチュートリアルおよび/またはリファレンスマニュアルを見直す時間がかかるかもしれません。