shoorick

На сайте prostopleer.com есть, вроде бы, возможность скачать целиком музыкальный альбом. Но потом — сюрприз! — скачавшийся zip-файл вовсе не является ZIP-архивом: ни unzip, ни 7z не желают его открывать. Лишь всемогущий mplayer спокойно играет одну пьесу за другой.

Анализ содержимого показал: в начале архива идёт стандартная сигнатура PK♥♦ (50 4B 03 04), но за ней — имена файлов вместе с мусором и сами файлы, без какого-либо сжатия. Достать музыку из такого файла при наличии перла — легко!

#!/usr/bin/perl -0777 -n

=head1 DESCRIPTION

Split big pseudo zip-archive from prostopleer.com into small mp3 files.

=head1 USAGE

 ./split.pl big-pseudo.zip

=head1 SEE ALSO

L<< https://gist.github.com/shoorick/7785185 >>

=head1 AUTHOR

Alexander Sapozhnikov
L<< http://shoorick.ru/ >>
Lshoorick@cpan.orgE

=cut

binmode(STDIN);

my $divisor = "ID3\x04\x00";
my @chunks = split $divisor;
shift @chunks;

my $i = 1;
foreach my $chunk ( @chunks ) 
    open(my $fh, '<', sprintf('%02d.mp3', $i++))
        or die "cannot open for writing: $!";
    print $fh $divisor, $chunk;
    close $fh;

Оно же — на гитхабе: https://gist.github.com/shoorick/7785185

upd/11.12.13:: Спасибо Игорю Белому bujhm за наводку — я неделю подкинутую им музыку слушаю, до сих пор нравится и работать не мешает.

Глядя в handbook, не вылезая с командной строки, сграбил звук с компакт-диска и перегнал его в mp3. Правда, не удалось сразу тэги выставить: похоже, lame не захотел писать тэги с русскими буквами. Но на этот случай у нас есть EasyTAG.

Кстати, current music звучит весьма неплохо. Мне нравится.

гўупый мой ўасковый

current music

Многолетнее занятие пением способствует, с одной стороны, такому развитию речевого аппарата и прилегающего к нему головного мозга, что занимающийся может без особых усилий осознанно картавить, шепелявить и не выговаривать всяких букв. Например, Л, как в уже упомянутом куррентмузыке. С другой стороны, занимающийся, в моменты, когда не прилагает таких усилий, может говорить и петь хорошо и правильно.

P. S. anyutka и mcilove привязали ко мне «Ундервуд» — уже вторую неделю слушаю. Злодеи!

P. P. S. Если в MP3 перегнать тэги в UTF-8 (например, когда лень писать скрипт, для этого есть EasyTag) и убрать ID3v1, то mpc и свежий winamp (проверено на 5.5) вполне справляются с русскими буквами.

Amarok тормозит так, что звук икает.
Надоело, закрыл, стал слушать музыку с консоли, с помощью mpg123 — хорошо звучит, без глюков.

Видя бардак с кодировками ID3-тэгов и помня, что, по стандарту, там не может быть ни UTF-8, ни КОИ-8, нашёл радикальный, но вполне корректный путь: перегнать коллекцию из mp3 в ogg vorbis, где с тэгами нет такого бардака, ибо они всегда в UTF-8. Да и сжатие там получше. Да и формат этот открытый...

Поискал конвертер в портах при помощи make search и, не заметив его в толпе софта, стал писать свой: традиционно, на перле.

Метод — ленивый до безобразия: взять файл, прочитать свойства и тэги (MP3::Info), декодировать звук (mpg123), послав его кодировщику (oggenc), попутно передав тэги, переведённые из windows-1251. Итого — 99 строк, 2 кБ (вместе с развесистыми комментариями). Работает. И называется, чтоб долго не думать, mp32ogg.

А потом выясняется, что в портах уже есть mp32ogg. И делает он то же самое. И тем же самым путём.

Не знаю, может ли он кодировку тэгов менять (ещё не проверял), но это, в общем-то, и не важно, ибо в портах нашёлся mp3unicode.

ЗЫ Но вот железные MP3-плееры да музцентры с магнитолами нечасто ogg понимают...

mp3-диск «Лесная площадка — 2004» таки готов.
Ура, товарищи!
Пишу на RW тестовую копию для прогона на бытовом музцентре. Если срастётся — у меня вся ночь впереди на тиражирование.

P. S. А вот обложки-то я забыл настрогать: придётся прямо на поляне печатать..