regex - パターンの最初の一致を取得するには?

Question

以下の文字列から c999752_ABC_PAT だけを取得するにはどうすればよいですか?

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

Answer 1

または、Eammonが提案したものを使用します。

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

Answer 2

この正規表現を使用できます

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

Group1あなたのデータをキャプチャします

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";