Here's one way of doing it:

#!/usr/bin/perl -w

use strict;

chdir('dir1');

open(my $fh, '<', 'list.name') or die("open() failed: $!");

my %all = map { $_ => undef } grep { -d } glob("*");
delete($all{$_}) for ( map { chomp; split(/,/, $_) } <$fh> );

system('rm', '-ir', $_) for (keys(%all));

__END__
format of dir1/list.name:

dir1,dir2,dir3,dir4,etc
dir10,dir11,
dir12,dir_x
[download]

in list.name file the entries are not seperated by ,(comma) they are placed in line by line manner such as there is one entry in one line and each entry corrospond to a directory name which is actually present in directort dir1

Well then, maybe next time you ask a question, you will specify more details. How was I supposed to know you had one entry per line? I just assumed comma-separated because that's the closest assumption I could make out of the original posting. In any case, the code I provided will work for a one-item-per-line file anyway. But here's a refactored version of the whole thing:

#!/usr/bin/perl -w

use strict;

chdir('dir1');

open(my $fh, '<', 'list.name') or die("open() failed: $!");

my %all = map { $_ => undef } grep { -d } glob("*");
delete($all{$_}) for ( map { chomp; $_ } <$fh> );

system('rm', '-ir', $_) for (keys(%all));

__END__
format of dir1/list.name:

dir1
dir2
dir3
dir4
dirx
[download]

my $file = 'list.name';
my @keepers;

open FILE, $file or die $!;
{
local $/ = ',';
my @keepers = <FILE>;
}
close FILE;

my %keepers = map { $_ => 1 } @keepers;

opendir(DIR, "./") or die $!;
my %current_dirs = map { $_ => 1 } readdir(DIR);
closedir DIR;

foreach my $dir (keys %current_dirs) {
   next unless (-d $dir);
   rmdir($dir) unless $keepers{$dir};
}
[download]

Read all the text and split and put in array and take all directory names in the mentioned direcory names and put in array. compare two and create an array and flow the array and delete the directories.

I have mentioned the below code

undef $/;
open(IN, "d:\\list.name")    ||    die"Cannot Open file\n";
$str = <IN>;
@arr = split(/,|\n/, $str);
opendir(DIN, "$ARGV[0]");
@rfiles = readdir(DIN);
closedir(DIN);

my %seen; # lookup table
my @aonly;# answer

@seen{@rfiles} = ();

foreach $item (@arr) {
    push(@aonly, $item) unless exists $seen{$item};
}
print @aonly;

rmdir("$dir\\$_") for (@aonly);
[download]

Gubendran

#!/usr/bin/perl

use strict;
use warnings;

my %have;
chomp, $have{$_}++ while <>;
rmdir or warn "Can't remove `$': $!\n"
  for grep /^t\d+$/ && !$have{$_} && -d, <*>;

__END__
[download]

1. you will be running it in the directory in which the directories are to be found with 'list.name' as a cmd line argument,
2. 'list.name' contains one entry per line,
3. the directories are empty.

Hi,

Try the following Modules

To find the specific file

File::Find

To remove the whole directory

File::Remove