#!/usr/bin/perl -w ########################################################## # Ingo Strauch, 2000 (strauch@toots.physik.rwth-aachen.de) ########################################################## # # delbackups.pl 0.2.1 (27-Jun-2000) # # Dieses Skript durchsucht das aktuelle Verzeichnis und alle # seine Unterverzeichnisse nach Backupdateien, die auf '~' # enden und löscht diese (speziell auf emacs Backupdateien # zugeschnitten aber prinzipiell beliebig anpassbar) # ########################################################## use Term::ReadKey; open(TTY, "