__ __ __ __ _____ _ _ _____ _ _ _
| \/ | \ \ / / | __ \ (_) | | / ____| | | | |
| \ / |_ __\ V / | |__) | __ ___ ____ _| |_ ___ | (___ | |__ ___| | |
| |\/| | '__|> < | ___/ '__| \ \ / / _` | __/ _ \ \___ \| '_ \ / _ \ | |
| | | | |_ / . \ | | | | | |\ V / (_| | || __/ ____) | | | | __/ | |
|_| |_|_(_)_/ \_\ |_| |_| |_| \_/ \__,_|\__\___| |_____/|_| |_|\___V 2.1
if you need WebShell for Seo everyday contact me on Telegram
Telegram Address : @jackleet
For_More_Tools:
#!/usr/bin/perl -w
#################################################################################
#
# Perl module checker 0.0.3
#
#################################################################################
#
# This Perl script checks for installed modules by trying to 'use' the
# module. If the check fails, then the module is not present.
#
# If you want to install additional modules, use:
# > perl -MCPAN -e shell
# > install [module name]
#
# If the first one fails, please install the perl-CPAN package first
#
# Upgrade CPAN if possible:
# > install Bundle::CPAN
# > reload cpan
#
# Digest modules:
# > install Digest::MD5
# > install Digest::SHA
# > install Digest::SHA1
# > install Digest::SHA256
#
#################################################################################
use strict;
my $check = "0";
# Modules to check
my @modCheck = qw(
Digest::MD5
Digest::SHA
Digest::SHA1
Digest::SHA256
);
# Use command-line module names if present.
@modCheck = @ARGV if (@ARGV);
for (@modCheck)
{
if (installed("$_"))
{
print "$_ installed (version ",$check,").\n"
}
else
{
print "$_ NOT installed.\n"
}
}
#########################################
#
# SUB: Installed modules
#
#########################################
sub installed
{
my $module = $_;
# Try to use the Perl module
eval "use $module";
# Check eval response
if ($@)
{
# Module is NOT installed
$check = 0;
}
else
{
# Module is installed (reset module version to '1')
$check = 1;
my $version = 0;
# Try to retrieve version number (by using eval again)
eval "\$version = \$$module\::VERSION";
# Set version number if no problem occurred
$check = $version if (!$@);
}
# Return version number
return $check;
}
exit();
# The end