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

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

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

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

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



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

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

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

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

Строка 37:

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

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

И смотрите в самый последний по дате файл *.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.

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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