今天看到一篇对比  perl, C, C++, Java 效率的博文


把C  和 Perl的代码摘下来， 从1500万行的文件中查找指定字符串，他的机器用C 2分多完成，C++ 4分多完成，perl是8分多完成。


C代码如下：

#include <stdio.h>
#include <string.h>

void main(){
    int len=2048;
    char filename[20];//文件名
    char buff[10000]; //文件内容缓冲区
    char hit[5];      // 查找的字符串
    FILE *fd;
    int i,j,flag=0,over=0;
    int max,readed;
    int count=0;//最后的结果

    strcpy(&filename[0] , "d:\\access.log_");  // 指定文件名
    strcpy(&hit[0] , "HIT");                   // 指定字符串
    buff[0]=0x0;
    buff[1]=0x0;

    //打开文件：
    if((fd = fopen(&filename[0] , "rb"))==NULL){
        printf("Error : Can not open file %s\n",&filename[0]);
    }

    //读取文件内容
    while(over != 1){
        readed = fread(&buff[2] , 1 , len , fd);
        if(readed < len){
            over=1;
            max=readed;
        }else{
            max=len;
        }
        for(i=0;i<max;i++){
            for(j=0;j<3;j++){
                if(hit[j] != buff[i+j]){
                    flag=0;//一旦有一个不相同就退出并且标志为0
                    break;
                }else{
                    flag=1;//一个相同为1，如果连续都相同最后结果定是1
                }
            }
            if(flag==1){
                count++;
                i+=j-1;
            }else{
                if(j==0){
                    i+=(j);
                }else{
                    i+=(j-1);
                }
            }
        }

    //把最后两个字符转移到前面两个字节以防止切断搜索串.
        buff[0]=buff[max];
        buff[1]=buff[max+1];
    }

    fclose(fd);
    printf("count:%d\n",count);
}


perl代码如下：

#!/usr/bin/perl -w
$filename="d:\\access.log_";
$count = 0;
open(FILE , "<$filename");
while(<FILE>)
{
@match_list = ($_ =~ /HIT/g);
$count=$count+@match_list;
}
close(FILE);
print "Count = $count\n";
exit

 参考：

http://www.yesky.com/409/1701409_2.shtml