Определить поисковую фразу по которой пришел посетитель. Perl

Появилась задача определить по какой поисковой фразе пришел посетитель на сайт из поисковых систем (Yandex, Google, Mail.ru  и т.п.).

Готовых компонентов на Perl я не нашел, да и на форумах примеры в основном на PHP и все в качестве “набросков”.

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

Как использовать:

 

Leave a Reply

Your email address will not be published. Required fields are marked *