如何獲得模式的第一個匹配項？

Question

如何從下面的字符串獲取c999752_ABC_PAT？

$file = q(M:\c999752_ABC_PAT\Informatica_AVOB\ABC_infa\dummy\TestDeliver.txt); 

Answer 1

你可以使用這個表達式

^.*?\\(.*?)\\.*$ 
| | |  |->matches till the end 
| | |->your content matched till the first occurance of \ 
| |->match lazily till the first \ 
|->start of the text 

Group1捕獲數據

Answer 2

或者使用什麼Eammon建議：

my $firstPart = (split /\\/, $file)[1]; 

Answer 3

use File::Spec::Win32; 

my $file = q(M:\c999752_ABC_PAT\Informatica_AVOB\ABC_infa\dummy\TestDeliver.txt); 
my ($volume, $directories) = File::Spec::Win32->splitpath($file); 
my @directories = File::Spec::Win32->splitdir($directories); 

print $directories[1], "\n";