Help for this page

Select Code to Download


  1. or download this
    use File::Basename;
my $file = '/htdocs/project1/docs/file.html';
my $parent = basename(dirname($file));
print "$parent\n";
  2. or download this
    docs