Запустить Perl-скрипт на Windows

Question

[Lorents]

Добрый Вечер!
Подскажите, пожалуйста, как можно запустить данный скрипт на Windows?

У меня установлен ActivePerl 5.16.3 Build 1603 с установленными File::Slurp и File::Temp. Как я понимаю, проблема в JPEGtran, но я не понимаю куда его надо положить?

Answer 1

[nochkin]

jpegtran.exe это просто запускаемый файл, который можно положить в любую директорую, куда смотрит PATH (это может быть, например, текущая директория или даже c:\windows)

Comments

[Lorents]

К сожалению, на windows так не работает, при этом никаких ошибок не выдает.

[nochkin]

Я ответил на вопрос «куда его надо положить». Это именно так работает.
Но проблема совершенно в другом как написали ниже.

Answer 2

[SleepingLion]

Попробуйте следующую версию: link.
Заменён вызов с пайпой на обработчики IPC::Run.
На винде не проверялось — может не заработать.
И, да, jpegtran.exe в PATH не забудьте. )

Comments

[Lorents]

Спасибо за ссылку.
Случайно не Вы автор модификаций скрипта?

Запустил, выдал ошибки



Подскажите, как исправить?

[nochkin]

Это не ошибки, а просто предупреждения.

Исправить всё равно можно:
Строка 34:

my $handle=start \("jpegtran", "-v", @strip, "-optimize", $fin),\$in,\undef,\undef;

Строка 37:

finish $handle or die "something is really wrong";

[ntkt]

Там еще приколы. jpegtran под винду обязательно хочет два файла — входной и выходной, а под линух ему достаточно одного входного. Второй вызов надо тоже переписать на IPC.

[ntkt]

И смотрите в самый последний по дате файл *.scan в %TEMP% — там весело.
Unexpected SCALAR(0x339e50) in harness() parameter 1 at B:\jpegrescan.pl line 34.
Unexpected SCALAR(0x318408) in harness() parameter 2 at B:\jpegrescan.pl line 34.

[Lorents]

Если не затруднит, не мог бы кто-нибудь сделать один тест у кого есть линукс.
У меня есть папка с jpeg-избражения, не мог кто-нибудь оптимизировать их при помощи скрипта
cloud.mail.ru/public/85faf78a4817/JPEG.zip

[SleepingLion]

pastebin.com/Fvaw7AxY
Новая версия. Правлено, правда, также вслепую.
Оптимизировать могу попробовать позже, если всё ещё нужно.

[SleepingLion]

Картинки через скрипт оптимизировать имею в виду. )

[Lorents]

Все равно не работает. А такой вопрос, а чем отличаентся данный скрипт от оригинала?

Answer 3

[ntkt]

Настоящая проблема в этом:

---

List form of pipe open not implemented at b:\jpegrescan.pl line 33.

---

В ActivePerl на винде нельзя делать так:

---

open TRAN, "-|", "jpegtran", "-v", @strip, "-optimize", $fin or die;

---

Comments

[Lorents]

А как это можно исправить?

[ntkt]

На винде проблемы с list form of pipe open. Надо переписывать как указал ниже SleepingLion, или пилить perl из msys либо cygwin (ActivePerl и StrawberryPerl не работают). IPC::Run на винде тоже выдает какие-то глюки. Я запустил сразу под линухом — и все завелось.
Честно, это будет быстрее, чем править и тестировать. Скачайте готовую виртуалку с любым линухом (например, тут bitnami.com/stack/lamp), скомпильте jpegtran, пропишите ему libjpeg в LDCONFIG и всё. Пять минут на скачку и минуту на остальное.

[Lorents]

Если не затруднит, не мог бы кто-нибудь сделать один тест у кого есть линукс.
У меня есть папка с jpeg-избражения, не мог кто-нибудь оптимизировать из при помощи скрипта
cloud.mail.ru/public/85faf78a4817/JPEG.zip

[ntkt]

Запустил. Идет небыстро. Оптимизация по объему рапортует в среднем 4 %.

[Lorents]

А вы не могли бы скинуть результат, буду очень признателен?

[ntkt]

Выигрыш составил 5 % — 3 МБ из 60 МБ, до 57 МБ.
Боюсь, я эти 60 метров заливать буду порядка получаса.

[ntkt]

Сссылка у Вас в личке.

Answer 4

[SleepingLion]

Заменил вызовы, специфичные для *nix на (по идее) более подходящие для Windows.
Во второй версии поправил недосыпные косяки и попробовал изменить формат подачи содержимого кодировщику.
Правда, за неимением желания собирать себе jpegtran (в репозитариях не нашёл сразу), ни один скрипт не проверялся. Хотя надежда, что заработает была, да.

Comments

[Lorents]

т.е. как я понял по сжатию, от оригинала не отличается.
я прочитал статью, у меня поэтому вопросы возникли
Спасибо!

[SleepingLion]

Способы сжатия в скрипте не трогал — правки касались только совместимости с Windows.

[Lorents]

У меня проект уже использует версию скрипта под Windows

Посмотрите скрипт, может будут идеи как его ускорить.

[SleepingLion]

Есть вариант запускать процессы преобразования параллельно. Если (всё ещё) очень нужно, стукнете в личку — будет время, попробую реализовать.
P.S. что за лицензия у проекта?

[Lorents]

У меня проект сам использует параллельное преобразования, по этому нет смысла делать в самом скрипте.
Лицензии у проекта нету, я честно говоря не думал тогда какую использовать, думаю в новой версии сделать лицензию MIT (она почти готова, скоро опубликую).