<commit_before>#!/usr/bin/perl
use strict;
use warnings;
use FindBin '$Bin';
## ALISAM TECHNOLOGY 2015
######################################################################################################################################################################################################
######################################################################################################################################################################################################
## DELETE / UNINSTALL TOOL
our ($uninstall, $scriptbash, $script, @TT, @c, @OTHERS, @DT);
if (defined $uninstall) {
  desclaimer();
  print $c[2]."$OTHERS[8]";
  print $c[10];
  my $resp=<STDIN>;
  chomp ($resp);
  if ($resp=~/(Y|y)/) {
    print $c[4]."$DT[31]\n";
    unlink $scriptbash if -e $scriptbash;
    my $df="/etc/bash_completion.d/atscan";
    unlink $df if -e $df;
    system "rm -rf $Bin";
    sleep(3);
    print $c[3]."$OTHERS[9]\n";
  }else{
    system("perl $script --updtd || atscan --updtd ");
    mtak(); ptak();
    print $c[4]."[!] $TT[13]\n";
  }
}
######################################################################################################################################################################################################
######################################################################################################################################################################################################
1;
######################################################################################################################################################################################################
######################################################################################################################################################################################################<commit_msg>Update uninstall.pl<commit_after>#!/usr/bin/perl
use strict;
use warnings;
use FindBin '$Bin';
## ALISAM TECHNOLOGY 2015
######################################################################################################################################################################################################
######################################################################################################################################################################################################
## DELETE / UNINSTALL TOOL
our ($uninstall, $scriptbash, $script, $scriptCompletion, @TT, @c, @OTHERS, @DT);
if (defined $uninstall) {
  desclaimer();
  print $c[2]."$OTHERS[8]";
  print $c[10];
  my $resp=<STDIN>;
  chomp ($resp);
  if ($resp=~/(Y|y)/) {
    print $c[4]."$DT[31]\n";
    unlink $scriptbash if -e $scriptbash;
    unlink $scriptCompletion if -e $scriptCompletion;
    system "rm -rf $Bin";
    sleep(3);
    print $c[3]."$OTHERS[9]\n";
  }else{
    system("perl $script --updtd || atscan --updtd ");
    mtak(); ptak();
    print $c[4]."[!] $TT[13]\n";
  }
}
######################################################################################################################################################################################################
######################################################################################################################################################################################################
1;
######################################################################################################################################################################################################
######################################################################################################################################################################################################
{'fraction_non_alphanumeric': 0.712205454064072, 'fraction_numerical': 0.009531374106433678, 'mean_word_length': 10.80625, 'pattern_counts': {'":': 0, '<': 5, '<?xml version=': 0, '>': 5, 'https://': 0, 'lorem ipsum': 0, 'www.': 0, 'xml': 0}, 'pii_count': 0, 'substrings_counts': 0, 'word_list_counts': {'cursed_substrings.json': 0, 'profanity_word_list.json': 0, 'sexual_word_list.json': 0, 'zh_pornsignals.json': 0}}
{'dir': 'git-commits-cleaned', 'id': '1848852', 'n_tokens_mistral': 804, 'n_tokens_neox': 669, 'n_words': 138}