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 ;

[download]

As

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

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]

In Section Seekers of Perl Wisdom