Perl module File::Spec

use warnings; use strict;

use File::Spec;

use Cwd;

print "abs2rel\n";
print "-------\n";

       my $path_up_up = File::Spec->canonpath(cwd . '/../..');
       my $base       = File::Spec->canonpath($path_up_up . '/..');

print "\n" . File::Spec->abs2rel( $path_up_up        );
print "\n" . File::Spec->abs2rel( $path_up_up, $base );

print "\n\n"                           ;

print "canonpath\n";
print "---------\n";

print "\n" .                       cwd ;
print "\n" . File::Spec->canonpath(cwd);
print "\n" . File::Spec->canonpath(cwd . '/../..');
print "\n" . File::Spec->canonpath(cwd . '/../../README.md');
print "\n\n"                           ;

print "catdir\n";
print "------\n";

print "\n" . File::Spec->catdir(     '..', '..');
print "\n" . File::Spec->catdir(cwd, '..', '..');
print "\n" . File::Spec->catdir($0 , '..'      );
print "\n\n"                           ;

print "catfile\n";
print "-------\n";

print "\n" . File::Spec->catfile('..', '..', 'file.txt');
print "\n\n"                           ;

print "curdir\n";
print "------\n";

print "\n" . File::Spec->curdir        ;
print "\n\n"                           ;

print "devnull\n";
print "-------\n";

print "\n" . File::Spec->devnull       ;
print "\n\n"                           ;

print "rel2abs\n";
print "-------\n";

print "\n" . File::Spec->rel2abs('.')  ;
print "\n\n"                           ;

print "rootdir\n";
print "-------\n";

print "\n" . File::Spec->rootdir       ;
print "\n\n"                           ;

print "splitpath\n";  # See also fileparse() in File::Basename.
print "---------\n";

my ($drive, $path, $file) = File::Spec->splitpath($0);
print "\n" . $drive;
print "\n" . $path;
print "\n" . $file;
print "\n\n"                           ;

print "tmpdir\n";
print "------\n";

print "\n" . File::Spec->tmpdir        ;   #  See also File::Temp
print "\n\n"                           ;

print "updir\n";
print "-----\n";

print "\n" . File::Spec->updir         ;
print "\n\n"                           ;