v 0. Pasted by lingam_f as perl at 2009-11-03 18:55:31 MSK and set expiration to never.

Paste will expire never.

  1. #!/usr/bin/perl
  2. # Буковки!
  3. # use warnings;
  4. # Закомментировал прагму, когда начал использовать скрипт.
  5. use utf8;
  6. # Это чтобы не мучиться с кракозябрами.
  7. use LWP::Simple;
  8. # А этот волшебный и простой класс поможет нам без проблем выдирать из интернета данные.
  9.  
  10. Xchat::register (»RadioRecord script», «0.1.0);
  11. # Самое интересное начинается! В любом скрипте для XChat должна присутствовать эта штука.
  12. #Она регистрирует в самом клиенте наш скрипт. Все будет по правилам и красиво.
  13.  
  14. Xchat::hook_command( ‘rr’, ‘get_rr’ );
  15. # Ставим хук на выполнение команды. В нашем случае, при написании команды «/rr», управление передается функции «get rr»
  16.  
  17. sub get_rr {
  18. #ой, что это?!
  19.   my $content = get(»http://radiorecord.ru/script/record.txt»);
  20.   # Открываем тот-самый текстовый файл, в котором название музяки!
  21.   if ($content =~ m%В эфире: <strong>(.+)</strong> — (.+)%) {
  22.   # Здесь с помощью регулярки выдергиваем нужные буквы из строки в файле.
  23.     $chan = Xchat::get_info(’channel’);
  24.     # Еще одна интересная функция: получить название канала, на котором находимся.
  25.     Xchat::command(»msg $chan Сейчас на рекорде: $1 — $2);
  26.     # Тут все довольно очевидно: выполнить команду. В нашем случае, послать сообщение на канал с названием музыки. В переменных имя исполнителя и, собственно, название.
  27.   }
  28.   else {
  29.     print qq/$content/;
  30.     # Если там не называние песни, а что-то другое, то просто выбросить на экран, а не на канал.
  31.   }
  32. }


Editing is locked.