Beefy Boxes and Bandwidth Generously Provided by pair Networks
We don't bite newbies here... much
 
PerlMonks  

Re: deleting directories

by bofh_of_oz (Hermit)
on Jul 20, 2005 at 17:55 UTC ( #476579=note: print w/ replies, xml ) Need Help??


in reply to deleting directories

Firstly, drop that main() prototype - it doesn't do anything besides cluttering the code...

You don't need to list directories by redirecting output of system to a file and reading it - use glob. Here's what you can do:

use strict; use warnings; use File::Glob; my @dirs; chdir "C:/builds/Vnet/crm"; for (glob("*")) {push @dirs, $_ if -d;} remove \1, $dirs[$_] for (0..$#dirs-5);
That's supposed to move to the vorking directory, get the list of the subdirectories, and delete everything but the last 5. Assuming you have them properly named, those last 5 directories are what you wanna see untouched.

 

Note: I never dealt with remove so I'm not sure if it works as you want it to... I tested it with print statement and it worked fine...

--------------------------------
An idea is not responsible for the people who believe in it...


Comment on Re: deleting directories
Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://476579]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others taking refuge in the Monastery: (12)
As of 2014-12-25 04:20 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Is guessing a good strategy for surviving in the IT business?





    Results (159 votes), past polls