如何在Perl中比较同一模块不同版本的基准测试输出？

核心思路：复用基准脚本，分离版本环境 #

不用复制包名这种繁琐方法，核心是让同一个基准脚本能分别加载不同版本的模块，再把两次运行的结果导出为结构化数据做对比。

方案1：通过本地库路径切换版本 #

Perl的@INC数组控制模块加载优先级，你可以给不同版本的模块单独创建本地库，在脚本里动态指定加载路径：

• 把1.0版本模块安装到./lib-v1，1.1版本安装到./lib-v2
• 基准脚本通过命令行参数指定要加载的版本：

use strict;
use warnings;
use Benchmark qw(timethese cmpthese);

# 从命令行获取版本标识，默认用v1
my $version = shift @ARGV || 'v1';
# 把对应版本的库路径放到@INC最前面，优先加载
unshift @INC, "./lib-$version";

use Package::Under::Test;

# 你的基准测试逻辑，示例：
my $results = timethese(100000, {
    'func_a' => sub { Package::Under::Test::func_a() },
    'func_b' => sub { Package::Under::Test::func_b() },
});
cmpthese($results);

分别运行两次并保存结果：

perl bench.pl v1 > bench-v1.out
perl bench.pl v2 > bench-v2.out

方案2：导出结构化输出，自定义对比脚本 #

Benchmark默认输出是人类可读格式，你可以把结果转成JSON/CSV这类结构化格式，方便后续批量对比：
修改基准脚本，将timethese结果序列化导出：

use strict;
use warnings;
use Benchmark qw(timethese);
use JSON;

my $version = shift @ARGV || 'v1';
unshift @INC, "./lib-$version";
use Package::Under::Test;

my $raw_results = timethese(100000, {
    'func_a' => sub { Package::Under::Test::func_a() },
    'func_b' => sub { Package::Under::Test::func_b() },
});

# 转换为可序列化的结构
my $formatted = {};
for my $test_name (keys %$raw_results) {
    $formatted->{$test_name} = {
        ops_per_sec => $raw_results->{$test_name}->[0],
        sec_per_op  => $raw_results->{$test_name}->[1],
        total_cycles => $raw_results->{$test_name}->[2],
    };
}

print to_json($formatted, { pretty => 1 });

之后写个简单的Perl脚本读取两个JSON文件，计算性能差异（比如1.1版本比1.0快了多少百分比），输出直观的对比表格。

方案3：借助文本工具简化对比 #

虽然没有Go的benchstat那样专门的Perl工具，但可以利用cmpthese的规整输出做对比：

• 让基准脚本输出cmpthese的结果（如方案1所示）
• 用diff工具直接对比两个输出文件，或者自己写脚本解析表格中的速率、耗时数据，计算版本间的变化幅度。

避免复制包名的小技巧 #

如果不想修改@INC，也可以手动加载指定路径的模块：

my $version = shift @ARGV;
my $module_file = "./lib-$version/Package/Under/Test.pm";
require $module_file;
Package::Under::Test->import();

这样无需修改包名，也能精准加载目标版本的代码。

内容的提问来源于stack exchange，提问作者Tiago Peczenyj