perl - 在 perl 程序中设置路径

Question

我有一个 bluehost 服务器设置，并试图在我的 perl 程序中设置路径

 print "Content-type: text/html\n\n";
    my $output=`export PATH=\${PATH}:/usr/local/jdk/bin`;
    my output1=`echo \$PATH`;
    print $output1;

但是它仍然只打印原始的 $PATH。/usr/local/jdk 没有被添加。谁能告诉我我做错了什么？

Answer 1

您正在创建一个 shell，执行一个在 shell 中设置环境变量的 shell 命令，然后退出 shell，而不对环境变量做任何事情。你从未改变perl的环境。这将使用

local $ENV{PATH} = "$ENV{PATH}:/usr/local/jdk/bin";

不过，添加到路径的末尾有点奇怪。