Shell Programming and Scripting

dir1/abc.txt,dir2/test.xml,dir3/dfb.txt,dir4/text.xml

test1  
            ---dir1
                  abc.txt
                  def.txt
                  test.xml
                  test.csv
                  test.xml
            ---dir2
                  fgh.txt
                  jhk.txt
                  test.xml
                  test.csv
                  test.xml                   
            ---dir3
                  rth.txt
                  dfb.txt
                  test.xml
                  test.csv
                  test.xml
            ---dir4 
                  ert.txt
                  def.txt
                  test.xml
                  test.csv
                  test.xml

#!/usr/bin/perl
use strict;
use warnings;
use Getopt::Std;
use File::Find;

our ($opt_d, $opt_e);
getopt("de");
die "exclude is not defined (no parameter for -e)" unless defined $opt_e;
our $dir = $opt_d;
die "$dir is not a directory (wrong parameter for -d)" unless -d $dir;
our @exclude = split /,/, $opt_e;

finddepth(\&wanted, "$dir");

sub wanted {
  if (( ! grep {$File::Find::name eq "$dir/$_"} @exclude) && (-f $_)) {
    unlink $_;
  }
}

./script.pl -d/path/to/test1 -e"dir1/abc.txt,dir2/test.xml,dir3/dfb.txt,dir4/text.xml"

#!/usr/bin/perl
use strict;
use warnings;
use Getopt::Std;
use File::Find;

our ($opt_d, $opt_e);
getopt("de");
die "exclude is not defined (no parameter for -e)" unless defined $opt_e;
our $dir = $opt_d;
die "$dir is not a directory (wrong parameter for -d)" unless -d $dir;
our @exclude = split /,/, $opt_e;

foreach my $file (@exclude) {
  print "$dir/$file not found\n" if ! -f "$dir/$file";
}

finddepth(\&wanted, "$dir");

sub wanted {
  if (( ! grep {$File::Find::name eq "$dir/$_"} @exclude) && (-f $_)) {
    unlink $_;
  }
}