Re: Обработка исключений на perl

Wed, 16 Nov 2005 04:53:29 -0800 

On Wednesday 16 November 2005 13:39, Dmitry E. Oboukhov wrote:

Я думаю эта программа приведёт твои мысли в порядок по поводу return из eval.

$ cat p.pl
#!/usr/bin/perl

sub exc_test
{
        my $tst = shift;
        my $rc = eval {
                if($tst) {
                        return 505;
                }
                die;
        };
        if($rc == 505) {
                print "No shit\n";
        }
        if($@) {
                print "Shit happened\n"
        }
}

&exc_test(0);
&exc_test(1);

$ perl p.pl
Shit happened
No shit

-- 
Anton

Ответить