ディレクトリ配下を全て削除

# 引数：ディレクトリパス
# 戻値：成功ならば「0」
sub rmAllDir{
    my $dir = shift;
    my $file;
    opendir(DIR, $dir) or return($!);
    while( $file = readdir(DIR) ){
        next if( $file =~ /^\.{1,2}$/ );
        if( -d "$dir/$file" ){rmAllDir("$dir/$file");}
        else{unlink("$dir/$file") or return("$dir/$file");}
    }
    closedir(DIR);
    rmdir($dir) or return($!);
    return 0;
}