Help for this page

Select Code to Download


  1. or download this
    open(PFILE, "Activatepasswords.txt")|| die "Cannot open patterns1.txt 
+file"; my 
@PatternArray=<PFILE>; 
close(PFILE);
pop @PatternArray if $PatternArray[-1] eq "\n";
@PatternArray = grep /\s/, @PatternArray;
  2. or download this
    
my $passwordKey = $pass1;
...
  my $count = $passwordKey;
  $frequency{$count}++;
 }
  3. or download this
    my %PassValues;
@PassValues{@PasswordsArray}=();
...
print "Not count\n";;
}