Perlを使用してWindowsでファイル名のないパスを取得するにはどうすればよいですか？

Question

私は、このような完全なパス持ってperlの

を通じてウィンドウにファイル名なしでパスを取得するために探しています：私のようなパスのみを必要とファイル名を取り除きたい

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