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