ディレクトリ存在チェック
# 引数:ディレクトリパス、パーミッション # 戻値: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; } } }