Re: Re: copy files to another directory

I'd rewrite:

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

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

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

--
http://fruiture.de

Comment on Re: Re: copy files to another directory Select or Download Code

Replies are listed 'Best First'.
Re^3: copy files to another directory by Aristotle (Chancellor) on Feb 19, 2003 at 14:34 UTC
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;` [download] Makeshifts last the longest.	[reply] [d/l]


We don't bite newbies here... much
	PerlMonks