perl - Perl の a2p サポート gawk を作成するにはどうすればよいですか?

Question

cygwin の gawk を使用する awk スクリプトがいくつかあります。ここで、これらのスクリプトを、cygwin をインストールしていないが Perl をインストールしている同僚に渡す必要があります。cygwin に含まれている a2p を使用できることを望んでいましたが、次のようなエラーで失敗します。

Undefined subroutine &main::gensub called at ./t.pl line 18, <> line 1.

これらのメソッドを実装する既存の Perl ライブラリ/モジュールがあることを願っています。ポインタはありますか？

Answer 1

このgensub()機能は ではサポートされていませんa2p。gsub()代わりに使用するようにコードを変更すると、コンパイルされるはずです。

gensub()または、変換された Perl プログラムの最後にサブルーチンを追加して、gensub()機能をシミュレートすることもできます。

ただし、 によって作成された Perl コードa2pは保守性が低いため、最後の手段としてのみ使用します。

gawk プログラムが他の cygwin/unix ユーティリティを呼び出さない場合は、Windows gawk 実行可能ファイルをプログラムと共に同僚に配布する方がよいでしょう。