Amarok2 - в нем неплохой генератор плейлистов из вашей медиа библиотеки по установленной степени схожести какого-либо параметра. Например, вам хочется плейлист, который состоял бы в основном из металла. Но в основном - это же не 100%. Ставите процентов 80-90 и генерируете.

напиши что тебе от генератора надо. я вот mpd юзаю его же для "генерации" и использую

Поясню, я хочу к мп3шкам, которые лежать в директориях чтобы создавались плейлисты.

Для того чтобы, просто скинув директорию в мп3 плеер или смартфон, плеер нокиа понял, что это плейлист.

Например, в EasyTag выделить нужное, после чего Разное->Сохранить список записей... (Или Alt+W)

ls > play.m3u :)
не подходит?

Подходит

Подождите, дописываю скрипт на перле :)

Готово:
#!/usr/bin/perl

#Generate a relative m3u-playlist

open(PLS, '> '.@ARGV<0>.'/playlist.m3u');
$rls = `ls @ARGV<0> --color=none`; # Raw LS output
@lfn = split("\n",$rls);
foreach $key (@lfn) {
if (rindex($key,'.mp3') != -1) {
print PLS $key,"\n";
}
}

close(PLS);
print "Generation done\n";

У меня сработало :)
Перезаписывает файл playlist.m3u

Вызывать так: имя_скрипта путь

Perl это, конечно, хорошо, но всё должно быть к месту. Ты потратил 30 минут, а a1fred — 30 секунд, и поэтому его однострочник выигрывает у твоего скрипта.

_________

Кстати, а чем тебя так обидели регекспы, что ты нагородил такое вот чудо:
rindex($key,'.mp3') != -1
?
Всё значительно проще:
$key =~ /.mp3$/i
(это решение в полтора раза короче и имеет преимущество в виде игнорирования регистра).

;)

Просто я учу перл и пытаюсь все решить им :)

Жаль, что не ассемблер -- я б полюбовался :)))
Инструменты всё же надо к месту применять))

+1))

Я тоже его учу Уже три дня! :D
Но всё-таки да, не стоит его делать для всех бочек затычкой — не забывай, что не одним перлом богаты ;)

s/учу Уже/учу. Уже/

;)

ls -1 | grep -E '.*\.mp3$' > playlist.m3u

Можно прикрутить find для рекурсивной обработки директорий.

Вот это наши методы =)

Спасибо!