Услуги Проверка Форумы
ОсновноеRadiotalkПользовательское
Общие вопросы по интернет радио вещанию
7   •   Посмотреть все темы

обсудим скрипт

 
1

32
Razo @Razo
Доброе время сутки, скажите пожалуйста все правильно в этом скрипте, внутри цикла не важно, можете не обращать внимание, я хочу узнать правильно написан код или нет, если есть ошибки подскажите пожалуйста

  1. use DBI;
  3. my $host = "localhost"; # MySQL-сервер нашего хостинга
  4. my $port = "3306"; # порт, на который открываем соединение
  5. my $user = "ПОЛЬЗОВАТЕЛЬ_БД"; # имя пользователя
  6. my $pass = "password"; # пароль
  7. my $db = "ИМЯ_БД"; # имя базы данных
  9. $dbh = DBI->connect("DBI:mysql:$db:$host:$port",$user,$pass);
  11. sub ices_init {
  12. print "Perl subsystem Initializing:\n";
  13. $jingle = 0;
  14. return 1;
  15. }
  16. sub ices_shutdown {
  17. print "Perl subsystem shutting down:\n";
  18. }
  19. sub ices_get_next {
  20. $sql="SELECT `time` FROM `timeline` WHERE `farmId`='1'"; // в строке time записан сколько раз будем подключать рекламы в одном часе, например там 4
  21. $qu=$dbh->Query($sql); //запрос
  22. @arr=$qu->FetchRow; // массив
  24. print "Perl subsystem quering for new track:\n"; // не знаю для чего
  26. $time=0;
  27. @time_arr="";
  28. for($i=0;$i<$arr[0];$i++){ //$arr[0] ровно 4
  29. $chas=60 / $arr[0]; // 60 / 4 = 15
  30. $time += $chas; // 15 потом 30 потом 45 потом 60
  31. $time_arr[$i] = $time - 5; // снимаем 5 чтобы получилось от 10 до 15, от 25 до 30
  32. }
  34. use Time::localtime;
  35. $tm = localtime;
  36. $min = $tm->min; //получаем текущий минут
  37. if(@time_arr[$min]!=""){ // проверяем если в массиве $time_arr есть текущий минута то есть не пустой подключаем рекламы
  38. @music=`/bin/ls -1 /home/user/reklam/*.mp3`;
  39. }
  40. else{ // если нет то музыку
  41. @music=`/bin/ls -1 /home/user/music/*.mp3`;
  42. }
  43. $num = scalar (@music);
  44. $play=int(rand($num));
  45. chomp $music[$play];
  46. return $music[$play];
  47. }
  48. return 1;

Отредактировано Razo - 20.10.2012
0





Согласие на обработку данных на нашем сайте

Продолжая просматривать страницу, вы соглашаетесь с использованием файлов «Cookie» и с Политикой конфиденциальности «Privacy».
Наверху или внизу страницы вы можете изменить валюту и язык по умолчанию. Английская версия сайта ещё находится в доработке и доступна не полностью.