このページでは、perlスクリプトを利用して、perlスクリプトの中からサブルーチン実装を抽出する方法について説明します。
論より証拠、ということで、まずは実証するサンプルコードをご覧ください。
my($aTargetFile)=$ARGV[0]; my(%tSubroutine)=(); open(DATA_FILE,'<'.$aTargetFile); flock(DATA_FILE,1); my(@tFileData)=<DATA_FILE>; close(DATA_FILE); my($tContent)=join('',@tFileData); while($tContent=~ /(sub ([a-zA-z0-9_]{1,})\n\{\n(.|\n){1,}?\n\}\n)/g) { $tSubroutine{$2}=$1; } foreach(sort keys %tSubroutine) { my($tKey)=$_; my($tValue)=$tSubroutine{$tKey}; print '# --------------------------------'."\n"; print '# '.$tKey."\n\n"; print $tValue."\n"; }
sub test1 { print 'subroutine test1 called!'."\n"; } sub test2 { print 'subroutine test2 called!'."\n"; } &test1(); &test2(); &test1(); &test2();
このサンプルコードで被抽出コードからサブルーチン実装を抽出してみます。
実行結果は以下の通りです。
$ perl test.pl test.pl # -------------------------------- # test1 sub test1 { print 'subroutine test1 called!'."\n"; } # -------------------------------- # test2 sub test2 { print 'subroutine test2 called!'."\n"; }
このプログラムで一番重要なのは「while($tContent=~ /(sub ([a-zA-z0-9_]{1,})\n\{\n(.|\n){1,}?\n\}\n)/g)」の部分で、
sub hogehoge { ........ }のようなサブルーチン全体を抽出し、「hogehoge」のサブルーチン名をキーにして連想配列に格納します。
上記のサンプルコードでは「sub」と「hogehoge」の間に複数のスペースやタブが入っていたり、「{」「}」が一行にひとつだけ記載されていない場合には、サブルーチン全体を上手く抽出することはできません。
もう少し正規表現部分を弄れば対応できると思いますので、トライしてみてください。
かなりの私は面倒臭がり屋なので、自分が作ったスクリプトでちょっとでも他のプログラムに転用できそうなものはサブルーチン化し、機能ごとに共通ライブラリとして保存しています。
この「共通ライブラリ」は結構便利なのですが、ちょっとしたシェルスクリプトを書くときに、使ってもいないサブルーチンが実装されたファイルをいちいちrequireするのはスクリプトの呼び出しのオーバーヘッド等もあり、あまり上手いやり方には思えません。
そうした時に、自分が書いたスクリプト内で使っているサブルーチンだけを共通ライブラリから切り出し、ひとつのファイルにまとめられたら便利ですよね。
上記のサンプルコードでは、「スクリプト内のサブルーチン名とサブルーチン実装を組にして抽出する」ことが出来ます。
こちらとあわせれば、利用しているサブルーチンのみ共通ライブラリから切り出すことが可能になりますので、是非ともお試しください。
・頂いたメッセージは管理者のチェックの後、公開されます。
・メッセージの公開を希望されない場合には、「このメッセージを非公開にする」にチェックを入れてください。
・管理者が不適切と判断したメッセージは公開しませんので、予めご了承ください。
まだ評価がありません |
表示できるメッセージはありません。