Beefy Boxes and Bandwidth Generously Provided by pair Networks
Do you know where your variables are?

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

by Anonymous Monk
on Oct 03, 2012 at 09:12 UTC ( #997018=note: print w/replies, xml ) Need Help??

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

Well, what that guy said, could work, if the directory is not empty, then rmdir won't remove it, so
#!/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"; }

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

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

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://997018]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others exploiting the Monastery: (4)
As of 2017-12-11 06:43 GMT
Find Nodes?
    Voting Booth?
    What programming language do you hate the most?

    Results (287 votes). Check out past polls.