powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / PHP, Perl, Python [игнор отключен] [закрыт для гостей] / Робота с Радио-Вещанием, помогите найти ошибку в perl скрипт
2 сообщений из 2, страница 1 из 1
Робота с Радио-Вещанием, помогите найти ошибку в perl скрипт
    #38017781
razo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Здравствуйте ! я создал радио вещание icecast2+ices с поддержкой перл скрипта в return должен выводить путь к музыку например так "/music/music.mp3" но выдает такой ошибка music name is empty типа return не работает
вот скрипт
...
Рейтинг: 0 / 0
Робота с Радио-Вещанием, помогите найти ошибку в perl скрипт
    #38017782
razo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Код: sql
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
sub ices_get_next {
use DBI;

my $dsn = 'DBI:mysql:music:localhost';
my $db_user_name = 'root';
my $db_password = '123456';
my ($id, $password);
my $dbh = DBI->connect($dsn, $db_user_name, $db_password);

	$sql="SELECT `time` FROM `ps_timeline` WHERE `farmId`='1'"; # в строке time записан сколько раз будем подключать рекламы  в одном часе, например там 4
    $qu=$dbh->Query($sql); #запрос
    @arr=$qu->FetchRow; # массив
    
    print "Perl subsystem quering for new track:\n"; # не знаю для чего

    $time=0;
    @time_arr="";
    for($i=0;$i<$arr[0];$i++){ #$arr[0] ровно 4
        $chas=60 / $arr[0]; # 60 / 4 = 15
        $time += $chas; # 15 потом 30 потом 45 потом 60
        $time_arr[$i] = $time - 5; # снимаем 5 чтобы получилось от 10 до 15, от 25 до 30
    }
    
    use Time::localtime;
    $tm = localtime;
    $min = $tm->min; #получаем текущий минут
      if(@time_arr[$min]!=""){ # проверяем если в массиве $time_arr есть текущий минута то есть не пустой  подключаем рекламы
        @music=`/bin/ls -1 /music/music.mp3`; 
    }
    else{ # если нет то музыку
        @music=`/bin/ls -1 /music/music.mp3`;
    }
    $num = scalar (@music);
    $play=int(rand($num));
    chomp $music[0];
    return $music[0];
}
...
Рейтинг: 0 / 0
2 сообщений из 2, страница 1 из 1
Форумы / PHP, Perl, Python [игнор отключен] [закрыт для гостей] / Робота с Радио-Вещанием, помогите найти ошибку в perl скрипт
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]