Vijay81 has asked for the wisdom of the Perl Monks concerning the following question:
Hi All, Am trying to print just directory and sub-directories names from the mentioned path. script reads directories recursively but it prints fullpath. I don't know how print just directory names or stored them in a array. Thanks for reading the post. Any help would be very greatful.
Main script :output now getting is :#! /usr/bin/perl use strict; use warnings; my $base_dir = 'C:\Input'; my @to_visit = $base_dir; while (@to_visit) { my $dir = pop(@to_visit); opendir(my $dh, $dir); my $file; while(defined($file = readdir($dh))) { next if $file eq '.'; next if $file eq '..'; $file = "$dir/$file"; if (-d $file) { push(@to_visit, $file); print $file; print "\n"; } else { } } }
In the above output, i don't want to print/save last blank line. expecting output to be stored in some array:C:Input/INT C:\Input/INT/CAD C:\Input/INT/CAD/MH C:\Input/INT/CAD/MH/COi C:\Input/INT/CAD/MH/Dit C:\Input/INT/CAD/MH/WMp
INT CAD MH COi Dit WMp
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: perl script to print just directory names
by toolic (Bishop) on Dec 06, 2012 at 20:25 UTC | |
Re: perl script to print just directory names
by blue_cowdawg (Monsignor) on Dec 06, 2012 at 20:33 UTC | |
Re: perl script to print just directory names
by davido (Cardinal) on Dec 07, 2012 at 00:41 UTC | |
Re: perl script to print just directory names
by Kenosis (Priest) on Dec 06, 2012 at 23:01 UTC | |
Re: perl script to print just directory names
by 2teez (Vicar) on Dec 06, 2012 at 21:19 UTC | |
Re: perl script to print just directory names
by Anonymous Monk on Dec 06, 2012 at 20:28 UTC | |
Re: perl script to print just directory names
by Vijay81 (Acolyte) on Dec 07, 2012 at 11:20 UTC | |
by marto (Cardinal) on Dec 07, 2012 at 11:47 UTC | |
Re: perl script to print just directory names
by Vijay81 (Acolyte) on Dec 07, 2012 at 14:53 UTC | |
Re: perl script to print just directory names
by Tommy (Chaplain) on Dec 09, 2012 at 21:53 UTC |
Back to
Seekers of Perl Wisdom