Path Validation

Validate a path string before using it for IO.

path_validation.pl

use strict;
use warnings;

my $path = ;
my $status;

if ($path =~ /\.\./) {
    $status = "reject parent path";
} elsif ($path !~ /\.txt$/) {
    $status = "reject extension";
} else {
    $status = "safe path";
}

print "path=$path\n";
print "status=$status\n";

use strict;
use warnings;

my $path = ;
my $status;

if ($path =~ /\.\./) {
    $status = "reject parent path";
} elsif ($path !~ /\.txt$/) {
    $status = "reject extension";
} else {
    $status = "safe path";
}

print "path=$path\n";
print "status=$status\n";

use strict;
use warnings;

my $path = ;
my $status;

if ($path =~ /\.\./) {
    $status = "reject parent path";
} elsif ($path !~ /\.txt$/) {
    $status = "reject extension";
} else {
    $status = "safe path";
}

print "path=$path\n";
print "status=$status\n";

path validation Path validation rejects names that do not fit the program's rules.