1

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

подскажите почему не может открыть файл
зы это мой первый perl скрипт

sub ices_init {
        print "Perl subsystem Initializing:\n";
        $jingle = 0;
        $num_pls = 0;
        @list = `/bin/cat /home/24vmf/music/music/playlist.pls`;
        return 1;
}

sub ices_shutdown {
        print "Perl subsystem shutting down:\n";
}

sub ices_get_next {

if(`/bin/cat /home/24vmf/music/music/playlist.pls`){
  if(@list eq `/bin/cat /home/24vmf/music/music/playlist.pls`){
    if($num_pls<=`/bin/cat /home/24vmf/music/music/playlist.pls | /usr/bin/wc -1`){
      $playlist=1;
      $num_pls ++;
      }else{
      $playlist=0;
      }
    }else{
    @list = `/bin/cat /home/24vmf/music/music/playlist.pls`;
    $num_pls=1;
    $playlist=1;
    }
  }else{
#print "плейлист не найден:\n";
  $playlist=0;
  }
if($playlist == 1){
 $num_pls=int($num_pls);
 chomp $list[$num_pls];
print "файл $list[$num_pls]:\n";
 return "$list[$num_pls]";
#return "/home/24vmf/music/music/Би-2-Волки (album version).mp3"   [b]если здесь раскоментировать то норммально читает файл[/b]
 }else{
  print "не играю плейлист:\n";
   if($jingle < 5){
    $jingle ++;
    @nam=`/usr/bin/find /home/24vmf/music/music/ -name *.mp3 | /usr/bin/wc -l`;
    @music=`/usr/bin/find /home/24vmf/music/music/ -name *.mp3`;
   }else{
    $jingle = 0;
    @music=`/bin/ls -1 /home/24vmf/music/jingles/*.mp3`;
    @num=`/bin/ls -1 /home/24vmf/music/jingles/*.mp3 | /usr/bin/wc -l`;
   }
  $play=int(rand($num));
  chomp $music[$play];
  return "$music[$play]";
 }
}
return 1;
sub ices_get_metadata {
          use MP3::Info;
        if($playlist == 1){
         $tag = get_mp3tag($list[$num_pls]) or die "No TAG info";
         return "$tag->{TITLE} ";
        }else{
         $tag = get_mp3tag($music[$play]) or die "No TAG info";
         return "$tag->{TITLE} ";
        }
}

в логах

Показать / Cкрыть текст

2

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

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