my $outFileDirectory = "./bin";
if (-d @outFileDirectory ) {
print "There is a directory --> " . $outFileDirectory . "\n" ;
}
else {
print "There is a no such directory --> " . $outFileDirectory . "\n" ;
}
####
There is a no such directory --> ./bin
####
use strict;
use warnings;
my $outFileDirectory = "./bin";
if (-d @outFileDirectory ) {
print "There is a directory --> " . $outFileDirectory . "\n" ;
}
else {
print "There is a no such directory --> " . $outFileDirectory . "\n" ;
}
####
Global symbol "@outFileDirectory" requires explicit package name at x.pl line 7.
Execution of x.pl aborted due to compilation errors.