Perl作業系統環境變數的指令碼代碼_perl

如何用Perl指令碼作業系統環境變數呢？

想必很多朋友馬上就會想到Perl中提供的$ENV這個特殊的雜湊變數，對，在$ENV中完全可以擷取到一些系統變數。怎麼擷取呢？比如想要知道Path這個系統內容變數的內容，我們可以通過$ENV{'Path'} 來擷取。如果想設定Path這個環境變數呢，哈，使用$ENV{'Path'}=‘C:\Windows\System32'來設定。想擷取所有的環境變數列表也很簡單，雜湊遍曆不就可以了~

其實，本文中真正想問的是，你在通過上述方法設定了一個環境變數後，右擊"我的電腦"的屬性，選中進階選項卡後查看的Path變數值真的改變了嗎？其實，細心的你會發現，完全沒變！但千萬不要抱怨Perl欺騙了你，它其實並沒有欺騙你，而是你沒有真正的理解。其實，Path變數可以通過設定$ENV{'Path'}來設定，但是這個設定所引起的改變只是Session層級的，即你程式層級的。如果還不理解的話，可以想象成開啟一個CMD後，輸入SET Path="C:\\Royen"所引起的效果，即在這個視窗中運行過程中Path環境變數是"C:\\Royen",而你再開啟一個Cmd後的新的視窗的Path變數則會發現完全不是”C:\\Royen“;

所以想要真正的添加或者改變一個系統內容變數，我們需要求助於註冊表幫忙。只要找到環境變數在註冊表中儲存的位置即可。
一般系統變數可以在註冊表 HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Session Manager\Environment下面可以找到。

實現：    

複製代碼 代碼如下:

my $loc="SYSTEM\\CurrentControlSet\\Control\\Session Manager\\Environment";
my $regkey;
$HKEY_LOCAL_MACHINE->Open($loc,$regkey) || die "Open Registry Fail,Information:$!\n";
$regkey->SetValueEx("PERLLIB",0,REG_SZ,"c:\\staf\\bin;c:\\staf\\bin\\Perl58");

添加環境變數後，記得重啟下機器，以使其生效。