This is a refactored script of mine. I use it in combination with a CGI to create project-folder-structures based on a xml-file named 'schema.xml'. I find it extremly usefull. Until now it is very basic, so it could be enhanced with more features. It expects a projectname as commandline parameter and an optional comment. 
#!/usr/bin/perl

use strict;
use warnings;
use XML::Simple;

die "No parameters - no folders!" unless (@ARGV >= 1);
my ($project, $comment) = @ARGV;

$_ = validate($_) for ($project, $comment); # do some basic validation
$project .= "_$comment" if ($comment);      # add a comment if exists

my $schema = get_schema();
my $base_dir = 'C:\testdir';

chdir $base_dir or die "Can't chdir to $base_dir: $!\n";
mkdir $project;
chmod $schema->{root}->{rights}, $project;  # no effect on win32
chdir $project or die "Can't chdir to $project: $!\n";
mkdir $_ for (@{$schema->{root}->{folder}});
exit;

sub validate {
  shift;
  s/^\s+//;
  s/\s+$//;
  s/\W//g;
  $_;
}

sub get_schema {
# returns schema.xml if it exists, else defaults.
  -e 'schema.xml'
  ? XMLin('schema.xml')
  :      { root => { rights => '0775',
                     folder => [ 'correspondence', 'photos',
                                 'drafts', 'charts', 
                               ]
                   }
         };
}

[download]
and the xml-file: 
<opt>
  <root rights="0775">
    <folder>correspondence</folder>
    <folder>photos</folder>
    <folder>drafts</folder>
    <folder>charts</folder>
    <folder>timesheets</folder>
  </root>
</opt>

[download]
neniro

In reply to Using perl for creating project folders by neniro

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.