Solaris下用nawk如何實(shí)現(xiàn)位運(yùn)算？

legone2008

用nawk (僅限于shell，請不要有用python,perl實(shí)現(xiàn)的回答），實(shí)現(xiàn)ACE中的一個(gè)hash算法，源代碼如下：

1. u_long
   
2. ACE::hash_pjw (const char *str, size_t len)
   
3. {
   
4.   u_long hash = 0;
   
5. 
   
6.   for (size_t i = 0; i < len; i++)
   
7.     {
   
8.       const char temp = str[i];
   
9.       hash = (hash << 4) + (temp * 13);
   
10. 
    
11.       u_long g = hash & 0xf0000000;
    
12. 
    
13.       if (g)
    
14.         {
    
15.           hash ^= (g >> 24);
    
16.           hash ^= g;
    
17.         }
    
18.     }
    
19. 
    
20.   return hash;
    
21. }

復(fù)制代碼

以上我用shell已經(jīng)實(shí)現(xiàn)，但效率實(shí)在太低，可能我水平有限，寫不出高效率的腳本，請達(dá)人賜教。
另外，我用gawk實(shí)現(xiàn)了這個(gè)腳本，效率大大提升，但移植到Solaris下，原生的awk和nawk不支持gawk的位運(yùn)算操作，請教達(dá)人如何用nawk實(shí)現(xiàn)呢？
shell的實(shí)現(xiàn)：

1. #!/bin/bash
   
2. 
   
3. 
   
4. hash_pjw()
   
5. {
   
6.     hash=0
   
7.     in="$1"
   
8.     for (( i = 0; i < ${#in}; ++i ))
   
9.     {
   
10.         temp=`printf "%d" "'${in:i:1}"`
    
11.         hash=$(( (hash<<4) + (temp*13) ))
    
12. 
    
13.         g=$(( hash & 0xf0000000 ))
    
14.         #echo temp[$temp]hash[$hash]g[$g]
    
15.             
    
16.         if [ -n "$g" ]; then
    
17.             hash=$(( hash ^= (g >> 24) ))
    
18.             hash=$(( hash ^= g ))      
    
19.         fi
    
20.     }
    
21.     echo $hash
    
22. }     
    
23. 
    
24. hash_pjw "$1"

復(fù)制代碼

gawk的實(shí)現(xiàn)：

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

復(fù)制代碼

Shell_HAT

Solaris里面用/usr/xpg4/bin/awk可以嗎？

legone2008

回復(fù) 2# Shell_HAT

不可以。也不支持。

   

legone2008

沒有大俠能指點(diǎn)一下嗎？  如果不用nawk，或者能用shell實(shí)現(xiàn)也行, Solaris下執(zhí)行500次，能夠控制在30秒之內(nèi)就可。

legone2008

沒辦法，已轉(zhuǎn)為python實(shí)現(xiàn)

wenhq

solaris上裝個(gè)GNU awk不就可以了嗎？