Re: Trimming Paths with regexes

[demerphq]

my $path='/foo/bar';
my @dirs=split(/\//,$path);
$"='/'; $\="\n";
while (@dirs) {
    my $str="@dirs" || "/";
    print $str;
    pop @dirs;
}

outputs

/foo/bar
/foo
/

Yves