Perl: ловить кубик - PullRequest
       24

Perl: ловить кубик

0 голосов
/ 30 апреля 2019

У меня есть программа Perl с несколькими пакетами / функциями. Несколько могут сгенерировать кубик

Я хотел бы иметь возможность перехватить их, чтобы записать их в файл журнала.

Я пытался добавить в main.pl

local $SIG{__DIE__} = sub {
                    my ($message) = @_;
                    # log the message   
                    print("ZOOORG\n");
                    open(my $fdlog,'>>',$LogFile) or die("ERREUR FATALE : open: $!");
                    print($fdlog "XXX - $message - XXX\t");
                    close $fdlog;
                };

но это не срабатывает. Что я пропустил?

Есть ли возможность добавить локальный $ SIG { DIE } = sub {} в функцию пакета вместо Main.pl?

...