Beefy Boxes and Bandwidth Generously Provided by pair Networks
Just another Perl shrine

Re: Re: copy files to another directory

by fruiture (Curate)
on Feb 19, 2003 at 13:46 UTC ( #236623=note: print w/replies, xml ) Need Help??

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 ;


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 ;)


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;

    Makeshifts last the longest.

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://236623]
[Corion]: Do you want to launch a script and keep the command prompt/console window open?
[Corion]: Do you want to wait for a key press before closing the window?
[LanX]: I want the command line in the history
[tye]: -Mouse
[Corion]: Option a) would mean launching cmd.exe /k c:\path\to\ batchfile- launching-perl- script.cmd. Option b) would be to add pause as the last line of said batch file.
[LanX]: First day after holidays ... and already stressed by the fact that colleagues changed stuff without communication ... apparently I'm the only one trying to fight entropy
[Corion]: LanX: The command is always in the history if you typed it in before. If you didn't type the command into the command line, it will not be there. I think there is doskey which can stuff command lines into the history
LanX damns the cult of CB ;-)
[LanX]: please forget my last 3 posts

How do I use this? | Other CB clients
Other Users?
Others examining the Monastery: (13)
As of 2017-03-27 15:46 GMT
Find Nodes?
    Voting Booth?
    Should Pluto Get Its Planethood Back?

    Results (320 votes). Check out past polls.