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

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

 

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

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

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

0





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

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