ディレクトリ存在チェック

# 引数：ディレクトリパス、パーミッション
# 戻値：1=既に存在、又は作成完了
# 　　　0=ディレクトリ作成失敗
sub chkDir{
   local($dir,$dir_prm) = @_;
   if(-d "$dir"){
      return 1;
   }else{
      if(mkdir("$dir",0777)){
         chmod $dir_prm, "$dir";
         system "touch $dir/index.html";
         return 1;
      }else{
         return 0;
      }
   }
}