http://www.perlmonks.org?node_id=236623


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