How can I get the path without the filename in Windows using Perl?

Question

I am looking to get the path without the filename in windows through perl

I have the full path like this:

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

I need only the path and want to strip off the filename like:

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

Answer 1

Use File::Basename

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

Answer 2

You can also use 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";

Output:

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