perl正則表達式幫助匹配不同的數字值

Question

尋找這個perl正則表達式的幫助。

我需要提取（3）從這個文件名的項目：abc101.name.aue-abc_p002.20110124.csv

ABC 101。名稱。 aue -abc_p 002 .20110124.csv

其中項目（3）在本例中002，也可以是4位的最高0002

這是我工作的非正則表達式：

while (my $line=<>) { 
    chomp $line; 
    if ($line =~ m/abc(d{3}).name.(w{3})_p([0-9]).[0-9].csv/) { 
     print $1; 
     print $2; 
     print $3; 
    } 
    } 

Answer 1

while (my $line=<>) { 
    chomp $line; 
    if ($line =~ /^abc(\d{3})\.name\.(\w{3})-abc_p(\d{1,4})\.\d+.csv$/) { 
    print $1; 
    print $2; 
    print $3; 
    } 
} 

Answer 2

你缺少了幾個加號（或{}量詞）和轉義點： abc(d{3})\.name\.(w{3})_p([0-9]{3,4})\.[0-9]+\.csv/

Answer 3

未經測試：/^abc(\d{3})\.name\.([a-z]{3})-abc_p(\d{1,4})\.\d+\.csv$/