use File::Path; rmdir $_ for reverse mkpath [ join( "/", ("foo") x 1000 ) ], 0, 0755;

Makeshifts last the longest.

Replies are listed 'Best First'.
Re: There's nothing left deep down inside
by Zaxo (Archbishop) on Jan 26, 2004 at 06:54 UTC

    Heh!

    mkdir foo: File exists at -e line 1 $
    ;-)

    After Compline,
    Zaxo

Re: There's nothing left deep down inside
by CountZero (Bishop) on Jan 26, 2004 at 06:37 UTC
    It's probably just me, but what's so poetic about it?

    CountZero

    "If you have four groups working on a compiler, you'll get a 4-pass compiler." - Conway's Law