Anonymous

#!/usr/bin/perl
use warnings;
use strict;

my @file_remove = glob ( '/tmp/finder/*' );
foreach my $file(@file_remove)
{
        print `rm -f $file`;
}
my @dirs = glob ('/home/*' );
my @non_guardare = ( '/home/nagios', '/home/roby' );
my @dir_pulite = ();

foreach my $dir ( @dirs )
{
        push ( @dir_pulite, $dir )
                unless ( grep { $dir eq $_ } @non_guardare );
}

foreach my $ok(@dir_pulite)
{
        print `find $ok -iname \"\*.mp3\" -or -iname \"\*.cda\" -or -iname \"\*.wav\" -or -iname \"\*.wma\" -or -iname \"\*.wmv\" -or -iname \"\*.avi\" -or -iname \"\*.mpg\" -or -iname \"\*.mov\" -or -iname \"\*.wmf\" -or -iname \"\*.mp4\" -or -iname \"\*.vob\" -or -iname \"\*.mpeg\" >> /tmp/finder/trovati`;
}

my @contenuto = `cat /tmp/finder/trovati`;
foreach my $file(@contenuto)
{
        chomp ($file);
        my $stat=(stat($file))[7];
        print "$stat\t$file\n";
}