Файлы на диске
Aug. 22nd, 2008 11:22 am![[identity profile]](https://www.dreamwidth.org/img/silk/identity/openid.png){kind=small}
les-t.livejournal.com posting in ![[community profile]](https://www.dreamwidth.org/img/silk/identity/community.png){kind=small}
useful_faqВопрос идиотки:
записываешь файлы на диск (флешку). Они записываются туда в определенном порядке. Затем можно изменить отображение этих самых файлов, во всяком случае, винда это точно позволяет, т.е. сортировать по имени или типу и т.д.
Но изменение отображения не меняет физическое местонахождение файлов, да?
Теперь вопрос: а как показать именно тот порядок, в котором эти файлы действительно находятся?
P.S. купила себе в машину FM-модулятор, а он с флешки файлы читает с том порядке, как они записаны. Пытаюсь создать случайный порядок песен руками :)
записываешь файлы на диск (флешку). Они записываются туда в определенном порядке. Затем можно изменить отображение этих самых файлов, во всяком случае, винда это точно позволяет, т.е. сортировать по имени или типу и т.д.
Но изменение отображения не меняет физическое местонахождение файлов, да?
Теперь вопрос: а как показать именно тот порядок, в котором эти файлы действительно находятся?
P.S. купила себе в машину FM-модулятор, а он с флешки файлы читает с том порядке, как они записаны. Пытаюсь создать случайный порядок песен руками :)
no subject
Date: 2008-08-22 08:19 am (UTC)opendir( dir, "." );
@l = readdir( dir );
for( $i = 1; $#l > 0; $i++ ) {
if (($s = $l[ p = random( $#l ) ]) =~ /\.mp3$/) {
rename $s, $i."_".$s;
splice @l, $p, 1;
}}
Правда не проверял, будет ли выполнятся :) Набросал от руки :)
no subject
Date: 2008-08-22 08:31 am (UTC)А чем из этого текста экзешник делать?
no subject
Date: 2008-08-22 08:42 am (UTC)no subject
Date: 2008-08-22 08:44 am (UTC)P.S. Ну и пусть ругается! Будем ругаться вместе!
no subject
Date: 2008-08-22 08:48 am (UTC)Если будете качать - скажите, отдебужу скрипт. Перловые файлы по умолчанию имеют расширение pl.
no subject
Date: 2008-08-22 08:55 am (UTC)no subject
Date: 2008-08-22 09:04 am (UTC)Но перла+этот скрипт хватит выше крыши.
Либо, как вариант, берете ручками тысчу файлов в папке и начинаете случайно их переименовывать. Че такого-то, несложно и более-менее надежно.
А можно еще попросить к примеру микрософт написать супер-утилиту по переименовыванию файлов. Что-нить типо microsoft multimedia file renamer and shuffler.
no subject
Date: 2008-08-22 09:45 am (UTC)no subject
Date: 2008-08-22 11:01 am (UTC)no subject
Date: 2008-08-22 05:34 pm (UTC)Я за сегодня уже такая умная стала, что просто слов нет!
no subject
Date: 2008-08-22 09:44 am (UTC)Хотя есть некоторые сомнения в том, что в итоге получится что-то эээм... работающее, но если непорочное зачатие в истории человечества было, то почему бы и криворукой блАндинке что-то не сделать?;))
no subject
Date: 2008-08-22 10:17 am (UTC)no subject
Date: 2008-08-22 10:36 am (UTC)Оно жить не хочет :)
Когда качаю дистриб для Винды х86, то оно ругается:
Не удается открыть пакет установки. Свяжитесь с поставщиком приложения и убедитесь, что это правильный пакет Windows Installer
Когда качаю дистриб для винды х64, получаю архив, в котором стоолько экзешников, что мама не горюй. Из них installer.bat ругаетсчя, что не является приложением Win32.
Доктор, я безнадежна?;)
no subject
Date: 2008-08-22 10:42 am (UTC)no subject
Date: 2008-08-22 10:45 am (UTC)*Рыдает*
Буду пробовать из дома тогда. Может, там она правильней?;)
no subject
Date: 2008-08-22 10:29 am (UTC)Сохраняете скрипт в файл (типо pl). Потом создаете новую папку, натаскиваете (копируете!) туда кучу мп3 (ну что надо смешать), копируете туда этот скриптик, запускаете. Он ко всем файлам добавляет спереди случайный номер. Если еще раз запустите - то номер еще раз добавляется, а не заменяется. То есть запустив раз эдак 50-100 скрипт можно потерять все файлы или свести их к нечитабельности из-за длины имени, поэтому советую копировать их в отдельную папку (хоть на флешку).
#!/perl
opendir( dir, "." );
@l = readdir( dir );
for( $i = 1; $#l > 0; )
{
if (($s = $l[ $p = rand( $#l ) ]) =~ /\.mp3$/)
{ rename $s, sprintf( "%03d", ($i++) )."_".$s; }
splice @l, $p, 1;
}
no subject
Date: 2008-08-22 10:42 am (UTC)Мне уже становится стыдно за собственную тупость, и за собственную тупость, и за то, что отвлекаю занятого человека фигней.
Если сейчас остальные экзешники не запустятся, буду пробовать проинсталлить из дома.
no subject
Date: 2008-08-22 10:44 am (UTC)no subject
Date: 2008-08-22 10:47 am (UTC)А то комментарии начали неприлично сворачиваться, и я уже теряюсь :)
no subject
Date: 2008-08-22 10:52 am (UTC)no subject
Date: 2008-08-22 08:46 am (UTC)