#deletes MP3 files noted in the sifted MP3 log
# usage: deletemp3.pl mp3[enter]

use strict;
my $infile="//workstation/share/serverlogs/media/sifted/$ARGV[0].txt";
my $outfile="//workstation/share/serverlogs/media/sifted/$ARGV[0]-deleted.txt";
my %filehash;
open IN, "$infile" or die "Cannot open $infile for write :$!";
my @input=<IN>;
close IN;

foreach (@input){
	my ($file,$size)=split /\t/;
	$filehash{$file}=$size;
}
foreach (sort keys %filehash){
     if(-e){
        unlink "$_" or warn "\ncan't delete $_:$!\n";
        print "$_ deleted\n";
    }else{
        print"file does not exist\n"
    }
}
rename $infile, $outfile;