Поймать исключение

[McZim]

Всем привет. Суть вопроса: у меня есть несколько десятков перловых скриптов, которым нужны установленные перловые модули. Что бы каждый раз самому не ставить эти модули и не хранить где список этих модулей я решил отлавливать тот момент когда скрипт завершается с ошибкой о не найденном какой то перловом модуле.

С помощью Ромки, получилась вот такая конструкция:

Код:

cat /etc/perl/test1.pm

#!/usr/bin/perl

eval
{
     require $_;
};

open(STDERR, "> logfile.log") or die "Error, i'm can't open log file...";

if($@)
{
    $@ = ~m/"^Can't locate ([^.]+)pm in @INC"/;

    print STDERR "Module '$1' is absent!\n";

    print "FUCK, $@\n"; //это для теста ниже виден результат.

    exec 'perl -MCPAN -e \'install "$mod_name"\'';
}

close(LOGFILE);
return 1;

Код:

 cat test2.pl

#!/usr/bin/perl

use test1;
#use Navigator;
use Logging;

print "FUCK YOU MAMONT";

выполняем:

Код:

sudo perl test2.pl

FUCK, 4294967295
CPAN: Storable loaded ok
Going to read /home/mczim/.cpan/Metadata
  Database was generated on Mon, 18 Aug 2008 01:02:45 GMT
Warning: Cannot install , don't know what it is.
Try the command

    i //

to find objects with matching identifiers.

FUCK, 4294967295 --вот это расположено в $@ очень странно, тут должна храниться ошибка.

В общем чего я хочу? Я хочу в переменной $@ отловить ошибку, выбрать из нее название модуля и запустить установку оного.

[McZim]

так, если сделать вот так то все нормально в $@ есть нужная ошибка.

Код:

cat /etc/perl/test1.pm

#!/usr/bin/perl

eval
{
     require '/home/mczim/main/perl/test2.pl';
};

#open(STDERR, "> logfile.log") or die "Error, i'm can't open log file...";

if($@)
{
#    $@ = ~m/"^Can't locate ([^.]+)pm in @INC"/cgimosx;

#    print STDERR "Module '$1' is absent!\n";
    print "FUCK, $@\n";

#    exec 'perl -MCPAN -e \'install "$1"\'';
}

#close(LOGFILE);

т.е. вот это:

Код:

eval
{
     require $_;
};

заменил на это:

Код:

eval
{
     require '/home/mczim/main/perl/test2.pl';
};

хм, но мне не нужно знать какое имя у файла, мне нужно получаться любое имя на вход. За это как раз отвечает переменная $_, как быть?

[McZim]

так выяснил, что вот это:

Код:

eval
{
     require $_;
};

совершенно тут не причем,

проблема вот в этой строке:

Код:

$@ = ~m/"^Can't locate ([^.]+)pm in @INC"/;

разбираюсь...

[McZim]

Имя модуля я вынимаю, пока что из указанного файла:

Код:

 cat test1.pm

#!/usr/bin/perl

eval
{
     require '/home/mczim/main/perl/test2.pl';
};

#open(STDERR, "> logfile.log") or die "Error, i'm can't open log file...";

if($@)
{
    ($tmp) = split(/in \@INC/, $@);
    ($a,$b,$mod_name) = split(/ /, $tmp);
    print "$mod_name\n";
    print "\n";

    exec 'perl -MCPAN -e \'install "$mod_name"\'';
}

#close(LOGFILE);
return 1;

ну и на этом пожалуй остановимся, потому как по найденному имени модуля не получится установить его, сами исходники могут называться совершенно по другому, как-то я это упустил из виду.

[McZim]

+ еще один важный момент, почему ненужно делать то что я хотел реализовать. Это то что при инсталяции некоторых модулей, происходит общение с админом, т.е. интерактивная установка.