В архивах либрусека примерно 20% дублей. В связи с этим возникает вполне закономерное желание эти дубли убрать. pkn написал для этой цели скрипт. Скрипт перловый. Перл можно найти тут, скрипт тут. Как его запустить? Устанавливаем перл. По умолчанию ставится C:\Perl\ Скачиваем и распаковываем скрипт. Копируем его в папку C:\Perl\bin\. Качаем три таблицы и копируем их в папку C:\Perl\bin\libsql. Таблицы: http://lib.rus.ec/sql/lib.libbook.old.sql.gz http://lib.rus.ec/sql/lib.libbook.sql.gz http://lib.rus.ec/sql/lib.libfilename.sql.gz Копируем архивы либрусека в D:\Lib.rus.ec. В пути не должно быть пробелов и русских букв. Заходим C:\Perl\bin\ и создаем ярлык на файл perl5.10.0.exe В адресной строке ярлыка пишем C:\Perl\bin\perl5.10.0.exe C:\Perl\bin\kop-librusec-dedead.pl -ds C:\Perl\bin\libsql D:\Lib.rus.ec -rem -do D:\Lib.rus.ec -l ru Где C:\Perl\bin\perl5.10.0.exe - путь к exe перла. C:\Perl\bin\kop-librusec-dedead - путь к скрипту. -ds C:\Perl\bin\libsql - путь к таблицам файлов. D:\Lib.rus.ec - путь к архивам либрусека. -do D:\Lib.rus.ec - путь куда будут записываться обработанные архивы. Поскольку он совпадает с местоположением исходных архивов и присутствует параметр -rem, то исходные архивы будут перезаписаны. -rem - удалять файлы после обработки. -l ru - оставить только русские книги. Если ничего не указывать - оставит все языки. Идем пить чай. Работа скрипта, в зависимости от мощности вашего компьютера, займет 30 - 50 минут. Скрипт также содержит справку на русском языке. Прочесть ее можно, если открыть скрипт вордом.
