Perlやシェルスクリプトでシバン行を変更するにはどうすればよいですか？

Question

私は多くのPerlスクリプトを必要とします。これには、一貫したバージョンが必要であり、現在さまざまなバージョンとフラグが必要です。これらのステートメントはすべてスクリプトの最初の行にあります。私はここでは、明らかにsedを使用しようとしている多くの運を持っていないが、何か良いですか？次のように私はbashスクリプトを試してみましたが、それは私のために動作しません

#!/opt/local/bin/perl5 

を編集する必要

例ライン。

#!/bin/bash 
echo "Changing Perl headers in the following..." 
for file in $(ls $1*.pl) 
do 
    echo $file 
    sed 's/#!\/opt\/local/bin\/perl5/#![PERL5]/' $file > /dev/null 
# Perl Version: PERL5 
done 

sedの経験があれば助けてください。ありがとう！

Answer 1

私はそれがあなたが何を望んでいるか正確にはわかりません。あなたのPerlスクリプトを修正するために

sed --in-place '1s:^#!/opt/local/bin/perl5:#![PERL5]:' "$DIR"/*.pl 

Answer 2

使用されたPerl：あなたは彼らの最初の行は#![PERL5]代わりの#!/opt/local/bin/perl5なるよう$DIR内のすべてのファイルを編集したい場合は、これはそれを行います。正規表現には中カッコを使用して、leaning toothpick syndromeを避けることができます。 sedのよう

perl -i -pe 's{^#!/opt/local/bin/perl5}{#!/some/new/path}' *.pl 

-iと-pはちょっと、場所にファイルを編集するために使用されています。詳細は、perlrunを参照してください。

Answer 3

perlでファイルを編集するには、-piスイッチを使用します。最初の行だけを変更したかったので、ファイル内の他の部分を正規表現で変更することなく、そうする方法を検討していました。この小さなハックはそれを可能にします。シバンのような弦が他の場所に実際には見られないので、努力する価値があるかどうかは分かりません。 $xが既に定義されている場合

perl -pi.bak -e ' 
    $x //= s|^#!/opt/local/bin/perl5|#![PERL5]|; 
    undef $x if eof;' *.pl 

//=オペレータはRHSを実行しようとしないので、効果で、この意志は、唯一の変更を行います。 eofにundef $xを追加すると、次のファイルの変数がリセットされ、引数リストの各ファイルが一度変更されます。

バックアップが必要ない場合は、-iスイッチから.bakを削除します。

Answer 4

あなたはPerl6の へのperl5を変更する場合とし、これを試してみてください： のperl -pi -eさん/ perl5の/ Perl6の/ '$ファイル