はperlのスクリプトで

Question

を％のAppData％のパスを取得する誰もがこの1に助けることができるでした：

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 OSベースの出力はより良いでしょう。

"C：\ Users \ユーザーレーザー\のAppData \ローカル" "C：\ Users \ユーザーレーザー\のAppData \ローミング"

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