Just another Perl shrine | |
PerlMonks |
Re: How to Get the Last Subdirectoriesby liverpole (Monsignor) |
on Mar 11, 2010 at 21:47 UTC ( [id://828144]=note: print w/replies, xml ) | Need Help?? |
Hi bichonfrise74,
I would just use opendir and readdir recursively to scan the subdirectories yourself, and save the subdirectory only when it doesn't contain any subordinate subdirectories. For example:
s''(q.S:$/9=(T1';s;(..)(..);$..=substr+crypt($1,$2),2,3;eg;print$..$/
In Section
Seekers of Perl Wisdom
|
|