在perl脚本中获取％AppData％的路径

Question

任何人都可以帮忙解决这个问题：

use strict;
use warnings;
use Cwd;
use File::Copy;
use Win32;
use Config;
use Backticks;


#print "$^O\n";
#print "$Config{osname}\n";
#print "$Config{archname}\n";

#Win7Professional (32-bit) Service Pack 1
#Win8Professional (64-bit)
#print "\nOS: ", $osversion;

my $osversion = Win32::GetOSName();
#my $localConfPath = `\%localappdata\%`;
my $localConfPath = system("\%localappdata\%");
my $localConfPath = system(`\%localappdata\%`);

#print "$env:APPDATA\n";
exec(`\%localappdata\%`); if($@) {  print "$@\n";  }

#print "PO: $localConfPath\n";

我需要使用 perl 脚本获取“localappdata”路径。而且基于 Windows 操作系统的输出会更好。

“C:\Users\laser\AppData\Local” “C:\Users\laser\AppData\Roaming”

Answer 1

使用以下内容

#!/usr/bin/perl

use warnings;
use strict;

my $localConfPath = $ENV{localappdata};
my $appdata = $ENV{appdata}; 

print $localConfPath;  #will print the app path - C:\users\xxx\AppData\local
print $appdata; #prints - C:\users\xxx\AppData\Roaming