perl 编写可移植平台注意事项

1. 判断当前的操作系统类型

if ( $^O =~ /MSWin32/ ) {print "Windows/n";} elsif ($^O =~ /Linux/){print "Linux/n";}else{print "Others/n";}