Thanks Everyone.
able to get just directory names using File::Basename.
but can please someone show me how to store these basenames in some sort of array so that i can use them later part in the code.
Main script:
#! /usr/bin/perl
use strict;
use warnings;
use File::Basename;
use Data::Dumper;
my $base_dir = 'C:Input/INT';
my @dir = $base_dir;
my @dir_names;
while (@dir) {
my $dir = pop(@dir);
opendir(my $dh, $dir);
my $file;
while($file = readdir($dh)) {
next if $file eq '.';
next if $file eq '..';
$file = "$dir/$file";
if (-d $file) {
push(@dir, $file);
print basename($file);
#@dir_names=basename($file);
print "\n";
} else {
}
}
}
getting output as :
CAD
MH
COi
Dit
WMp
Instead of that i need to store the directory base names in array say @dir_names and print them one by one like
$dir_names[0] = CAD
$dir_names
1 = MH
$dir_names
2 = COi
..
..
..