Re^3: How do I copy an empty directory?


Pathologically Eclectic Rubbish Lister
	PerlMonks

Re^3: How do I copy an empty directory?

by hominid (Priest)

on Oct 03, 2012 at 02:08 UTC ( [id://996958]=note: print w/replies, xml )

Need Help??

in reply to Re^2: How do I copy an empty directory?
in thread How do I copy an empty directory?

The question, smartass, was "How can I move the empty directory named "empty" at the end of the path to c:\temp for example to make c:\temp\empty?"

Comment on Re^3: How do I copy an empty directory?

Replies are listed 'Best First'.

Re^4: How do I copy an empty directory?
by Anonymous Monk on Oct 03, 2012 at 09:12 UTC

rmdir

#!/usr/bin/perl --
use Path::Class::Rule;
my $source  = dir( 'x:\this\directory\name\is\empty' );
my $newdir = $dd->basename;
my $destination = dir( 'C:\temp' );

if( rmdir $dd ){
    my $newdir = dir( $destination, $newdir );
    if( mkdir $newdir ){
    } else {
        warn "Couldn't mkdir $newdir : $! $^E \n restoring $source ";
        mkdir $source or die "FAILED $! $^E";
    }
} else {
   die "Couldn't rmdir $dd : $! $^E";
}
[download]

Naturally this doesn't try to preserve permissions or anything like that

File::Copy::move should also work with empty dirs

[reply]
[d/l]

In Section Seekers of Perl Wisdom