die的问题[已解决]

dl0622

UID: 38417
帖子: 194
积分: 446
在线时间: 2 天 3 小时

1^# dl0622 发表于 2008-10-30 10:30

die的问题[已解决]

在一个外部perl脚本B的子过程func里使用了die，当A调用B中func又满足B中func的die条件时，在A中调用的func下面的A中的代码不再执行，请问怎样才能既让func退出又执行下面的代码？
例如：
--A.pl--

require "B.pl";
……
&func(a,b,c);
#当func 发生die后下面的代码就不执行了
……

--B.pl--
sub func()
{
……
}

hfahe

UID: 36097
帖子: 160
积分: 368
在线时间: 1 天 11 小时

2^# hfahe 发表于 2008-10-30 11:06

eval

ynchnluiti

UID: 39553
帖子: 24
积分: 55
在线时间: 10 分钟

3^# ynchnluiti 发表于 2008-10-30 11:35

return

dl0622

UID: 38417
帖子: 194
积分: 446
在线时间: 2 天 3 小时

4^# dl0622 发表于 2008-10-30 11:39

能否详细一点？谢谢！

ynchnluiti

UID: 39553
帖子: 24
积分: 55
在线时间: 10 分钟

5^# ynchnluiti 发表于 2008-10-30 12:47

$ cat b.pl
#!/usr/bin/perl -w
sub func {
    my $mm = shift;

    print "Let me have a look...\n";
    return "Go the hell." unless $mm eq "much money";

    print "Good.\n";
}
1;

$ cat a.pl
#!/usr/bin/perl -w
require "b.pl";
my $ret = &func("2 \$");
print $ret, "\n";

print "$0: --end---\n";

$ ./a.pl
Let me have a look...
Go the hell.
./a.pl: --end---

$

dl0622

UID: 38417
帖子: 194
积分: 446
在线时间: 2 天 3 小时

6^# dl0622 发表于 2008-10-30 15:49

果然就是return
楼上真幽默

dl0622

UID: 38417
帖子: 194
积分: 446
在线时间: 2 天 3 小时

7^# dl0622 发表于 2008-10-30 15:49

不会使用eval

hfahe

UID: 36097
帖子: 160
积分: 368
在线时间: 1 天 11 小时

8^# hfahe 发表于 2008-10-30 16:48

eval {
&func();
};

dl0622

UID: 38417
帖子: 194
积分: 446
在线时间: 2 天 3 小时

9^# dl0622 发表于 2008-10-30 17:50

谢谢楼上各位解答，比较喜欢这里的环境，不过被人以恶劣的理由扣分，实在有点不爽。
每个人都有自己的表达方式，想不到原来赞美也会得罪人，罪过罪过。

就此结贴。