Обработка отсуствия модуля

[djkostya]

#!/usr/bin/perl
use strict;
#use CGI::Carp qw(fatalsToBrowser);
use DBI;
use Template;
use Digest::MD5;
use XML::Simple;
use CGI qw( :standard );
use CGI::Session;
use CGI::Cookie;
use modules::Settings;
use modules::Validator;

print "Content-Type: text/html;\\n\\n";


Как выдать своё сообщения если например какого нибудь модуля нет в системе.....?

[2NetFly]

eval, require

[djkostya]

А можно по конкретней.....

[NeoNox]

perldoc -f eval

Пример:

sub check_lib
{
my ($module) = @_;
$result = eval("use $module; 1");

if ($result != 1)
{
print "Module error: $module", "Required module $module not found.";
}

}

check_lib("Benchmark");

[djkostya]

NeoNox ты гений...