perl - 使用 perlbrew perl 和 starman 运行可移动类型 5.2+

Question

构成可移动类型的 CGI 脚本和工具具有硬编码的 perl 二进制名称

#!/usr/bin/perl -w

除非我手动替换所有这些实例

#!/usr/bin/env perl
use warnings;

在我的私有版本 perl（安装 perlbrew）下似乎无法运行移动类型。有什么方法可以在 perlbrew perl 下运行可移动类型，而无需手动进行这些更改？

Answer 1

...编写一个程序来为您更改它们？

#! /usr/bin/env perl
use common::sense;
use Tie::File;

tie my @f, 'Tie::File', shift or die $!;
if ($f[0] =~ m,#! */usr/bin/perl( -w)?,) {
  $f[0] = '#! /usr/bin/env perl';
  splice @f, 1, 0, 'use warnings;' if $1
}
untie @f;

有点像。