############################################################################
# Copyright (C) 2005 by fradeff@akademia.ch #
# #
# This program is free software; you can redistribute it and#or modify #
# it under the terms of the GNU General Public License as published by #
# the Free Software Foundation; either version 2 of the License, or #
# (at your option) any later version. #
# #
# This program is distributed in the hope that it will be useful, #
# but WITHOUT ANY WARRANTY; without even the implied warranty of #
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
# GNU General Public License for more details. #
# #
# You should have received a copy of the GNU General Public License #
# along with this program; if not, write to the #
# Free Software Foundation, Inc., #
# 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. #
############################################################################
#!/usr/bin/perl
#rm all emacs backup files *.*~ or *~
foreach $file (<*~>) { # step through a list of .~ files
unlink($file) || warn "having trouble deleting $file: $!";
}
foreach (<*.*~>) { # step through a list of .o files
unlink || warn "having trouble deleting $_: $!";
}
foreach (<#*.*#>) { # step through a list of .o files
unlink || warn "having trouble deleting $_: $!";
}
foreach (<*.[Bb][Aa][Kk]>) { # step through a list of .o files
unlink || warn "having trouble deleting $_: $!";
}
foreach (<*.[Tt][Mm][Pp]>) { # step through a list of .o files
unlink || warn "having trouble deleting $_: $!";
}
perl /home/radeff/bin/killbak.pl
#program to kill recursively all emacs, quanta & so backup files
find . -name "*~" -exec rm {} \;