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


in reply to Parent directory - regex

Here's a way to do it with a regex


#!\usr\bin\perl

use strict;
my $myDirectory;
my $parent;

$myDirectory = "/dir1/dir2/dir3/dir4/dirLast//";

# with '/' after dirLast
($parent) = $myDirectory =~ m#(.+)/#;
print "$parent\n";

# without '/' after dirLast
($parent) = $myDirectory =~ m#(.+)//#;
print "$parent\n";

exit;

[download]

davidj

In Section Seekers of Perl Wisdom