パターン一致のテキストのみを抽出する

Question

正規表現を使用して基本プログラムを作成しました。 しかし、マッチした部分の代わりに行全体が返されています。

番号を抽出したいだけです。

use strict; 
use warnings; 

my $line = "ABMA 1234"; 
$line =~ /(\s)(\d){4}/; 

print $line; #prints *ABMA 1234* 

正規表現は間違っていますか？

Answer 1

あなたは対応する値との正確な値を置き換えることができます。あなたはテキストを削除していません\w;あなたは、新しい文字列に値を格納する場合

use strict; 
use warnings; 

my $line = "ABMA 1234"; 
$line=~s/([A-z]*)\s+(\d+)/$2/; 

print $line; #prints only 1234 

(my $newstring = $line)=~s/([A-z]*)\s+(\d+)/$2/; 

print $newstring; #prints only 1234 

はこれを試してみてください。

Answer 2

あなたは1234を印刷したい場合、あなたは正規表現を変更し、第二試合を印刷する必要があります。

use strict; 
use warnings; 

my $line = "ABMA 1234"; 
$line =~ /(\s)(\d{4})/; 

print $2; 

Answer 3

私はPerlでの一致どのように出力知らないが、あなたは、出力のための正規表現の下に使用することができますあなたの正規表現の完全一致、現在の正規表現であなたの結果にスペースが追加されるかもしれません。

\b[\d]{4} 

DEMO