Очистка огромного Perl Codebase

Question

В настоящее время я работаю над 15-летним веб-приложением.

Он содержит в основном CGI перл скрипты с HTML :: Template шаблоны.

Имеет более 12 000 файлов и примерно 260 МБ общего кода. Я считаю, что не более 1500 perl-скриптов необходимы, и я хочу избавиться от всего неиспользуемого кода.

Для кода не существует тестов.

Мои вопросы:

• Вы в курсе любого модуля CPAN, который может помочь мне получить список только use d- и require д модулей?
• Каким будет ваш подход, если вы хотите избавиться от всего лишнего кода?

Я думал, на следующих подходах:

• попытаться переопределить use и require перл встроенных команд с тех, что выход загруженного имени файла в определенном месте
• переопределять значение warnings и/или strict модули import функции и вывести имя файла в определенном месте
• изучить модуль perl модуля Devel::Cover и использовать тот же подход и проанализировать c ода, делая ручное тестирование вместо автоматических тестов
• заменить PERL исполняемый файл с пользовательской один, который будет регистрировать каждое имя файла он читает (я не знаю, как сделать это еще)
• некоторое творческое использование lsof (?!?)

Answer 1

Devel::Modlist может дать вам то, что вам нужно, но я никогда не использовал его.

Несколько раз, когда мне нужно было сделать что-то вроде этого, я выбрал более грубый подход к проверке %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» в отладчике), а затем перенаправить вывод в текстовый файл для дальнейший анализ. Я знаю, что это сложно при работе CGI ...

Answer 3

Предполагая, что соответствующие временные метки включены, вы можете проверить время доступа различных файлов сценариев - это должно исключить любые файлы сценариев верхнего уровня, которые не используются.

Возможно, стоит добавить некоторые инструменты для CGI.pm для регистрации текущего имени скрипта ($ 0), чтобы узнать, что происходит.