6 lines
103 B
Perl
6 lines
103 B
Perl
|
my @directories = grep { chomp; -d } `ls`;
|
||
|
|
for (@directories) {
|
||
|
|
chomp;
|
||
|
|
...; # Operate on directories
|
||
|
|
}
|