Help for this page

Select Code to Download


  1. or download this
    my $pwd = `pwd`;
print $pwd;
my ($parent_dir) = $pwd =~ m|^(.*)/[^/]+.*$|g;
print $parent_dir;
  2. or download this
    /home/myself/develop/0_test
/home/myself/develop