Programming Tips & Tutorials

###############################################################################
# Subroutine: mkdir
#
# Function that emulates unix's "mkdir -p"
#
# Arguments: Scalar String - the path in question
#
# Returns: Scalar - either an integer representing the number of new directories created or an error message
sub mkdir($) {
my $path = shift;
my $err_msg;
# attempt a 'mkdir -p' on the provided path and catch any errors returned
my $mkdir_out = make_path( $path, { error => \my $err } );
# catch and return the error if there was one
if (@$err) {
for my $diag (@$err) {
my ( $file, $message ) = %$diag;
$err_msg .= $message;
}
print "$err_msg";
} else {
print "$mkdir_out";
}
} ## end sub mkdir($)