Тема: скрипт плейдиста 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крыть текст