pppk之Recipe5.3(1)

zhuyubei

今天我們講Recipe5.3: Hash的鎖,分2天完成。在我完成這個(gè)Recipe之前，我以前沒接觸過這方面的內(nèi)容。所以實(shí)踐下來，感覺有些收獲。hash的鎖操作，為多線程下的編程提供了一定的安全機(jī)制。也許我下面的Recipe會趁熱打鐵繼續(xù)講鎖，只不過是Recipe7.18文件鎖。

本Recipe引用語句是

1. 我這里有《王摩詰全集》，你且把他的五言律讀一百首，細(xì)心揣摩透熟 了，然后再讀一二百首老杜的七言律，次再李青蓮的七言絕句讀一二百首。肚子 里先有了這三個(gè)人作了底子，然后再把陶淵明、應(yīng)瑒，謝、阮、庾、鮑等人的一 看。你又是一個(gè)極聰敏伶俐的人，不用一年的工夫，不愁不是詩翁了！ －－《紅樓夢》林黛玉

復(fù)制代碼

我們順便再回顧下我實(shí)踐的進(jìn)展
在pppk/目錄下，有個(gè)文件叫Readme。如果你checkout了，你可以看下我實(shí)現(xiàn)的進(jìn)展
Recipe  P1     P2      RootRecipe
1.1        Perl        Python
1.2         Perl         Python       
1.3        Perl        Python        1.1
1.4
5.1         Perl                5.3
5.2         Perl                5.3
5.3     Perl
5.4         Perl                5.3
5.6         Perl                5.3
7.11         Perl
8.2        Perl
8.4        Perl                       

我們講了Recipe1.1, Recipe1.2。 但其實(shí)我已經(jīng)完成了一些Recipe。其中有些Recipe會以類似的情況出現(xiàn)在其他的Recipe里，這樣我們就不費(fèi)心去完成這些Recipe.

應(yīng)該說python這塊，我做得比較吃力。有些力不從心。關(guān)鍵是，我期望能用和Perl類似那樣的標(biāo)準(zhǔn)庫去實(shí)現(xiàn)，但是情況不是很理想。當(dāng)然我Python弱不少。好在畢竟是Perl的板塊，Perl這塊還是盡力完成了。當(dāng)然有這個(gè)文件做參照，我們一定會把它都完成的。

每完成一個(gè)Recipe,就像《圣斗士》里打冥界的時(shí)候沙加手里的佛珠串一樣，又會有一顆佛珠變黑了。

zhuyubei

無論要不要鎖住Hash，為了方便我們都需要去展示一個(gè)Hash。當(dāng)然可以用Dumper之類的方法。不過我們參照Recipe5.6，寫了個(gè)一個(gè)函數(shù)來完成它:

1. sub printHash
   
2. {
   
3.         my ( $rhAHash ) = shift;
   
4.         if ( $rhAHash and ( ref($rhAHash) eq "HASH" ) ){
   
5.                 print "+++++ Hash Begin\n";
   
6.                 print map { "Key: [$_] and Value: [$rhAHash->{ $_ }]\n" } keys %{ $rhAHash };
   
7.                 print "+++++ Hash End\n";
   
8.         }
   
9. }
   

復(fù)制代碼

處于效率考慮，我們傳了個(gè)散列的引用進(jìn)去，并會做簡單的檢查。然后我們利用map函數(shù)來引發(fā)打印的動作
。對于map函數(shù)，記得小駱駝的最后幾章有介紹。大家可以參考之。當(dāng)然也許以后的Recipe我也會涉及。我們會利用這個(gè)函數(shù)來顯示一個(gè)hash

zhuyubei

為了要對Hash進(jìn)行鎖操作，需要導(dǎo)入模塊，并import可能所需要的函數(shù)

1. 
   
2. use Hash::Util qw( lock_keys unlock_keys
   
3. 
   
4.                 lock_value unlock_value
   
5. 
   
6.                 lock_hash unlock_hash
   
7. 
   
8. );

復(fù)制代碼

其中l(wèi)ock_keys可以鎖住當(dāng)前hash的keys，或所指定的keys，而lock_value可以鎖住指定key對應(yīng)的value。而lock_hash則可以鎖住整個(gè)Hash的Key/Value

zhuyubei

我們先創(chuàng)建一個(gè)示例Hash

1. my %hTestHash = ( "TWO" => 2, "THREE" => 3);
   
2. # Recipe 5.1
   
3. $hTestHash{ ONE } = 1;
   

復(fù)制代碼

下面我們試圖鎖住這個(gè)hash當(dāng)前的key，再試圖刪除在鎖之前就已經(jīng)存在的一個(gè)Key

1. # Lock keys here
   
2. lock_keys( %hTestHash );
   
3. # Recipe 5.4
   
4. # We can still the keys before locked
   
5. delete $hTestHash{ ONE };
   
6. 
   
7. # Recipe 5.2  
   
8. if( not exists $hTestHash{ ONE } ){
   
9.         print "ONE deleted!\n";
   
10. }
    
11. # Recipe 5.6
    
12. printHash( \%hTestHash);

復(fù)制代碼

通過輸出語句，我們看到在key鎖住之后，被鎖前的Key居然可以刪除掉。

那我們能不能新增一個(gè)鎖之前沒有的Key呢？

1. eval{
   
2.         $hTestHash{ FOUR } = 4;
   
3. };
   
4. print "Illegal operation when the hash is locked:\n$@" if $@;

復(fù)制代碼

這里我們插入FOUR => 4這條記錄，但是被拋出異常了！表示似乎不能增加新的Key。那我們又問，剛剛我們刪除掉的Key: ONE， 在鎖之前它就存在，那它能不能現(xiàn)在又被加回來呢？我們嘗試了下:

1. # We can add the keys had been existed before the keys was locked
   
2. eval{
   
3.         $hTestHash{ ONE } = 1;
   
4. };
   
5. print "We can add the keys had been existed in hash before the keys were locked\n" if not $@;
   
6. printHash( \%hTestHash );

復(fù)制代碼

注意這里是if not $@。這表明我們insert成功了。所以lock_keys在這里的意思是，你可以修改，刪除，添加鎖之前就存在的Key， 但是絕對不能增加鎖之前就沒有的key!

接著我們用unlock_keys釋放鎖，現(xiàn)在我們又可以正常加新的記錄了

1. # Unlock keys now and insert new entry
   
2. unlock_keys( %hTestHash );
   
3. $hTestHash{ FOUR } = 4;
   
4. printHash( \%hTestHash );

復(fù)制代碼

zhuyubei

接著我們講lock_hash。這個(gè)函數(shù)將整個(gè)Hash都鎖住了，不可改動。
這里修改值，刪除Key, insert新的值，都不可行。

1. print "Testing of lock_hash\n";
   
2. lock_hash( %hTestHash );
   
3. eval{# We can't modify the value here
   
4.         $hTestHash{ ONE } = 5;
   
5. };
   
6. print "We can't modify the value of key 'ONE', when it is locked:[$@]" if $@;
   
7. eval{# Can't delete
   
8.         delete $hTestHash{ ONE };
   
9. };
   
10. print "We can't delete key 'ONE' when the hash is locked:[$@]" if $@;
    
11. eval{# Can't insert
    
12.         $hTestHash{ ZERO } = 0 ;
    
13. };
    
14. print "We can't insert key 'ZERO' when the hash is locked:[$@]" if $@;
    
15. printHash(  \%hTestHash );
    
16. # Recover it
    
17. unlock_hash( %hTestHash );
    

復(fù)制代碼

用unlock_hash可以釋放鎖。這樣Hash又可以正常操作了。

zhuyubei

明天我們講lock_value。這個(gè)函數(shù)會有些細(xì)節(jié)，所以要稍微多說下。另外Python我目前還沒有找到庫函數(shù)對原生dict有這樣的鎖支持，雖然我們可以寫個(gè)包裝類出來，但是還是不能和Perl這樣的功能相比。等我找到了合適的標(biāo)準(zhǔn)庫，再來進(jìn)行更新。

cdtits

堅(jiān)持就是勝利...

sjdy521

前幾天還在看這個(gè)模塊，想了解下內(nèi)部的實(shí)現(xiàn)原理是什么，看的比較暈乎，實(shí)現(xiàn)的機(jī)制看似不像是和use field一樣