Переносимость сценария Perl и будущая проверка

Question

Из-за давления извне нашей группы нам нужно передать более ста скриптов Perl от Sparc до x86. Это означает изменение десятков линий shebang от #!/home/Perl/bin/perl -w к чему-то еще, что является настоящей болью. Каков хороший способ сделать это (я ничего не могу найти на Lycos)?

Также, когда мы вынуждены переходить от x86 к чему-то другому (например, Cray, я полагаю)? Есть ли способ «будущего доказательства»?

Answer 1

Изменение притон линии скопом не так уж плохо:

#! /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/// может потребоваться немного умнее, чтобы обрабатывать переключатели, такие как -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 2

Perl является кросс-платформенным. Если ваш код не использует XS скомпилированный код или системные пути, средства и т. Д., Все должно быть в порядке.

У вас есть два варианта:

1. Не используйте притон линии (perl yourscript.pl).
2. find . -name '*pl' | xargs sed 's/#!\/home\/Perl\/bin\/perl -w/#!\/usr\/bin\/env perl/

В любом случае, притон линия не имеет ничего общего с аппаратной платформой вы работаете, и все с оболочкой, вы работаете на.

Answer 3

Это одна из причин многие люди выступают за помощью #!/usr/bin/env perl вместо #!/usr/bin/perl:

Answer 4

Другой вариант (может быть проще, хотя я затрудняюсь сказать «лучше»), конечно, к софт-ссылке /home/Perl/bin/perl, где бы фактический Perl-бинар в новых системах не был ... это возможно только в том случае, если у вас есть эффективные инструменты администрирования основной системы, которые должны быть в большинстве обычных компаний.