first commit

readdirtest.pl

@@ -0,0 +1,36 @@
+#!/usr/bin/perl -w
+use warnings;
+use File::Slurp qw(:std);
+use File::stat;
+use File::Path;
+use Data::Printer;
+
+my $folder = 'D:\\Test\\code insider\\';
+my @folders;
+push @folders, $folder;
+
+for my $fold ( @folders ) {
+	opendir my $dh, "$fold";
+	my @fol = readdir $dh;
+
+	for my $d ( @fol ) {
+		if ( $d =~ /^\.|^\.\./ ) {
+			next;
+		}
+
+		if ( -d "$fold$d" ) {
+			if ( $d ne 'data' ) {
+				# remove_tree("$fold$d");
+			} else  {
+				rmtree( "$fold$d\\user-data\\Cache", {keep_root => 1} );
+				rmtree( "$fold$d\\user-data\\GPUCache", {keep_root => 1} );
+				rmtree( "$fold$d\\user-data\\CachedData", {keep_root => 1} );
+				rmtree( "$fold$d\\user-data\\CachedData-x64", {keep_root => 1} );
+			}
+		} else{
+			# unlink("$fold$d");
+		}
+	}
+}
+
+1;