最初の数字を取得するためのPerl正規表現

Question

値がValidation_File_2_3.45.2017.csvの文字列があります。

この場合、正規表現を使用して2番目の数字を抽出するにはどうすればよいですか？物事のカップル

($Filedigit)= ($Filename =~ m/^[0-9]/g); 

：

私は表現($Filedigit) = ($Filename =~ m/^[0-9]/g)を試してみましたが、それはコメントで

Answer 1

を動作しませんでした、あなたはこれを試してみましたと述べました。 常には、特にキャプチャを試みるときにスクリプトを続行する前に、マッチが成功したことを確認する必要があります。次に、^は文字列の先頭から見て、すぐにグローバルに1桁の数字0-9を探します。これは、ファイル名が2_blah.csvの場合を除き、一致しません。しかし、実際には何もキャプチャしようとしていないので、一致した場合は$Filedigitがすべて1になります（一致したことを示す）。正規表現の

use warnings; 
use strict; 

my $str = 'Validation_File_2_3.45.2017.csv'; 

# confirm there's a match 

if (my ($num) = $str =~ /^.*?(\d+)/){ 
    print "$num\n"; 
} 
else { 
    print "no match\n"; 
} 

説明：：だから

^ - start from beginning of string 
.*? - anything, non-greedy 
( - begin capture 
\d+ - any number of contiguous digit chars 
) - end capture 

、それは文字列の先頭から開始し、最初のセットの前に何かを捨てここ

は何をしたいんだ例連続した桁数を取得し、それらをキャプチャして変数に格納します。

perlreftutおよびperlreを参照してください。