ices + perl

05.01.2013

Стоит perl следующего вида:

1. sub ices_init {
2. print "Perl subsystem Initializing:\n";
3. $jingle = 0;
4. return 1;
5. }
7. sub ices_shutdown {
8. print "Perl subsystem shutting down:\n";
9. }
11. sub ices_get_next {
12. print "Perl subsystem quering for new track:\n";
13. if($jingle < 12){
14. $jingle ++;
15. @music=`/bin/ls -1 /home/r4l/music/*.mp3`;
16. }else{
17. $jingle = 0;
18. @music=`/bin/ls -1 /home/r4l/jingles/*.mp3`;
20. }
21. $num = scalar (@music);
22. $play=int(rand($num));
23. chomp $music[$play];
24. $a=`wget **********
25. return $music[$play];
26. }
28. sub ices_get_metadata {
29. use MP3::Info;
30. $tag = get_mp3tag($music[$play]) or die "No TAG info";
31. return "$tag->{ARTIST} - $tag->{TITLE}";
32. }
34. return 1;

Проблемы две:
- названия треков выводятся 20/80 крокозябры/нормальные (теги все массово перекодировал)
- строчка "$a=`wget ..." запускает скрипт, который парсит инфу о треке со страницы статуса радио. Проблема в том, что парсинг выполняется чуть-чуть раньше запуска трека, соответственно информация об играющей композиции запаздывает.

Кто что может посоветовать?

05.01.2013

а если $a=`wget ********** вставить в sub ices_get_metadata?
и почему так по идиотски запускать этот скрипт через wget ? Неужели сайт и ices на разных машинах?

06.01.2013

Не помогло, также запаздывает. Да, на разных.

06.01.2013

так запаздывает или раньше?

06.01.2013

скрипт выполняется сразу перед сменой, инфа запаздывает на 1 трек.

06.01.2013

можно тогда через $a=`wget ********** передать и название текущего трека, или запускать другой скрипт в бекграунд с задержкой на выполнение wget **********