in reply to Re: How to get sub-folder names using Perl?
in thread How to get sub-folder names using perl?

@Athanasius, thanks for your reply. Your code works. Sorry. But I didn't understand its some parts:
my $result_path = $dir . '/results';
where, why did you use point . there?
next unless -d
Also I didn't understand what this part does.
chdir $dir . '/' . $subdir;
And this . '/' . part? Thanks in advance,

Replies are listed 'Best First'.
Re^3: How to get sub-folder names using Perl?
by Athanasius (Archbishop) on Mar 08, 2015 at 06:30 UTC

    Hello erhan,

    (1) In Perl there are two ways to concatenate strings:

    1. The dot operator: see perlop#Additive-Operators
    2. Double-quote interpolation: see perlop#Quote-and-Quote-like-Operators

    In the present case, my $result_path = $dir . '/results'; has the same effect as my $result_path = "$dir/results";, so the choice between them is merely stylistic. But as a general rule, it’s best to avoid double-quote interpolation if you don’t need it: see Whats-wrong-with-always-quoting-vars of perlfaq4.

    (2) The line next unless -d $subdir; causes the foreach loop to skip to the next iteration (i.e., to ignore the current value of $subdir) unless the current $subdir is a directory (and not a file, a symbolic link, etc.). It uses the -d function which is documented in functions/-X.

    (3) The line chdir $dir . '/' . $subdir; contains two more concatenation operators, and is equivalent to:

    chdir "$dir/$subdir";

    Hope that helps,

    Athanasius <°(((><contra mundum Iustus alius egestas vitae, eros Piratica,