如何限制Perl脚本仅允许指定Perl脚本调用执行（RHEL6，无root权限）

刚好我之前处理过类似的场景，给你几个适合RHEL6环境、不需要root权限的可行方案，完全匹配你的需求：

利用Linux的/proc文件系统，让第二个脚本启动时检查自己的父进程是不是你的第一个脚本。这种方法无需额外依赖，适合无root权限的环境。

在第二个脚本的开头添加以下验证代码：

use strict;
use warnings;

# 获取父进程ID
my $ppid = getppid();
# 读取父进程的命令行（/proc里的cmdline用null分隔参数）
open my $proc_fh, '<', "/proc/$ppid/cmdline" or die "无法读取父进程信息: $!";
my $parent_cmd = <$proc_fh>;
close $proc_fh;

# 把null替换为空格，方便匹配脚本路径
$parent_cmd =~ s/\x00/ /g;

# 替换成你的第一个脚本的绝对路径
unless ($parent_cmd =~ m|/home/your_user/path/to/first_script.pl|) {
    die "此脚本仅允许由first_script.pl执行\n";
}

# 后续是第二个脚本的原有逻辑

注意：一定要用第一个脚本的绝对路径做匹配，避免因工作目录不同导致验证失败。这种方法对普通用户和非恶意程序足够安全，无root权限下很难伪造/proc中的进程信息。

通过环境变量或命令行参数传递一个只有两个脚本知道的秘密字符串，第二个脚本验证令牌的合法性。这种方法简单直接，可靠性高。

第一个脚本的调用方式： #

use strict;
use warnings;

# 设置只有两个脚本知道的秘密令牌
$ENV{WORKER_SECRET} = "your_uniq_random_secret_123";
# 调用第二个脚本
system("/home/your_user/path/to/second_script.pl");
# 可选：调用后清除环境变量，避免泄露
delete $ENV{WORKER_SECRET};

第二个脚本的验证代码： #

use strict;
use warnings;

# 验证令牌是否正确
unless (exists $ENV{WORKER_SECRET} && $ENV{WORKER_SECRET} eq "your_uniq_random_secret_123") {
    die "未授权的执行请求\n";
}
# 验证后清除令牌，避免后续子进程获取
delete $ENV{WORKER_SECRET};

# 后续是第二个脚本的原有逻辑

为了更安全，你可以把令牌存放在一个只有你能读取的文件（比如chmod 600 secret.txt）里，让两个脚本都读取这个文件获取令牌，这样修改令牌时无需修改代码。

既然你可以接受将第二个脚本封装为模块，这是最Perl化且安全的方案——直接把第二个脚本的逻辑放到模块中，限制只有第一个脚本能调用核心功能，彻底避免直接执行的可能。

步骤1：创建Perl模块（比如MyApp/Worker.pm） #

package MyApp::Worker;
use strict;
use warnings;
use Exporter qw(import);

# 仅允许导出run_main函数，其他逻辑内部隐藏
our @EXPORT_OK = qw(run_main);

sub run_main {
    # 这里放入原第二个脚本的所有逻辑
    # 可选：额外验证调用者身份
    my $caller = caller();
    # 确保调用者是第一个脚本的主包，且脚本路径正确
    unless ($caller eq 'main' && $0 eq '/home/your_user/path/to/first_script.pl') {
        die "未授权的调用者\n";
    }

    # 原有逻辑开始...
}

# 如果有人直接执行这个模块文件（比如perl MyApp/Worker.pm），直接退出
unless (caller()) {
    die "此模块无法直接执行\n";
}

1;

步骤2：第一个脚本中调用模块 #

use strict;
use warnings;

# 如果模块不在Perl默认的@INC路径中，添加模块所在目录
use lib '/home/your_user/path/to/modules';
# 导入模块的run_main函数
use MyApp::Worker qw(run_main);

# 调用核心逻辑
run_main();

额外安全建议 #

• 不管用哪种方案，都要设置好文件权限：将第二个脚本/模块的权限设为chmod 700（脚本）或chmod 600（模块），确保其他用户无法读取或执行。
• 如果用令牌方案，不要把令牌硬编码在公共代码仓库中（如果有的话），尽量用本地文件存储。

内容的提问来源于stack exchange，提问作者daveg