すべてのファイルの一部のASPコードをPHPコードに変更する

Question

これを行う方法はいくつかあります。 Perlを活用することをお勧めします。quotemeta機能。

まず、タブ区切り最初の列の検索パターンと2番目の列の代替項目を含むテキストファイル：

$ cat pats.txt                     
<% if request("page") = "" then %>  <?php if(!isset($_GET['page']) || !$_GET['page']){ ?>
<% elseif request("page") = "*" then %> <?php } elseif($_GET['page'] == '*'){ ?>
<% end if %>    <?php } ?>

内容は次のようなテストファイルを作成しました。

$ cat foo.asp 
<% if request("page") = "" then %>
<% elseif request("page") = "*" then %>
<% end if %>

Perlが構造に来ます：

find . -name "*.php" | while IFS= read -r file; do
  perl -i.bak -e 'open(A,"pats.txt");
             while(<A>){chomp; @a=split(/\t/); $k{quotemeta($a[0])}=$a[1]}
             while(<>){ 
              foreach $pat (keys(%k)){
                s/$pat/$k{$pat}/;
              } 
             print}' $file;
done

Perlのフラグは、オプションのバックアップサフィックスを指定できる-i場所と同じように機能します。sed上記の例では、foo.php.bak処理された各ファイルに対して名前付きファイルが生成されます。-iバックアップが必要ない場合は、単独で使用してください。

説明する：

スクリプトはパターンと置換項目を読み取り、%k置換項目が値であるキーのハッシュ（）としてパターンを保存します。このquotemeta関数は、ASCII以外の（一致しない[A-Za-z_0-9]）文字をすべてエスケープします。

そのスクリプトは2番目のファイルを開き、各行の各パターンを見つけてそれに応じて置き換えます。検索パターンがエスケープされているため、quotemeta正しく認識されます。

ノート

これは明らかにすべての行ですべてのパターンを見つける必要があるため、最も効率的なアプローチではありません。それでも、すべてを手動で回避するよりも機能し、はるかに簡単です。

名前に新しい行が含まれるファイルの場合、スクリプトは失敗します。ここでは問題にならないと思います。

Answer 1