c++与perl在正则表达式运算速度上的比较

83 阅读 0 评论 55 点赞

我是靠谱客的博主潇洒戒指，最近开发中收集的这篇文章主要介绍c++与perl在正则表达式运算速度上的比较，觉得挺不错的，现在分享给大家，希望可以做个参考。

概述

写了两组代码文件，组内代码功能相同：

testv.pl vs testv.cpp

testreg.pl vs testreg.cpp

代码如下：

testreg.cpp/
#include<iostream>
#include<fstream>
#include<regex>
using namespace std;
int main(int argv, char ** argc)
{
   fstream in(argc[1], fstream::in);
   int line_count;
   string line_content;
   regex reg("[ATCG]");
   while(getline(in, line_content))
   {
       line_count++;
       if(line_count % 4 == 2)
       {
           if(regex_search(line_content, reg))
           {
               cout<<1<<endl;
           }
       }
   }
   return 0;
}
testreg.pl/
#!/usr/bin/perl
use strict;
use 5.010;
my $file = shift;
open SEQ, '<', $file or die "$!";
while(<SEQ>) {
        chomp;
        if($. % 4 == 2) {
       if(/[ATCG]/) {
           say 1;
       }
   }
}
testv.cpp/
#include<iostream>
#include<fstream>
#include<unordered_map>
using namespace std;
int main(int argv, char ** argc)
{
   fstream in(argc[1], fstream::in);
   int line_count;
   string line_content;
   typedef unordered_map<string, int> mapdef;
   mapdef mymap;
   while(getline(in, line_content))
   {
       line_count++;
       if(line_count % 4 == 2)
       {
           mymap[line_content]++;
       }
   }
   cout<<mymap.size()<<endl;
   return 0;
}
testv.pl/
#!/usr/bin/perl

use strict;
use 5.010;

my $file = shift;
open SEQ, '<', $file or die "$!";
my %hash;
while(<SEQ>) {
   chomp;
   if($. % 4 == 2) {
       $hash{$_}++;
   }
}
say scalar(keys %hash);