use File::Basename;

# in your loop...

            print basename($file);
[download]

See also:

• File::Find
• File::Find::Rule

 
use [mod://File::Find::Rule]; my @dirs = find( directory =>in =>[ 'C:\
+Input' ]);
[download]

What extra line? Just tested your code on my system and don't see an extra line. There *is* however a "blank line" between the last line the script generates and the command line prompt but I think that's a function of the shell.

Some more comments:

Not sure why you are doing this:

while(defined($file = readdir($dh)))
[download]

while($file = readdir($dh))
[download]

You do realize your array is going to be empty when your loop is done?

Hi Vijaay81,
As previously mentioned by toolic and others post before this. I also support using the module File::Find, which could reduce the number of lines of codes you write by half, if not more.
Something like so:

use strict;
use warnings;
use File::Find;

find( sub { return if $_ eq '.' or $_ eq '..'; print $_, $/ if -d }, '
+.' );

#OR
my @dir;

find(
    sub {
        return if $_ eq '.' or $_ eq '..';
        if (-d) {
            print $_, $/;    # just to test
            push @dir, $_;   # updated
        }
    },
    '.'                      # this can be your "C:\Input"
);

use DDP; p @dir; 
[download]

Find::File::Rule can assist with this. It is recursive:

use strict;
use warnings;
use File::Find::Rule;

my $base_dir = 'C:\Input';
my @dirs = File::Find::Rule->directory->in( $base_dir );

print $_, "\n" for @dirs;
[download]

perldoc perlfaq5: How do I traverse a directory tree?

Here's an example:

use Data::Dumper;
use File::Find;

my $path = '/home';
my @dirs;

{
  no warnings; # Squelch 'permission denied' warning, etc.

  find(
    sub {  push @dirs, $File::Find::name  if -d && ! /^\.\.?$/  },
    $path
  )

}

print Dumper \@dirs;
[download]

Save yourself some time; spend a half-hour familiarizing yourself with the topics addressed in Perl's FAQ by reading perlfaq, and then refer back to it as needed.

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.

#! /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 {
 
      }
   }
}
[download]

CAD
MH
COi
Dit
WMp
[download]

"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."

Consider reading and understanding the code you've posted, you already do this for a different array/value:

push(@dir, $file);
[download]

So rather than print the value of basename($file) to screen push the value of basename($file) into @dir_names.Read push, http://learn.perl.org.

Update: slight clarification.

Use File::Util; my $f = File::Util->new();

my @dirs = $f->list_dir('C:\Input', qw( --dirs-only --recurse --with-p
+aths ));
[download]