Perl判断操作系统类型

http://www.cnblogs.com/orientsun/archive/2012/11/19/2778074.html

Requirement:

为了扩展系统的可移植性，将Perl Job扩展支持Linux和Unix两种操作系统，由于操作系统不同，那么所调用的命令自然有所差别，那么该如何区分执行哪种命令呢？

Resolution:

利用?$^O?变量来区别不同的操作系统，在不同的操作系统中 $^O 会有不同的值，例如：AIX --- aix， Linux --- linux，SunOS --- solaris。?

操作系统及其对应的值参见：http://www.alma.ch/perl/perloses.htm

my $os  =  $^O; 
print "Current OS is $os";
if($os  eq  "linux"){ ...commands in linux OS... } $os  eq  "solaris"){ ...commands in Unix OS... }

另外可以使用?$Config{'osname'}?来获取操作系统的值。