Perl操作系統(tǒng)環(huán)境變量的腳本代碼
如何用Perl腳本操作系統(tǒng)環(huán)境變量呢？
想必很多朋友馬上就會(huì)想到Perl中提供的$ENV這個(gè)特殊的哈希變量，對(duì)，在$ENV中完全可以獲取到一些系統(tǒng)變量。怎么獲取呢？比如想要知道Path這個(gè)系統(tǒng)環(huán)境變量的內(nèi)容，我們可以通過(guò)$ENV{'Path'} 來(lái)獲取。如果想設(shè)置Path這個(gè)環(huán)境變量呢，哈，使用$ENV{'Path'}=‘C:\Windows\System32'來(lái)設(shè)置。想獲取所有的環(huán)境變量列表也很簡(jiǎn)單，哈希遍歷不就可以了~
其實(shí)，本文中真正想問(wèn)的是，你在通過(guò)上述方法設(shè)置了一個(gè)環(huán)境變量后，右擊"我的電腦"的屬性，選中高級(jí)選項(xiàng)卡后查看的Path變量值真的改變了嗎？其實(shí)，細(xì)心的你會(huì)發(fā)現(xiàn)，完全沒(méi)變！但千萬(wàn)不要抱怨Perl欺騙了你，它其實(shí)并沒(méi)有欺騙你，而是你沒(méi)有真正的理解。其實(shí)，Path變量可以通過(guò)設(shè)置$ENV{'Path'}來(lái)設(shè)置，但是這個(gè)設(shè)置所引起的改變只是Session級(jí)別的，即你程序級(jí)別的。如果還不理解的話，可以想象成打開一個(gè)CMD后，輸入SET Path="C:\\Royen"所引起的效果，即在這個(gè)窗口中運(yùn)行過(guò)程中Path環(huán)境變量是"C:\\Royen",而你再打開一個(gè)Cmd后的新的窗口的Path變量則會(huì)發(fā)現(xiàn)完全不是”C:\\Royen“;
所以想要真正的添加或者改變一個(gè)系統(tǒng)環(huán)境變量，我們需要求助于注冊(cè)表幫忙。只要找到環(huán)境變量在注冊(cè)表中存儲(chǔ)的位置即可。
一般系統(tǒng)變量可以在注冊(cè)表 HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Session Manager\Environment下面可以找到。
實(shí)現(xiàn)：
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");
添加環(huán)境變量后，記得重啟下機(jī)器，以使其生效。
相關(guān)文章
perl uc,lc,ucfirst,lcfirst大小寫轉(zhuǎn)換函數(shù)
這篇文章主要介紹了perl 大小寫字母轉(zhuǎn)換函數(shù),需要的朋友可以參考下2017-10-10
perl高級(jí)排序，<=>操作符，飛船操作符
perl高級(jí)排序的關(guān)鍵在于要指定排序的方式，使用的操作符是spaceship operator（<=>)2013-02-02
下面小編就為大家?guī)?lái)一篇Perl與JS的對(duì)比分析(數(shù)組、哈希)。小編覺(jué)得挺不錯(cuò)的，現(xiàn)在就分享給大家，也給大家做個(gè)參考。一起跟隨小編過(guò)來(lái)看看吧2016-07-07
一篇文章搞懂：詞法作用域、動(dòng)態(tài)作用域、回調(diào)函數(shù)及閉包
這篇文章主要給大家介紹了如何通過(guò)一篇文章搞懂：詞法作用域、動(dòng)態(tài)作用域、回調(diào)函數(shù)及閉包的相關(guān)資料，文中通過(guò)示例代碼介紹的非常詳細(xì)，對(duì)大家的學(xué)習(xí)或者工作具有一定的參考學(xué)習(xí)價(jià)值，需要的朋友們下面來(lái)一起看看吧2018-12-12
這篇文章主要介紹了Perl實(shí)現(xiàn)遍歷目錄例子,本文示例運(yùn)行在Windows系統(tǒng)下,而且需要gbk編碼,需要的朋友可以參考下2014-12-12
正則表達(dá)式是 Perl 語(yǔ)言的一大特色，也是 Perl 程序中的一點(diǎn)難點(diǎn)，不過(guò)如果大家能夠很好的掌握他，就可以輕易地用正則表達(dá)式來(lái)完成字符串處理的任務(wù)，當(dāng)然在 CGI 程序設(shè)計(jì)中就更能得心應(yīng)手了2013-07-07
Windows和Linux系統(tǒng)下perl連接SQL Server數(shù)據(jù)庫(kù)的方法
這篇文章主要介紹了Windows和Linux系統(tǒng)下perl連接SQL Server數(shù)據(jù)庫(kù)的方法,本文詳細(xì)的講解了Windows和Linux系統(tǒng)中perl如何連接Microsoft SQL Server數(shù)據(jù)庫(kù),需要的朋友可以參考下2014-10-10
perl 讀取所需文件的路徑，然后打開相應(yīng)的文件
perl，讀取所需文件的路徑，然后打開相應(yīng)的文件，并對(duì)文件中的DNA序列進(jìn)行計(jì)數(shù)，substr函數(shù)對(duì)長(zhǎng)字符串的片段化處理功能2013-03-03
學(xué)習(xí)perl的unless控制結(jié)構(gòu)
在perl的if控制結(jié)構(gòu)中，只有當(dāng)條件表達(dá)式為真時(shí)才執(zhí)行某塊代碼。如果想讓程序塊在條件為假時(shí)才執(zhí)行，此時(shí)可以把if改成unless2013-02-02
由于業(yè)務(wù)需要，要查詢客戶的ip地址，將部分地區(qū)的客戶過(guò)濾出來(lái),感謝黑影子和扶凱的幫忙，推薦了IP::QQWry::Decoded這個(gè)模塊，該模塊是專門用來(lái)讀取qqwry純真數(shù)據(jù)庫(kù)的，用起來(lái)非常簡(jiǎn)單2013-04-04