Как я могу получить путь без имени файла в Windows, используя Perl?

Question

Я ищу, чтобы получить путь без имени файла в Windows через 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

Использовать Файл :: Базовое имя

> 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