Clean up Scripts Post: 302440384

Sponsored Content

Top Forums UNIX for Advanced & Expert Users Clean up Scripts Post 302440384 by treds on Tuesday 27th of July 2010 05:11:49 AM

07-27-2010

Registered User

Clean up Scripts

Hi
i have a perl script that i use to clean up empty folders on our server.
I need to make a amendment to this to exclude certain folders. Folders are invisible to end users but must not be cleaned up by this script.
folders i need protecting have unique names
.Highres
.HighresF
.Lowres
.lowresF

here is the script, can anyone help to modify please. I am not a scripting expert if fact not a scripting beginer :-)

Code:

#!/usr/bin/perl -w


use File::Find;
use File::Path;

my $path;


############################################################################
#       aList
# 	checks how many visible files in dir
##############################################################################
sub aList(){
my $cnt = 0;
my $filename;

	opendir(DIRHANDLE, $_) or die "couldn't open $_ : $!";
	while ( defined ($filename = readdir(DIRHANDLE)) ) {
	    #print "Inside $path is something called $filename\n";
	    if ($filename !~ /^\./){
		$cnt++;	
	    }
	}
	closedir(DIRHANDLE);

	return $cnt;
}

############################################################################
#       remDir
# 	controlled empty dir removal
##############################################################################
sub remDir()
{
    if ($_ !~ /^\./){
	if (-d $_){
		if (aList() eq 0){
			rmtree($_);
			printf "DEL $_ \n";
		}
		else{
			printf "KEEP $_ \n";
		}
	}
	else{
		print "file ".$_."\n";
	}
    }
}


##############################################################################
#	aCleanup
# 	pre-archive cleanup routine
##############################################################################
sub aCleanup(){
	print "start cleanup\n";
	
	if ($path eq ""){
		print "cleanup parameters not correctly supplied\n";
	}
	else{
		finddepth(\&remDir, $path);
	}
	print "archive move done\n";
}


##########################################################################
#
#              MAIN
##########################################################################

    if ($#ARGV >= 0){
    	print "set argv\n";
    	$path = $ARGV[0];
	print $path."\n";
    	aCleanup();

    }
    else{
	print "no args\n";
    }


Regards
Treds

Last edited by pludi; 07-27-2010 at 06:27 AM..

treds

View Public Profile for treds

Find all posts by treds

9 More Discussions You Might Find Interesting

1. AIX

Directory clean up

I want to write a script in ksh that will delete file that are more than 2 weeks old.

2. UNIX for Advanced & Expert Users

Clean an LV out of the ODM

I recently had a disk crash and was not able to clean the dump lv off the disk. Now trying to create new lvdump I am running into errors. My question is how do I remove the old lv out of the ODM? I have tried going through smit and also just rmlv and it cannot find the lv. Yet when I run lslv on...

3. Shell Programming and Scripting

clean up script

I have a script which would monitor a given directory and delete any files which are older than 10 days. I was going to set the 10 crob jobs to perform this operation for 10 different directories (some are actually sub-directories), but my boss doesn't like that idea, so I need to do that in one...

4. UNIX for Advanced & Expert Users

Clean File

BeginDate 07/01/06 End: 07/31/06 Cust: A02991 - Burnham 0002000 5,829,773 145.3 0009701 4,043,850 267.3 2005000 286,785.13 100.0 BeginDate 07/01/06 End: 07/31/06 Cust: A01239 - East Track PSE Index A 0009902 317,356.82 890.2 0020021 ...

5. Shell Programming and Scripting

clean /etc/hosts

hi all, i need to write a script. it should be able to clean the /etc/hosts file like this: first field is the ip (what else ;)) second field is the fqdn (full qualified domain name) third field is the hostname the fourth to n'th field is the rest. i hope you understand what is needed?...

6. UNIX for Dummies Questions & Answers

Help me clean this up

UNIX amature/novice. I've written a script (it works) that needs to be cleaned up. I'm searching for a way to perform a "go to , perform this then return" section of code. The books I have and searches i"ve done so far do not show me how to do this. I've pasted in the current code below. I've...

7. AIX

How to clean PV id?

When I run command: >chdev -l hdisk1 -a pv=clear It shows Method error (/etc/methods/chgdisk): 0514-062 Cannot perform the requested function because the specified device is busy. run: #>fuser -kxuc /dev/raw1 /dev/raw1: How to clean PV id?

8. Shell Programming and Scripting

How to clean this script?

Hello guys, this script partially works but it's still pretty ugly and, moreover, if the month is jan/feb/mar... it doesn't work at all. Could anyone say me how to correct, cut and clean a little bit? #!/usr/bin/ksh egrep -v -e "^\s*#" /file/permission | awk '{ print $1 }' | sort | uniq...

9. Shell Programming and Scripting

Clean up the space

Hi I just want to clean up the space in UNIX. Is there any special command that does this process or do I need to manually type the following rm <filename> Any help would be really appreciated. Thanks

LEARN ABOUT V7

flists

FLIST(1)							     [nmh-1.5]								  FLIST(1)

NAME

       flist, flists - list the number of messages in given sequence(s)

SYNOPSIS

       flist [+folder1 [+folder2 ...]]	[-sequence name1 [-sequence name2 ...]]  [-all | -noall] [-showzero | -noshowzero] [-recurse | -norecurse]
	    [-fast | -nofast] [-alpha | -noalpha] [-version] [-help]

       flists is equivalent to flist -all

DESCRIPTION

       Flist is used to search a list of folders and display the number of messages in these folders that are  in  a  given  sequence  or  set	of
       sequences (for example the "unseen" sequence). This is especially useful if you use some mechanism such as slocal or procmail (typically in
       conjunction with rcvstore) to pre-sort your mail into different folders before you view it.

       By default, the command flist will search the current folder for the given sequence or sequences (usually "unseen").  If  (possibly  multi-
       ple)  folders  are  specified  on the command line with +folder, then all these folders are searched for the given sequence(s).	Flist will
       display for each folder searched, the number of messages in each of the specified sequences, and the total number of messages.

       The option -sequence is used to specify the name of a sequence in which to search for.  This option may be used multiple times  to  specify
       multiple  sequences.   If this is not given, then the default is to search for all the sequences specified by the "Unseen-Sequence" profile
       component. For more details about sequences, read the mh-sequence(5) man page.

       Typically, flist will produce a line for each sequence, for every folder that is searched, even those which do not contain any messages	in
       the  given  sequence.   Specifying -noshowzero will cause flist to print only those folder/sequence combinations such the folder has a non-
       zero number of messages in the given specified sequence.

       If -recurse is given, then for each folder that is search, flist will also recursively descend into those folders to search subfolders  for
       the given sequence.

       If  -fast  is given, only the names of the folders searched will be displayed, and flist will suppress all other output.  If this option is
       used in conjunction with -noshowzero, then flist will only print the names of those folders searched that contain messages in in  at  least
       one of the specified sequences.

   Multiple Folders
       If  the	option	-all  is given (and no folders are specified with +folder), then flist will search all the folders in the top level of the
       users nmh directory.  These folders are all preceded by the read-only folders, which occur as "atr-cur-" entries in the user's nmh context.

       An example of the output of flist -all is:

	    /work/Mail	has  5 in sequence unseen (private); out of  46
	    inbox+	has 10 in sequence unseen	   ; out of 153
	    junklist	has  0 in sequence unseen	   ; out of  63
	    postmaster	has  1 in sequence unseen	   ; out of   3

       The "+" after inbox indicates that it is the current folder.

       The "private" flag indicates that the given sequence for that folder is private.  See the mh-sequence(5) man page for details about private
       sequences.

       If  the	option	-all  and +folder are both specified, then flist will search this folder, and all its first level subfolders for the given
       sequence.  You may specify multiple folders in this way.

       If flist is invoked by a name ending with "s" (e.g.  flists), then the switch -all is assumed by default.

       The sorting order for the listing is alphabetical (with -alpha), or in a priority order defined by the "Flist-Order"  profile  entry  (with
       -noalpha).   Each item in the "Flist-Order" is a folder name or a folder name pattern that uses * to match zero or more characters.  Longer
       matching patterns have precedence over shorter matching patterns.  For example:

	    Flist-Order: personal petproject mh* * admin *junk

       This order puts a few interesting folders first, such as those with mail addressed to you personally, those about a pet project, and  those
       about mh-related things.  It places uninteresting folders at the end, and it puts everything else in the middle in alphabetical order.

FILES

       $HOME/.mh_profile	  The user profile

PROFILE COMPONENTS

       Path:		    To determine the user's nmh directory
       mh-sequences:	    File that contains public sequences
       Unseen-Sequence:     The name of the unseen message sequence
       Flist-Order:	    To sort folders by priority

SEE ALSO

       folder(1), rcvstore(1), slocal(1), mh-sequence(5)

DEFAULTS

       `-sequence' defaults to Unseen-Sequence profile entry
       `-showzero'
       `-noall'
       `-norecurse'
       `-noalpha'
       `-nofast'

CONTEXT

       If  +folder  is	given,	it  will become the current folder.  If multiple folders are given, the last one specified will become the current
       folder.

MH.6.8								   11 June 2012 							  FLIST(1)