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";
    }
}