Re: Re: copy files to another directory

[fruiture]

in reply to Re: copy files to another directory
in thread copy files to another directory

I'd rewrite:

my @files    = grep { !-d } @allfiles ;
my @dirs     = grep {  -d } @allfiles ;

As

my (@files,@dirs);
for( @allfiles ){
    if( -d catfile( $line , $_ ) ){
        push @dirs,$_
    }
    else {
        push @files,$_
    }
}

Not for cosmetics, but for efficiency and even more to make it work ;)

--
http://fruiture.de

[Aristotle]

to make it work

Doh, touché. I didn't even spot that one. That said, I offer

push @{ -d catfile($line,$_) ? \@dirs : \@files }, $_
    for @all_files;

Makeshifts last the longest.