05 июл 22 07:20, Andrei Mihailov -> Stas Mishchenkov:
SM>>>>>> Прикольная. DI>>>>>>> AreaInfo визуализирует обновление эхооластей узла FidoNet DI>>>>>>> (ноды или поинта) на основании информации в файле import.log. SM>>>>>> Обновился скрипт прозвонщик по бинкд. ;) CO>>>>> Стас, а когда обновится моя просьба вытаскивать архивы? SM>>>> Я почти доделал, но это отдельная софтинка получается и только SM>>>> для zip. Впрочем, этого вполне достаточно, т.к. в Фидо это SM>>>> практически стандарт. CO>>> Rar. У меня везде он... SM>> Ну, ты понял? ;) CO>>> Но два архиватора - это же не проблема? SM>> Проблема. Я не нашел открытого кода на perl для распаковки rar.
AM> А функции запуска внешнего приложения на перле нет? Типа как на питоне
AM> os.system('rar.exe [имя файла для распаковки] [путь к распакованным AM> файлам]')
AM> или на VB
AM> shell("rar.exe [имя файла для распаковки] [путь к распакованным файлам]")
AM> То же самое можно для любого консольного архиватора и для 7zip написать, а AM> он вообще туеву хучу форматов поддерживает.
Можно.
AM> А потом из заданного пути вычитываешь распакованные файлы...
SM>> === Import rar2zip.cmd Start === @Echo Off setlocal SM>> enabledelayedexpansion enableextensions echo %1 for %%I in ( SM>> %1\\*.rar ) do ( SM>> echo %%~nxI SM>> md %TMP%\%%~nxI SM>> rar x -y %%~fI %TMP%\%%~nxI\ >nul
AM> Ну или так, только... AM> Если ты уже распаковал файлы раром, то зачем их перепаковывать зипом? Не AM> проще ли просто предусмотреть в твоём скрипте ключ работы без распаковки AM> зипа и в батнике сразу рара вызывать твой скрипт?
Кроме того, что это жутко медленно?
SM>> zip -m %%~dpnI %TMP%\%%~nxI\* >nul SM>> rmdir /s /q %TMP%\%%~nxI SM>> del /f/q %%~fI SM>> ) === Import rar2zip.cmd End ===