Forum Webscript.Ru

Программирование => Perl => Тема начата: djkostya от 16 Апреля 2006, 23:24:04

Название: Обработка отсуствия модуля
Отправлено: djkostya от 16 Апреля 2006, 23:24:04

#!/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 от 17 Апреля 2006, 01:32:18

eval, require

Название: Обработка отсуствия модуля
Отправлено: djkostya от 17 Апреля 2006, 08:11:07

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

Название: Обработка отсуствия модуля
Отправлено: NeoNox от 17 Апреля 2006, 12:07:29

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 от 17 Апреля 2006, 13:17:32

NeoNox ты гений...