Help for this page

Select Code to Download


  1. or download this
    my $_=$a;  say while s|[^/]+/*$||;

...
/aaaa/bbbb/
/aaaa/
/
  2. or download this
    my @dirs;
my $_=$a;  push @dirs, $_ while s|[^/]+/*$||;
...
/aaaa/bbbb/
/aaaa/bbbb/cccc/
/aaaa/bbbb/cccc/dddd/