Re: Alternative for a directory builder

in reply to Alternative for a directory builder

If the order doesn't matter, you could sucessively chop off stuff from the end. This prints the same as your code, but reversed:

my $_=$a;  say while s|[^/]+/*$||;

__END__
/aaaa/bbbb/cccc/dddd/
/aaaa/bbbb/cccc/
/aaaa/bbbb/
/aaaa/
/
[download]

But if order does matter (e.g. for mkdir purposes), you can of course also say

my @dirs;
my $_=$a;  push @dirs, $_ while s|[^/]+/*$||;
say for reverse @dirs;

__END__
/
/aaaa/
/aaaa/bbbb/
/aaaa/bbbb/cccc/
/aaaa/bbbb/cccc/dddd/
[download]

Comment on Re: Alternative for a directory builder Select or Download Code

Replies are listed 'Best First'.
Re^2: Alternative for a directory builder by cyber-guard (Acolyte) on Feb 22, 2011 at 19:39 UTC
This is really really sweet solution! Thanks a LOT. Might actually use it instead of my current code:)	[reply]

In Section Seekers of Perl Wisdom