Perl

Demonstrate Directory Path Functions

Demonstrates the path functions GetDirectoryName, GetExtension, GetFileName, and GetFileNameWithoutExtension. Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

my $fac = Chilkat2::FileAccess->new;

# Note: Chilkat accepts either forward slash or backslash chars as directory separators..
print $fac->GetDirectoryName('/MyDir/MySubDir/myfile.ext'), "\n";
print $fac->GetDirectoryName('/MyDir/MySubDir'), "\n";
print $fac->GetDirectoryName('/MyDir/'), "\n";
print $fac->GetDirectoryName('/MyDir'), "\n";
print $fac->GetDirectoryName('/'), "\n";

print $fac->GetExtension('C:/mydir.old/myfile.ext'), "\n";
print $fac->GetExtension('C:/mydir.old/'), "\n";

print $fac->GetFileName('C:/mydir/myfile.ext'), "\n";
print $fac->GetFileName('C:/mydir/'), "\n";

print $fac->GetFileNameWithoutExtension('C:/mydir/myfile.ext'), "\n";
print $fac->GetFileNameWithoutExtension('C:/mydir/'), "\n";

print "---\n";