Perl 脚本可移植性和面向未来

Question

由于来自团队外部的压力，我们必须将一百多个 Perl 脚本从 Sparc 移植到 x86。这意味着将数十行 shebang 行从 #!/home/Perl/bin/perl -w 更改为其他内容，这确实很痛苦。有什么好的方法可以做到这一点（我在 Lycos)?

另外，当我们被迫从 x86 迁移到其他东西（我想是 Cray）时会发生什么？有什么办法可以“面向未来”吗？

Answer 1

这是许多人提倡使用 #!/usr/bin/env 的原因之一perl 而不是 #!/usr/bin/perl：

Answer 2

更改 Shebang 行整体并没有那么糟糕：

#! /usr/bin/perl

use warnings;
use strict;

use File::Find;

sub usage { "Usage: $0 dir ..\n" }

my @todo;
sub has_perl_shebang {
  return unless -f;
  open my $fh, "<", $_ or warn "$0: open $File::Find::name: $!", return;
  push @todo => $File::Find::name
    if (scalar(<$fh>) || "") =~ /\A#!.*\bperl/i;
}

die usage unless @ARGV;
find \&has_perl_shebang => @ARGV;

local($^I,@ARGV) = ("",@todo);
while (<>) {
  s[ ^ (\#!.*) $ ][#! /usr/bin/env perl]x
    if $. == 1;
  print;
}
continue {
  close ARGV if eof;
}

根据您所拥有的，s/// 可能需要更智能一些才能处理诸如 < code>-T 必须位于 shebang 行。

添加一个经过一些更改的空运行选项，以及 redo：

my $dryrun;
{
  die usage unless @ARGV;
  $dryrun = shift @ARGV, redo if $ARGV[0] eq "-n";
}

find \&has_perl_shebang => @ARGV;
if ($dryrun) {
  warn "$0: $_\n" for @todo;
  exit 1;
}

Answer 3

Perl 是跨平台的。除非您的代码使用 XS 编译的代码或系统特定的路径、设施等，否则应该没问题。

您有两个选择：

1. 不要使用 shebang 行 (perl yourscript.pl)。
2. <代码>查找 . -名称 '*pl' | xargs sed 's/#!\/home\/Perl\/bin\/perl -w/#!\/usr\/bin\/env perl/

无论如何，shebang 行无关与您正在运行的硬件平台以及您正在运行的外壳有关。

Answer 4

当然，另一种替代方案（可能更简单，但我会犹豫是否说“更好”）是将 /home/Perl/bin/perl 软链接到新系统上实际 Perl 二进制文件所在的位置。是...只有当您拥有大多数正常公司应该拥有的高效批量系统管理工具时，这才是可行的。