大俠們啊，請告知一下nawk 如何實現(xiàn)位運算吧

legone2008

nawk不支持位算嗎? 有能人請幫忙回答下這個帖子吧，有積分哦，謝謝！

http://72891.cn/thread-3675665-1-1.html

gawk實現(xiàn)如下，請求nawk應該如何實現(xiàn)

1. #!/bin/bash
   
2. 
   
3. hash_pjw()
   
4. {
   
5.     echo "$1" | [color=Navy][b]gawk [/b][/color]'BEGIN{}
   
6.     function ord(c)
   
7.     {
   
8.         for( i=0;i<256;i++ ) {
   
9.             ch = sprintf("%c",i);
   
10.             assii[ch] = i;
    
11.         }
    
12.         return assii[c]
    
13.     }
    
14. 
    
15.     {
    
16.         str=$0
    
17.         for(j=1;j<=length(str);j++){
    
18.             temp = ord( substr(str,j,1) )
    
19.             hash = ( lshift(hash,4) + temp*13 )
    
20.             g = and(hash,0xf0000000)
    
21.             #print temp,hash,g
    
22. 
    
23.             if(g){
    
24.                 hash = xor(hash,rshift(g,24))
    
25.                 hash = xor(hash,g)
    
26.             }
    
27.         }
    
28.         print hash
    
29.     }'
    
30. }
    
31. 
    
32. hash_pjw $1

復制代碼