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

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

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