|
|
@ -36,6 +36,7 @@ foreach $file (@files) |
|
|
|
{ |
|
|
|
{ |
|
|
|
my @urls; |
|
|
|
my @urls; |
|
|
|
my $url; |
|
|
|
my $url; |
|
|
|
|
|
|
|
my $somme_total_found = 0; |
|
|
|
open(TXT, '<', $file) or die $!; |
|
|
|
open(TXT, '<', $file) or die $!; |
|
|
|
while(<TXT>){ |
|
|
|
while(<TXT>){ |
|
|
|
my $url = $_; |
|
|
|
my $url = $_; |
|
|
@ -61,13 +62,15 @@ foreach $file (@files) |
|
|
|
# Results |
|
|
|
# Results |
|
|
|
foreach (uniq(@found)) { |
|
|
|
foreach (uniq(@found)) { |
|
|
|
$total_found++; |
|
|
|
$total_found++; |
|
|
|
print "\033[33m" . $total_found . "\t\t" . $_ . "\n"; |
|
|
|
print "\033[33m[" . $total_found . "]\t\t" . $_ . "\n"; |
|
|
|
} |
|
|
|
} |
|
|
|
if ($total_found == 0) { |
|
|
|
if ($total_found == 0) { |
|
|
|
print "\033[32m" . $total_found . "\t\t=> " . $survey. "\n"; |
|
|
|
print "\033[32m[" . $total_found . "]\t\t=> " . $survey. "\n"; |
|
|
|
} else { |
|
|
|
} else { |
|
|
|
print "\033[31m" . $total_found . "\t\t=> " . $survey. "\n"; |
|
|
|
print "\033[31mTREATH [" . $total_found . "]\t=> " . $survey. "\n"; |
|
|
|
} |
|
|
|
} |
|
|
|
|
|
|
|
my $somme_total_found = $somme_total_found + $total_found; |
|
|
|
} |
|
|
|
} |
|
|
|
close(TXT); |
|
|
|
close(TXT); |
|
|
|
|
|
|
|
print "\033[36mTotal TREATH detected \t\t=> [" . $somme_total_found . "]\n\n"; |
|
|
|
} |
|
|
|
} |
|
|
|