Re: Your idea on how to detect random directory names

What I have so far:


#!/usr/bin/env perl6

#`{
Clean up the useless to a back up directories in Brave Browser

$ ls ~/.config/BraveSoftware/Brave-Browser
  adcocjohghhfpidemphmcmlmhnfgikei   GrShaderCache
...
}

use lib '/home/linuxutil/p6lib';
use RunNoShellLib :RunNoShell;
use PrintColors :PrintRed, :PrintGreen, :PrintBlue, :PrintErr, 
:PrintRedErr, :PrintGreenErr, :PrintBlueErr;


( my $ProgramName   = $?FILE ) ~~ s|.*"/"||;
my Str $BaveDir     = %*ENV<HOME> ~ "/.config/BraveSoftware/Brave-Browser";
my Str $DirsToWhack = "";

for dir $BaveDir -> $Line  {
    # print $Line ~ "\n";
    if  $Line.chars != 79 || $Line.contains( "_" || "-" || " " )  {
       # print "Skip; chars = <" ~ $Line.chars ~ ">  Line = <$Line>\n";
       next;
    }

    # print $Line ~ "\n";
    ( my $DirName  = $Line ) ~~ s/ .* $( Q[/] ) //;
    if  $DirName.lc eq $DirName {
         $DirsToWhack ~= $Line ~ "\n";
         # print $DirName ~ "\n";
    }
}
# print "Whack directories\n$DirsToWhack\n";

if $DirsToWhack.chars > 0  {
    for $DirsToWhack.lines -> $Line  {
       # PrintBlue "removing <$Line>\n";
       PrintBlue "rm -rf $Line\n";
       RunNoShell "rm -rf $Line";
    }

} else {
    PrintGreen "No directories found to clean out (Whack)\n";
}

# With that, I shall "Whack" no more