Настраиваем гитару при помощи perl

Возникла интересная задача - проверить аудио-запись на наличие в нём сигнала той или иной частоты. Например, нужно настроить гитару, а тюнера под рукой нет, а со слухом так всё плохо, что настройка может закончиться лопнувшими струнами или нервами

Оказывается на CPAN есть модуль, который может помочь нам сделать это без особого труда - Math::FFT

Как известно, любой реальный сигнал можно разложить на синусоидальные колебания различных частот, амплитуда и частота которых будут представлять собой спектр данного сигнала. Для получения спектра используется преобразование Фурье и в случае дискретного сигнала, которым является оцифрованный аудио-сигнал, - дискретное преобразование Фурье. Модуль Math::FFT использует алгоритм быстрого преобразования Фурье, сложность которого составляет O(N log N) против O(N²) в классическом варианте.

...

далее по ссылке