problems moving files

[smanicka]

Hello,

I am trying to write a code that would copy or move files to a new location.Here is the problem.I want the script to create the folders if they are not already present and I am not sure as to how to go about.I need them to be created on the fly and not hard coded as

$xyz= md c:\\dump\\new folder;
system($xyz);

Any idea on how to do this? Thanks -Sandhya

[CountZero]

A combination of Path::Class and File::Copy will do the trick.

use Path::Class;
my @dirs = qw/path to my directory/;
my $path  = my $dir = Path::Class::Dir->new(@dirs);
$path->mkpath; #creates the directories as necessary

Since $path stringifies to the path, it can be used as an argument in the move function of File::Copy:

use File::Copy;
move('file_to_move', $path);

By using Path::Class and File::Copy you do not have to worry about what kind of directory separator to use and your script will be truly portable.

[roboticus]

smanicka:

Rather than shell out to the operating system to do it, you could just use the function mkdir(), like:

mkdir("C:\\dump\\new folder") or die $!;

In general, when you find yourself getting ready to ask the operating system to do something for you, you may want to browse through "perldoc perlfunc" and find out what's already there for you. (CPAN, of couse, is another great place to find tasks that have already been done for you.)

...roboticus

[MidLifeXis]

system(@xcopycommand), File::Xcopy

[poolpi]

See *copy and *move from File::Copy::Recursive



hth,
PooLpi