如何解决“常量标志”问题适用于 Perl 中的 Windows 和 Linux 客户端？

Question

我正在使用以下 Linux 和 Windows perl 库，如下所示 -

Linux:

use Fcntl; 
use File::FcntlLock

Windows:

use Win32::API;
use Win32API::File qw(:Func :Misc :FILE_:FILE_FLAG_ :FILE_SHARE_ :FILE_ATTRIBUTE_ :GENERIC_ )

因此，根据我用来运行脚本的主机（Linux 或 Windows），我正在加载包 -

my $linux_packages = "use Fcntl; use File::FcntlLock; use File::Copy;1;";
my $window_packages
    = "use Win32::API; use Win32API::File qw(:Func :Misc :FILE_ "
    . ":FILE_FLAG_ :FILE_SHARE_ :FILE_ATTRIBUTE_ :GENERIC_ );1;";

if ( $Hosttype =~ /unix/ ) {

    eval "$linux_packages";


} elsif ( $Hosttype =~ /windows/ ) {

    eval "$window_packages";

} 

现在我正在尝试使用来自 Linux 或 Windows 客户端的标志，但如果我在 Linux 客户端上运行脚本，它会抛出 Windows 标志错误

SCRIPT ERROR: Bareword "GENERIC_READ" not allowed while "strict subs" in use

如果引用 GENERIC_READ，则使用它作为字符串而不是实际的标志，反之亦然。

如何解决？

Answer 1

您应该将自己代码的操作系统特定部分分解为呈现统一接口的单独模块，然后根据操作系统需要适当的模块。

为此，您可以使用 Sys::Info::OS 和require 和 导入。类似以下内容（未经测试）的内容应该有效：

use strict; use warnings;

use Sys::Info::OS;

BEGIN {
    my $os = Sys::Info::OS->new;
    if ($os->is_windows) {
        require Win32::API;
        Win32::API->import;

        require Win32API::File;
        Win32API::File->import(qw(
            :Func
            :Misc
            :FILE_
            :FILE_FLAG_
            :FILE_SHARE_
            :FILE_ATTRIBUTE_
            :GENERIC_
        ));
    }
    elsif ($os->is_linux) {
        require Fcntl;
        Fcntl->import;

        require File::FcntlLock;
        File::FcntlLock->import;

        require File::Copy;
        File::Copy->import;
    }
    else {
        die sprintf "Unknown OS: %s\n", $os->name;
    }
}

# rest of the code