Услуги Проверка Форумы
ОсновноеRadiotalkПользовательское
Технологии вещания, софт, скрипты
7   •   Посмотреть все темы

скрипт плейдиста perl

 
1

6
sanjy @sanjy
подскажите почему не может открыть файл
зы это мой первый perl скрипт
  1. sub ices_init {
  2. print "Perl subsystem Initializing:\n";
  3. $jingle = 0;
  4. $num_pls = 0;
  5. @list = `/bin/cat /home/24vmf/music/music/playlist.pls`;
  6. return 1;
  7. }
  9. sub ices_shutdown {
  10. print "Perl subsystem shutting down:\n";
  11. }
  13. sub ices_get_next {
  15. if(`/bin/cat /home/24vmf/music/music/playlist.pls`){
  16. if(@list eq `/bin/cat /home/24vmf/music/music/playlist.pls`){
  17. if($num_pls<=`/bin/cat /home/24vmf/music/music/playlist.pls | /usr/bin/wc -1`){
  18. $playlist=1;
  19. $num_pls ++;
  20. }else{
  21. $playlist=0;
  22. }
  23. }else{
  24. @list = `/bin/cat /home/24vmf/music/music/playlist.pls`;
  25. $num_pls=1;
  26. $playlist=1;
  27. }
  28. }else{
  29. #print "плейлист не найден:\n";
  30. $playlist=0;
  31. }
  32. if($playlist == 1){
  33. $num_pls=int($num_pls);
  34. chomp $list[$num_pls];
  35. print "файл $list[$num_pls]:\n";
  36. return "$list[$num_pls]";
  37. #return "/home/24vmf/music/music/Би-2-Волки (album version).mp3" [b]если здесь раскоментировать то норммально читает файл[/b]
  38. }else{
  39. print "не играю плейлист:\n";
  40. if($jingle < 5){
  41. $jingle ++;
  42. @nam=`/usr/bin/find /home/24vmf/music/music/ -name *.mp3 | /usr/bin/wc -l`;
  43. @music=`/usr/bin/find /home/24vmf/music/music/ -name *.mp3`;
  44. }else{
  45. $jingle = 0;
  46. @music=`/bin/ls -1 /home/24vmf/music/jingles/*.mp3`;
  47. @num=`/bin/ls -1 /home/24vmf/music/jingles/*.mp3 | /usr/bin/wc -l`;
  48. }
  49. $play=int(rand($num));
  50. chomp $music[$play];
  51. return "$music[$play]";
  52. }
  53. }
  54. return 1;
  55. sub ices_get_metadata {
  56. use MP3::Info;
  57. if($playlist == 1){
  58. $tag = get_mp3tag($list[$num_pls]) or die "No TAG info";
  59. return "$tag->{TITLE} ";
  60. }else{
  61. $tag = get_mp3tag($music[$play]) or die "No TAG info";
  62. return "$tag->{TITLE} ";
  63. }
  64. }

в логах
Показать текст

0
6
sanjy @sanjy
разобралсо , файл плейлиста кривой был в окошках редактировал.

0





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

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