in reply to copy files to another directory

Hi, seems a bit complicated for just doing a copy function, why not try, something like this: 
#! usr/bin/perl -w
use File::Copy;
my @list = <C:\LOCATION\*.rtf>;
foreach my $file(@list){
copy ($file,"C:\Temp\");
}

[download]
However, if you wanted to save on the typing you could use a system call (DOS version shown below, I think this'll probably be slower though), you could write this like: 
#! usr/bin/perl -w
system ("copy /y LOCATION\\*.rtf C:\Temp");

[download]
this just uses a DOS copy command (the /y is just so that you're not prompted when a file is being overwritten)
Regards
Martymart

Replies are listed 'Best First'.
Re: Re: copy files to another directory
by jasonk (Parson) on Feb 19, 2003 at 14:19 UTC

    I would suggest not doing something like this, for the following reasons:

    #! usr/bin/perl -w
# missing a /, although it doesn't matter on DOS

use File::Copy;
my @list = <C:\LOCATION\*.rtf>;
# You seem to be looking for files named 'LOCATION*.rtf',
# which probably doesn't exist, putting a backslash in
# front of the * makes it a literal *, it isn't a glob
# anymore, and I'm not sure what \L will get you, but it
# probably won't be the letter L.
 
foreach my $file(@list){
copy ($file,"C:\Temp\");
# \t is a tab, this will fail, unless you actually
# have a directory called 'C:(tab)emp', read perlfaq5
# and always use forward slashes, even in dos

}

    [download]

    As for the dos version, it doesn't even really contain any perl, just put the copy command in a batch script.

[reply]
[d/l]

In Section Seekers of Perl Wisdom