如何在使用Perl的Windows中獲得沒有文件名的路徑？

Question

我期待通過Perl來獲取路徑，而不在Windows中的文件名

我有這樣的完整路徑：

c:\My_Designs\ipcore_script\test\src\IP_CORE\mux\sus.do

我只需要路徑和要剝離，如文件名：

c:\My_Designs\ipcore_script\test\src\IP_CORE\mux

Answer 1

使用File::Basename

> perl -MFile::Basename -wE "say dirname(qq(c:/perl/bin/perl.exe));" 
c:/perl/bin 

Answer 2

您還可以使用Path::Class：

#!/usr/bin/env perl 

use strict; 
use warnings; 

use Path::Class; 

my $file = file('c:\My_Designs\ipcore_script\test\src\IP_CORE\mux\sus.do'); 

print $file->parent, "\n"; 

輸出：

C:\My_Designs\ipcore_script\test\src\IP_CORE\mux

Answer 3

你也可以試試這個

$path='c:\My_Designs\ipcore_script\test\src\IP_CORE\mux\sus.do'; 

my $pathname=substr($path, 0, rindex($path,"\\")); 

Result: 
c:\My_Designs\ipcore_script\test\src\IP_CORE\mux