perl скрипт ices0

09.10.2011

Есть скрипт на перле для ices, который должен брать данные о треках из базы mysql, но почему то у меня выдает ошибку при запуске ices. Может кто то сможет помочь?
Вот сам скрипт:

1. sub ices_shutdown {
2. print "Perl subsystem shutting down:\n";
3. }
5. # Function called to get the next filename to stream.
6. # Should return a string.
7. sub ices_get_next {
8. #print "Perl subsystem quering for new track:\n";
9. #return "/usr/local/etc/modules/mp3/2.mp3";
10. use DBI;
11. $dbh = DBI->connect('DBI:mysql:база;host=localhost', 'юзер', 'пароль'
12. ) || die "Could not connect to database: $DBI::errstr";
13. $sth = $dbh->prepare('SELECT name FROM mp_id3_tags WHERE строка с айди трека (она же id)=1');
14. $sth->execute();
15. $result = $sth->fetchrow_hashref();
16. print "Value returned: $result->{file}\n";
17. return $result->{file};
19. $dbh->disconnect();
24. }
26. # If defined, the return value is used for title streaming (metadata)
27. sub ices_get_metadata {
29. use DBI;
30. $dbh = DBI->connect('DBI:mysql:база;host=localhost', 'юзер', 'пароль'
31. ) || die "Could not connect to database: $DBI::errstr";
32. $sth = $dbh->prepare('SELECT name FROM mp_id3_tags WHERE строка с айди трека (она же id)=1');
33. $sth->execute();
34. $result = $sth->fetchrow_hashref();
35. print "Value returned: $result->{name}\n";
36. return $result->{name};
38. $dbh->disconnect();
40. #return "Artist - Title (Album, Year)";
41. }
43. # Function used to put the current line number of
44. # the playlist in the cue file. If you don't care
45. # about cue files, just return any integer.
46. sub ices_get_lineno {
47. return 1;
48. }
50. return 1;

В таблице следующие строки:
ID filename audio_bitrate playtime_seconds artist title album genre
Думаю что в них указано - все ясно (в filename - полный путь к файлу)

09.10.2011

use DBI;
use DBD::mysql;
и это впихнуть можно только один раз в sub ices_init также подключиться достаточно один раз к базе в том же init.
Если я не ошибаюсь скрипт запускается не каждый раз, а один раз при запуске ices дальше дергаються только функции, так что и дергать базу можно лишь раз при get_next, а в get_metadata просто вывести другие переменные уже из полученого массива в get_next

для проверки синтаксиса и тп необязательно запускать ices, можно сам скрипт

09.10.2011

немного не понял ваш пост

09.10.2011

use DBI;
$dbh = DBI->connect('DBI:mysql:база;host=localhost'.....

а надо
use DBI;
use DBD::mysql;
и тогда уже $dbh = DBI->connect('DBI:mysql:база;host=localhost'.....

и не нужно в каждой функции наново подключаться к базе

09.10.2011

1. use DBI;
2. use DBD::mysql;
3. $dbh = DBI->connect('DBI:mysql:mp3_2;host=localhost', 'ices', 'пароль'
4. ) || die "Could not connect to database: $DBI::errstr";
5. $sth = $dbh->prepare('SELECT file FROM mp_id3_tags WHERE id=1');
6. $sth->execute();
7. $result = $sth->fetchrow_hashref();
8. print "Value returned: $result->{file}\n";
9. return $result->{file};
11. $dbh->disconnect();
12. }
14. # If defined, the return value is used for title streaming (metadata)
15. sub ices_get_metadata {
17. use DBI;
18. use DBD::mysql;
19. $dbh = DBI->connect('DBI:mysql:mp3_2;host=localhost', 'ices', 'пароль'
20. ) || die "Could not connect to database: $DBI::errstr";
21. $sth = $dbh->prepare('SELECT name FROM mp_id3_tags WHERE id=1');
22. $sth->execute();
23. $result = $sth->fetchrow_hashref();
24. print "Value returned: $result->{name}\n";
25. return $result->{name};
27. $dbh->disconnect();
29. #return "Artist - Title (Album, Year)";
30. }

итого:
root@radio:~# /usr/local/etc/modules/ices.pm
/usr/local/etc/modules/ices.pm: line 7: sub: command not found
Warning: unknown mime-type for "Perl subsystem Initializing:\n" -- using "application/octet-stream"
Error: no such file "Perl subsystem Initializing:\n"
/usr/local/etc/modules/ices.pm: line 9: return: can only `return' from a function or sourced script
/usr/local/etc/modules/ices.pm: line 10: syntax error near unexpected token `}'
/usr/local/etc/modules/ices.pm: line 10: `}'

09.10.2011

и да, смогу ли я на такой системе реализовать стол заказов?

09.10.2011

запускать надо perl /usr/local/etc/modules/ices.pm ведь в начале файла не указано что это за скрипт

реализовать возможно

09.10.2011

1. root@radio:~# perl /usr/local/etc/modules/ices.pm
2. Can't return outside a subroutine at /usr/local/etc/modules/ices.pm line 61.

код тот же

09.10.2011

это еще нормально ) пробуй в ices

09.10.2011

1. DEBUG: Interpreting [ices_get_next]
2. DBD::mysql::st execute failed: Unknown column 'file' in 'field list' at /usr/local/etc/modules/ices.pm line 28.
3. DBD::mysql::st fetchrow_hashref failed: fetch() without execute() at /usr/local/etc/modules/ices.pm line 29.
4. Value returned:
5. DEBUG: perl [ices_get_next] returned 1 values, last []
6. DEBUG: Done interpreting [ices_get_next]
7. Playlist file name is empty, shutting down.
8. DEBUG: Interpreting [ices_shutdown]
9. Perl subsystem shutting down:
10. DEBUG: perl [ices_shutdown] returned 1 values, last [1]
11. DEBUG: Done interpreting [ices_shutdown]
12. Ices Exiting...

код тот же

10.10.2011

ошибка mysql запроса или неправильно создана таблица

10.10.2011

а что может быть не правильно создано в таблице:
данные мускулу указаны правильно

10.10.2011

Unknown column 'file' in 'field list

10.10.2011

ну дак я же айди колонку указываю, не путь к треку

11.10.2011

line 28
покажи что там

11.10.2011

1. $dbh = DBI->connect('DBI:mysql:mp3_2;host=localhost', 'пользователь', 'пароль'
2. ) || die "Could not connect to database: $DBI::errstr";
3. $sth = $dbh->prepare('SELECT file FROM mp_id3_tags WHERE id=1');
4. $sth->execute();
5. $result = $sth->fetchrow_hashref();

11.10.2011

говорит что в таблице нет столбца file
копай куда-то туда, еще пробуй вместо одинарных кавычек использовать двойные

11.10.2011

дак выборка идет же из столбца id... видимо нужно указать столбец с путем к файлу?

11.10.2011

судя по скрипту данные тянутся з столбца file где id ранво 1