在 perl 脚本中获取 %AppData% 的路径 [英] Getting the path of %AppData% in perl script

问题描述

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

Could anyone can help on this one:

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 操作系统的输出会更好.

I need to get the "localappdata" path using perl script. And also Windows OS based output it would be better.

C:\Users\laser\AppData\Local""C:\Users\laser\AppData\Roaming"

"C:\Users\laser\AppData\Local" "C:\Users\laser\AppData\Roaming"

推荐答案

使用以下内容

#!/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

这篇关于在 perl 脚本中获取 %AppData% 的路径的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！