perl directories

In Perl, you can manipulate directories using the built-in File::Path module. Here are some examples of how to create, remove, and check the existence of directories:

#!/usr/bin/perl

use strict;
use warnings;
use File::Path;

# Create a new directory
my $newdir = "example";
mkpath($newdir) or die "Failed to create directory: $!";

# Remove a directory
rmtree($newdir) or die "Failed to remove directory: $!";

# Check if a directory exists
if (-d $newdir) {
    print "Directory $newdir exists.\n";
} else {
    print "Directory $newdir does not exist.\n";
}

Here's what the code does:

1. First, we import the File::Path module, which provides functions for manipulating directories.

2. We then create a new directory using the mkpath function, which creates a directory and any necessary parent directories. If the function fails, it will print an error message using the die function.

3. Next, we remove the directory using the rmtree function. This function removes a directory and all of its contents. Again, if the function fails, it will print an error message using die.

4. Finally, we check if the directory exists using the -d operator. This operator returns true if the given path is a directory, and false otherwise. We print a message indicating whether the directory exists or not.

Note that we use the strict and warnings pragmas at the beginning of the script. These are best practices for writing robust and maintainable Perl code. The strict pragma enforces strict variable naming and scoping rules, while the warnings pragma emits warnings for potential issues in the code.