http://qs1969.pair.com?node_id=367601


in reply to Parent directory - regex

With a regex, I'd do this, but I would ordinarily use File::Basename to do this:

my ($parent) = "/dir1/dir2/dir3/ .. /dirLast//" =~ m#^(.*)/.*?//$#;