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

來源:互聯網
上載者:User

如何用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");

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

相關文章

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。

A Free Trial That Lets You Build Big!

Start building with 50+ products and up to 12 months usage for Elastic Compute Service

  • Sales Support

    1 on 1 presale consultation

  • After-Sales Support

    24/7 Technical Support 6 Free Tickets per Quarter Faster Response

  • Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.