Re: How to push and print at the same time?

Is there some reason why you can't just use a traditional if block (Basic BLOCKs)?

open(my $FOLDERS, '+>', "dirs.log") or die $!;
find(
    sub {
        if (-d $File::Find::name && !$seen{$_}++) {
            push @folders, "$_";
            print $FOLDERS "$_\n";
        },
    $cwd
);
[download]

Alternatively, since your push will always return true (a positive integer), you can create a compound statement with and, though that's getting a little cute I think.

open(my $FOLDERS, '+>', "dirs.log") or die $!;
find(sub { push @folders, "$_" and print $FOLDERS "$_\n" if -d $File::
+Find::name && !$seen{$_}++;
[download]

Comment on Re: How to push and print at the same time? Select or Download Code

Replies are listed 'Best First'.
Re^2: How to push and print at the same time? by ikegami (Patriarch) on Mar 22, 2011 at 16:02 UTC
`push @folders, "$_" and print $FOLDERS "$_\n"` [download] without relying on the value from `push` is `push(@folders, "$_"), print $FOLDERS "$_\n"` [download]	[reply] [d/l] [select]