代码之家 › 专栏 › 技术社区 › StrongWind

如何确保仅当脚本在Windows上运行时才加载模块?

perl-module module perl windows linux

StrongWind · 技术社区 · 10 年前

我有一个需要在Windows和Linux上运行的Perl脚本。问题是我需要 use 仅适用于Windows的Perl模块。

我已经尝试了以下内容,但仍然包括 WindowsStuff 包裹

use strict;
if ($^O eq 'MSWin32' ){
    use My::WindowsStuff;
}
use File::Basename;
use Getopt::Long;
...
...

1 回复 | 直到 10 年前

Miguel Prz 10 年前

因为 use 在编译时生效,它不尊重正在编译的代码的普通流控制。特别是,将use放在条件的false分支中并不会阻止它被处理。

你能做什么?

a) require 导入(运行时):

if( $^O eq 'MSWin32' ) {
   require My::WindowsStuff;
   My::WindowsStuff->import if My::WindowsStuff->can("import");
}

b) use if (编译时间):

use if $^O eq 'MSWin32', "My::WindowsStuff";

推荐文章

Furkan Gözükara · 如何修改此命令以安装特定的cuDNN和torch版本“apt-install-libcudnn8”

1 年前

CaTx · 使用带有一个大于号和两个大于号的回波的区别

1 年前

Ari157 · x86_64 Linux程序集中的逻辑与实现

2 年前

user2954003 · AWK使用正则表达式匹配字符串并与前一个字符串组合

2 年前

twisted · 将apache2 CustomLog管道传输到以其他用户身份运行的程序

2 年前

domagaja · Linux—更快地读取或收集文件内容(例如,每秒的cpu温度)

2 年前

Ty Q. · 分段故障GLFW3/GLAD

2 年前

Code With Banchi · 在sed命令中使用变量-sed-e异常:“s”的选项未知

2 年前

ShortArrow · 如何使用git管理链接源文件?

2 年前

Bastien L. · 多Linux Grafana集成

2 年前