巨大なPerlコードベースを整理する

Question

私は現在、約15歳のWebアプリケーションを開発中です。

これは主にCGI perlスクリプトHTML :: Templateテンプレートを含んでいます。

それは000 12上のファイルおよび全コードの約260メガバイトを有します。私は、1500を超えるPerlスクリプトは必要ないと推測し、私は未使用のコードをすべて取り除きたいと思っています。

コードのために書かれた事実上何のテストはありません。

私の質問は以下のとおりです。あなたは私だけuse Dとrequire Dモジュールのリストを得るのを助けることができる任意のCPANモジュールの意識

• ていますか？
• 余分なコードをすべて削除したい場合、あなたのアプローチは何でしょうか？

私は以下のアプローチで考えていた：

• 試みをするものでuseとrequire perlの組み込み関数をオーバーライドするために、出力の特定の場所にロードされたファイル名
• オーバーライドwarningsおよび/またはstrict modules import関数を実行し、特定の場所にファイル名を出力します。
• Devel::Cover perlモジュールを調べ、同じアプローチをとり、c自動テストの代わりに手動テストを行うときにodeを実行します。
• lsofのいくつかの創造的な使用法（私はまだそれを行う方法がわかりません）を読み込むファイル名を記録するカスタムファイルでperl実行可能ファイルを置き換えます。 （？！？）

Answer 1

Devel::Modlistはあなたが必要なものを与えることがあります... CGIを実行するときに、これは困難であることを知っているが、私はそれを使用したことがありません。

私はこのような何かをする必要がありましたが、私はプログラムの最後に%INCを検査するよりブルートフォースのアプローチを選択しました。

END { 
    open my $log_fh, ...; 
    print $log_fh "$_\n" for sort keys %INC; 
} 

Answer 2

第一近似として、私は単純に続いて

egrep -r '\<(use|require)\>' /path/to/source/* 

を実行し、その出力をクリーンアップする日のカップルを費やすだろう。これは、使用されている、または必要とされているすべてのモジュールのリストを提供します。

また、特定のライブラリパスを除外するために@INCで遊ぶことができるかもしれません。

実行パスを決定しようとしている場合は、デバッガで 'trace'（デバッガの 't'）をオンにしてコードを実行し、その出力をテキストファイルにリダイレクトすることができます。さらなる分析。私は

Answer 3

関連するタイムスタンプを使用すると、さまざまなスクリプトファイルにアクセス時間をチェックすることができ、オンになっていると仮定すると、 - 使用されていないすべてのトップレベルのスクリプトファイルを除外するべきです。

CGI.pmに現在のスクリプト名（$ 0）を記録して何が起こっているかを見るための計測器を追加する価値があります。