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

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

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

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

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

 

Leave a Reply

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

You may use these HTML tags and attributes: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code class="" title="" data-url=""> <del datetime=""> <em> <i> <q cite=""> <strike> <strong> <pre class="" title="" data-url=""> <span class="" title="" data-url="">