Re: perl script to print just directory names

[2teez]

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;

Update:
Please, you would need module Data::Printer, installed for this line use DDP; p @dir; to work.
Hope this helps.