штатный медиаплеер играет по папкам (Страница 1 из 4)

да. указываешь путь к директории с музыкой и куда плейлист сохранить.

ты какую команду вводил?)

Быть может где с папкой ошибся, у меня все создалось

2 Dan9I

я прописал find /home/user/MyDocs/.sound -type f -iname *.mp3 > /home/user/MyDocs/playlist.m3u

после этого какие то списки заработали но много чего нет всё равно,а вот папки мультимедия нету у меня, может у тебя тоже, какую папку то точнее вписывать?

2 shmardan

Спасибо удобно очень, а вобще часто спрашивали про это, может тоже добавить куда нибудь в вики о плеере если есть раздел такой.

vxagor, интересно

Вот этот скрипт. У меня он называется playlister.pl.. Он отрабатывает и выводит одну строчку: текущее время. Когда он в виджете. то соответственно видно последнее время обновленя скрипта.
Его можно положить в любую папку и командой
chmod +x playlister.pl
сделать его запускаемым. А после прописать путь к скрипту в виджете, чтобы он его мог найти.

Строка
my $path = "/home/user/MyDocs/Music";
определяет путь к библиотеке с музыкой.

Скрипт удаляет все встретившиеся плейлисты и делает новые. Он работает рекурсивно. То есть пробегает по всем вложенным папкам.

#!/usr/bin/perl

use strict;

my $path = "/home/user/MyDocs/Music";

sub make_list {
    my ($folder) = @_;
    $folder =~ m/\/([^\/]+)$/;
    my $plist_name = $1.".m3u";
    my $DIR;
    my @list;
    opendir $DIR, $folder;
    my $old_playlist;
    my $old_playlist_file;
    foreach my $file_n (grep { m/^[^\.]/ } readdir $DIR) {
        chomp $file_n;
        my $file = $folder.'/'.$file_n;
        if ( -d $file ) {
            make_list ($file); 
        } elsif ( $file =~ m/mp3|wav|ogg/i ) {
            push @list, $file_n;
        } elsif ($file =~ m/m3u$/i) {
            open OPL, "$file" or die "Can't open file $file";
            $old_playlist = join "",<OPL>;
            close OPL;
            $old_playlist_file = $file;
        }
    }
    my $pl = join ("\n", sort @list);
    if ($pl ne $old_playlist) {
        if ($pl =~ m/\S/) {
            open PN, ">$folder/$plist_name";
            print PN $pl;
            close PN;
        } 
    }
    closedir $DIR;
}

make_list($path);
print localtime()."\n";