perl ディレクトリの作成

#指定したディレクトリが存在するかどうか調べ、存在しない時は新しく作成する
#指定したディレクトリを作成
#mkdir.pl

print "作成するディレクトリ名を指定してください>";
$directory = <STDIN>;
chomp($directory);

if(!-d $directory){
    #ディレクトリがまだない
    #ディレクトリを作成
    mkdir($directory, 0755) || die "$directoryを作成できません:$!\n";
}else{
    #既に存在
    print "$directoryは既に存在します。\n";
}

#実行結果
# $ perl mkdir.pl
# 作成するディレクトリ名を指定してください>newDirectory
# $ perl mkdir.pl 
# 作成するディレクトリ名を指定してください>newDirectory
# newDirectoryは既に存在します。