我们如何在 Perl 中为“use”命令使用变量？

Question

我正在尝试从用户那里获取输入并在我的运行中包含一些库。

“使用”后是否可以使用变量？

$filepath = "abc/xyz.pm";
$module = "xyz";

use $module;

我收到以下错误。

./abc.pl 第 4 行的语法错误，靠近“use $module” 由于编译错误，./abc.pl 的执行中止。

Answer 1

这是不可能的，但您可以使用require解决它：

#!/usr/bin/perl
use warnings;
use strict;
use feature qw{ say };

BEGIN {
    my $module = 'JSON::XS';  # Used as an example
    my $path = $module =~ s{::}{/}gr . '.pm';
    require $path;
    $module->import();
}

say encode_json({a=>12});

但是，在类似情况下使用if更为常见。

use if $^O eq 'MSWin' => 'Win32::GUI';