Solaris下用nawk如何实现位运算？

legone2008

用nawk (仅限于shell，请不要有用python,perl实现的回答），实现ACE中的一个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. }

复制代码

以上我用shell已经实现，但效率实在太低，可能我水平有限，写不出高效率的脚本，请达人赐教。
另外，我用gawk实现了这个脚本，效率大大提升，但移植到Solaris下，原生的awk和nawk不支持gawk的位运算操作，请教达人如何用nawk实现呢？
shell的实现：

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"

复制代码

gawk的实现：

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

复制代码

Shell_HAT

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

legone2008

回复 2# Shell_HAT

不可以。也不支持。

   

legone2008

没有大侠能指点一下吗？  如果不用nawk，或者能用shell实现也行, Solaris下执行500次，能够控制在30秒之内就可。

legone2008

没办法，已转为python实现

wenhq

solaris上装个GNU awk不就可以了吗？