=**************************************
    = Name: Multiple Files delete
    = Description:I came up with this proble
    =     m at my work. I needed to delete more th
    =     an 1000 files at once, but rm -f *.* wou
    =     ld not do it cause of the quantity, so i
    =     made this little program. Great for begi
    =     ners.
    = By: Forunculo
    =
    =This code is copyrighted and has    = limited warranties.Please see http://w
    =     ww.Planet-Source-Code.com/vb/scripts/Sho
    =     wCode.asp?txtCodeId=537&lngWId;=6    =for details.    =**************************************
    
    #!/usr/bin/perl
    #By Forunculo
    #thanks to Ney
    $folder="/var/spool/clientmqueue/"; #directory to be deleted
    %files = ();
    $x=0;
    opendir(DIR, $folder); #open the directory for reading
    foreach(readdir(DIR)) #read from the directory
    {
    $file=$_;
    if (-d $folder.$file) #if it's a folder don't count it
    {
    }
    else
    {
    $files{$x} = $file; # add each file to the hash
    $x++;
    }
    }
    if ($x eq 0) #if there are no files on the directory
    {
    print "\nThe directory you specified is empty\n\n";
    exit;
    }
    print "You are going to delete $x files\n";
    print "Press S to show the files or D to delete Q to quit : ";
    $x=0;
    $ans = <STDIN>;
    if ($ans eq "S\n" or $ans eq "s\n") #if yes, just display the hash
    {
    foreach (keys %files)
    {
    print "$files{$x}\n";
    $x++;
    }
    print "\nDo you still want to delete them? ";
    $anse = <STDIN>;
    if ($anse eq "Y\n" or $anse eq "y\n")
    {
    deleteme()
    }
    }
    if ($ans eq "D\n" or $ans eq "d\n")
    {
    deleteme()
    }
    else
    {
    print "\nNo files were deleted\n";
    }
    #-----------------Sub----------------
    #This baby does all the work
    sub deleteme
    {
    $x=0;
    foreach (keys %files)
    {
    print "Deleting file $files{$x}\n"; #print the name of the file
    unlink ("$folder$files{$x}"); #delete it
    $x++;
    }
    print "\nDone deleting files. Total files deleted : $x\n";
    exit;
    }