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

Question

在“How can I detect the operating system in 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}->();