调用脚本并从被调用脚本传递值

Question

我有一个脚本试图从另一个脚本调用，将正在调用的脚本中的信息传递给调用脚本。当我使用 do 或 require 时，它​​会运行但不会传递该值。

前任。

我调用的脚本底部有以下行

script.pl

print " $hold IS VALUE\n";

这会打印出hold的值。

然后，我使用以下命令启动调用脚本：

calling_script.pl

require 'acc_option.pl'; print "HOLD PASSED IS $hold\n";

但变量保持不打印。

调用这个脚本的最佳方法是什么，而不是将所有内容都放在一页上？

Answer 1

这取决于 $hold 是如何声明的。

如果它是按词法声明的（使用“my $hold...”），那么您无法直接获取它 - 它只能在 Called_script.pl 的范围内访问。

如果它是动态范围的（本地 $hold 或我们的 $hold），那么您应该能够通过在其下声明的包作为前缀来获取它（因此，如果它在“package Foo;”中，您可以将其获取为 $ Foo::hold")。

也就是说...

您通常不想在脚本之间传递变量。在全局变量中存储状态可能会导致一些令人讨厌的调试会话。

作为第一步，您可能需要封装对 $ 的访问在子例程中保持，所以在 Called_script.pl 中你有类似的内容：

sub is_on_hold { return $hold };

调用时将返回 $hold （我假设 $hold 是某种布尔状态指示器。如果它没有以适当的意图命名你的子例程揭示方式:-)

如果您更详细地描述如何尝试使用 $hold，人们可能能够就更好地完成任务的方式提供一些更具体的建议。

Answer 2

你已经开始走上正确的道路，但还有很长的路要走。您应该使用模块和 use 语句，而不是代码和 require 语句。您应该尝试阅读 perldoc perlmod 和 perldoc perlmodlib,但一般要点是：

1. 将流程分解为函数
2. ，根据功能对这些函数进行分组
3. 将函数组放入模块中
4. 编写一个使用模块并调用函数的脚本

将脚本视为骨架，将函数视为充实骨骼。

这是一个简单的模块和使用它的脚本：

ExampleModule.pm：

package ExampleModule;

use strict;
use warnings;

use base 'Exporter';

our @EXPORT_OK  = qw/do_first_thing do_second_thing do_third_thing/;

sub do_first_thing {
    my ($thing) = @_;

    return $thing + 1;
}

sub do_second_thing {
    my ($thing) = @_;

    return $thing + 1;
}

sub do_third_thing {
    my ($thing) = @_;

    return $thing + 1;
}

1;

example.pl：

#!/usr/bin/perl

use strict;
use warnings;

use ExampleModule qw/do_first_thing do_second_thing do_third_thing/;

my $thing = 0;

$thing = do_first_thing($thing);
$thing = do_second_thing($thing);
$thing = do_third_thing($thing);

print "$thing\n";