perlでディレクトリ操作
#ディレクトリ操作 #ディレクトリ内のファイルフォルダ一覧取得 opendir(DIR, "/home/aaa"); @file = readdir(DIR); closedir(DIR); foreach (@file) { print "$_\n"; } #ディレクトの存在チェック if(-e "./data"){ print "ディレクトリ作成処理実行なし\n"; }else{ #ディレクトリ作成 if(mkdir("data",0755)){ print "ディレクトリ作成成功.\n"; }else{ print "ディレクトリ作成失敗.\n"; } }