What is the best way in Perl to copy files into a yet-to-be-created directory tree?

Question

What is the best way in Perl to copy files to a yet-to-be-created destination directory tree?

Something like

copy("test.txt","tardir/dest1/dest2/text.txt"); 

won't work since the directory tardir/dest1/dest2 does not yet exist. What is the best way to copy with directory creation in Perl?

Answer 1

use File::Path; use File::Copy;  my $path = "tardir/dest1/dest2/"; my $file = "test.txt";  if (! -d $path) {   my $dirs = eval { mkpath($path) };   die "Failed to create $path: $@\n" unless $dirs; }  copy($file,$path) or die "Failed to copy $file: $!\n";