☰

Perlを使用して、文字列を配列内で見つかったファイルの内容に置き換えます。

tag-icon • tag-icon bash perl
Perlを使用して、文字列を配列内で見つかったファイルの内容に置き換えます。 
for i in "${arrOfFiles[@]}"; do
   # OUTPUT_PATH=some dynamic naming file created earlier
   perl -pe 's/%REPLACE ME%/`cat $i`/ge' -i "$OUTPUT_PATH"`
done

私のスクリプトはここにぶら下がって完了しません。 usingはcat $i配列内のファイルの正しい内容を表示するため、$ iが機能します。何を提供しますか？

ベストアンサー1

ePerl演算子flagsを使用したくありませんs///。-e代替コードの右側をPerlコードで評価します。cat $iPerlコードの内容を評価せずに置き換えるリテラルテキストとして処理しようとしています。 bashコマンドラインで一重引用符を使用しているので、cat $iテキストは文字通りperlに渡されます表現による評価：これは、Perlがcat（Perlの観点から）サブシェルとその内容を実行することを意味します。$i真珠変数はまったくありません。それ以外の場合、use strict宣言されていない変数を持つことは完全に正当であるため、catPerlは引数なしで呼び出されたサブシェルを開くように指示するときに文句を言いません。 catもちろん、標準入力を待つ引数はありません。これがスクリプトが「停止」する理由です。デフォルトでは、次のように呼び出します。 

perl -e '`cat $i`;'

use strictPerlコードに以下を追加すると、エラーが明らかになります。

perl -e 'use strict; `cat $i`;'

コードブロックは次のようにする必要があります。

for i in "${arrOfFiles[@]}"; do
    perl -pi -e "s/%REPLACE ME%/`cat $i`/g;" "$OUTPUT_PATH"
done

ただし、これは常に名前付きファイルで機能します$OUTPUT_PATH。つまり、%REPLACE ME%そのファイルのテキストがファイル配列の最初のファイルの内容に置き換えられ、残りのファイルは何も置き換えられません。ここで正確に何をしたいのかは明確ではありません。 Perlのフラグを使用すると、コマンドライン-piで提供されているすべてのファイルをインライン編集するように指示できます。現在は$OUTPUT_PATH。

これは文字列置換を実行する悪い方法かもしれません。各ファイルの内容に文字数が制限なく含まれる可能性があり、$iPerlコマンドラインが完全に破損する可能性があります。単一/文字だけでもPerl構文エラーが発生する可能性があり、注入を介して任意のコードを実行するシーケンスがある可能性があります。あなたは警告を受けました。

おすすめ記事