Beefy Boxes and Bandwidth Generously Provided by pair Networks
Pathologically Eclectic Rubbish Lister
 
PerlMonks  

Re: How do I copy an empty directory?

by hominid (Curate)
on Oct 02, 2012 at 20:25 UTC ( #996909=note: print w/ replies, xml ) Need Help??


in reply to How do I copy an empty directory?

Create a new directory with the desired name and then delete the old directory.


Comment on Re: How do I copy an empty directory?
Re^2: How do I copy an empty directory?
by Anonymous Monk on Oct 03, 2012 at 00:59 UTC
    As mentioned in the original post, some directories are not empty. How would this deal with those?
      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?"
        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?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://996909]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others chilling in the Monastery: (11)
As of 2014-12-21 14:01 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Is guessing a good strategy for surviving in the IT business?





    Results (105 votes), past polls