zjp0633 发表于 2018-9-1 09:13:03

perl获取当前用户名

my$Sys_name = $^O;　　if ($Sys_name =~ /MSWin32/){
　　print $ENV{'USERNAME'},"\n";
　　}
　　else {
　　if($Sys_name =~ /linux/){
　　print $ENV{'USER'},"\n";
　　}
　　else
　　{
　　print "Unknow\n";
　　}
　　}

页: [1]
查看完整版本: perl获取当前用户名