Question

我正在尝试比较Perl和Java Hash表的性能。在Perl中，使用哈希和计数100K字的单词数

的Perl：

%words = ();
open FILE, "<", "bigfile" or die "Cannot open file: $!\n";
while(my $line = <FILE>){
  chomp( $line );   
  $line =~ s/[[:punct:]]//g;
  my @words = split /\n|\s+/, $line;    
  foreach my $w (@words){
      $words{$w}++; 
  }  

}
close FILE ;
for my $key ( sort( keys %words ) ) {
  print "$key : $words{ $key } \n";  
}

在Java中：

    Map<String, Integer> wordsMap = new HashMap<String, Integer>();
    try{
        Scanner sc = new Scanner( new File( "bigfile") );
        while( sc.hasNextLine() ){
            String input = sc.nextLine();
            input = input.replaceAll( System.lineSeparator() , " " );
            String[] inputArray = input.split("\\s+");
            for(int i=0; i< inputArray.length ; i++ ){                  
                String r = inputArray[i].replaceAll("\\p{Punct}|[^\\p{ASCII}]+", ""); 
                if ( wordsMap.containsKey( r )){
                    int count = wordsMap.get( r );
                    wordsMap.put( r , count + 1 );
                }else {
                    wordsMap.put( r, 1);
                }
            }

        }
    }catch(FileNotFoundException fnf ){
        fnf.printStackTrace();
    }

    Set <String> keys = wordsMap.keySet(); 
    TreeSet<String> sortedKeys = new TreeSet<String>(keys);

    for( String key: sortedKeys){
        System.out.printf("%-10s%10s\n" , key, wordsMap.get(key) );
    }

当我运行上述2版本时，Perl似乎跑得更快。我在某地阅读Java Hash与Perl不同。有没有办法优化Java版本？

我如何使用Linux时间对两者进行计时。

#> time perl count.pl
real    0m0.316s
user    0m0.236s
sys     0m0.018s

#> time java count
real    0m1.434s
user    0m1.856s
sys     0m0.181s

Answer 1

使用BufferedReader读取行，它会更快并且读取 line方法已经chomps行分隔符。
预编译循环中使用的正则表达式（请参阅java.util.regex.Pattern.compile）！当然，Perl就是这样做的。
对大小为十倍的文件运行测试。
在非常小的文件上运行java程序2次，以及更大的文件并将第二个时间与第三个时间进行比较，以便您了解如何启动成本是。（通常约1/2秒。）另请注意作为课程，第一次执行程序需要更长的时间文件尚未加载到文件系统缓存中。当你有许多（几百个）课程，将它们装入JAR也是值得的。

Perl vs Java哈希表性能

1 个答案: