Beefy Boxes and Bandwidth Generously Provided by pair Networks
Your skill will accomplish
what the force of many cannot
 
PerlMonks  

Re^2: Why can't I create a directory with File::Spec

by smturner1 (Acolyte)
on Feb 11, 2014 at 19:09 UTC ( #1074477=note: print w/ replies, xml ) Need Help??


in reply to Re: Why can't I create a directory with File::Spec
in thread Why can't I create a directory with File::Spec

Ken, thank you for catching the error. I added it in the post, but it is not in the code I wrote. Please see new code:

use strict; use warnings; use diagnostics; use autodie; use File::Spec; use File::Path qw( make_path remove_tree ); #Set command line arguments my ($website, $old_ip, $new_ip) = @ARGV; #Set vars my $volume = 'C:/'; + my $ARCHIVE = File::Spec->catpath($volume, qw(Desktop), $website, $ +old_ip, $TIMESTAMP); my $TIMESTAMP = strftime("%Y%m%d%H%M", localtime); my @WEBSITES = qw( three five calnet-test ); #Creates the new dir in archive sub initialize { make_path ($ARCHIVE); return; } initialize;


Comment on Re^2: Why can't I create a directory with File::Spec
Download Code

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others lurking in the Monastery: (14)
As of 2015-07-03 12:37 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (53 votes), past polls