如何在 Perl 中检测操作系统，然后有条件地执行命令？

Question

在“如何在 Perl 中检测操作系统中找到了这个问题”——但是我需要检测操作系统的 Perl 片段，然后使用该值来有条件地执行 OS-A 或 OS-B 的代码；在本例中，它们是 Windows7 和 CentOS-5.5。

问题、反馈、请求——只需评论，谢谢！

Answer 1

您可以使用这样的调度表：

my %callback = (
    MSWin32 => sub { win_code() },
    linux   => sub { linux_code() },
);

# run appropriate code
$callback{$^O}->();

Answer 2

看看 File::Spec 的作用它。

这里。

---

评论答案：

我是没有说加载 File::Spec。我是说看看它是如何进行“子分类”的。实际上，它有点像这样：

• 对象具有多态性。
• 多态性是满足您需要的最简单的方法。
• 创建一个通用的实现模式，
• 然后为您将使用它的平台实现它。

File::Spec 尝试完成所有这些任务，因为它是一个 CPAN 模块。但只需看看它是如何做到的，看看它如何将平台折叠到箱子中。因为它是核心且推荐的模块，所以按照该模式您可能不会出错。

如果您的平台不适合此模式，那么您将不得不使用其他方法来嗅探该平台。文件系统差异可能不是您需要担心的唯一问题。

确切地说，我对 FS 实现多态性的方式并不完全 100% 满意。但这是一种策略。以及具有多态性的处理平台的示例。

仅供讨论：我更喜欢额外的课程。我会将所有 FS 实现都基于一个抽象类。最重要的是，我会将该行为子类化为实现，并且在此之上，我将放置我最喜欢的模式之一 Facade/Factory 类，它是该类的公共面孔。

Answer 3

当然，$^O 是这个问题的明确答案。但您可能想看看 Devel::CheckOS 它提供了一个友好的包装器它。