perl-scripts/File Workers/delete_if_exists.pl

#!/usr/bin/perl

# Author: Daniel "Trizen" Șuteu
# License: GPLv3
# https://github.com/trizen

#
# Delete files from $delete_dir if exists in $compare_dir (or its sub-directories)
#
# Usage: perl delete_if_exists.pl /delete/dir /compare/dir
#

use strict;
use warnings;

use File::Find qw(find);
use File::Spec::Functions qw(rel2abs catdir);

my $delete_dir = rel2abs(shift);
my $compare_dir = rel2abs(shift || die "usage: $0 [delete_dir] [compare_dir]\n");

find sub {
    return unless -f;
    my $delete_file = catdir($delete_dir, $_);
    if (-f $delete_file) {
        print unlink($delete_file)
          ? "** Deleted: $delete_file\n"
          : "[!] Can't delete $delete_file: $!\n";
    }
} => $compare_dir;