Help for this page

Select Code to Download


  1. or download this
    use Cwd qw(abs_path);
use File::Basename qw(dirname);
 
my $dir_parent = abs_path(dirname(__FILE__) . '/../');
  2. or download this
    use File::Spec;

...
    
    File::Spec->catpath($vol, $dir);
};
  3. or download this
    use File::Basename qw(dirname);
use File::Spec;
...
        '..'
    )
);