Добрый день! Есть Perl-скрипт, котопый необходимо запустить, используя ActivePerl (только perl.exe и perl514.dll). Не знаю, как это и реализовать.
Perl-скрипт для работы использует JPEGTran.
Stack Overflow на русском — это сайт вопросов и ответов для программистов. Присоединяйтесь! Регистрация займёт не больше минуты.
Присоединиться к сообществуДобрый день! Есть Perl-скрипт, котопый необходимо запустить, используя ActivePerl (только perl.exe и perl514.dll). Не знаю, как это и реализовать.
Perl-скрипт для работы использует JPEGTran.
Судя по скрипту - ничего сложного в нем нету. Я-бы порекомендовал попробовать tinyperl, проект старый, но вполне работоспособный. Да, в комплекте нету File::Slurp, так что придется скопировать файл Slurp.pm
в lib\File\
jpegtran
происходит в 25 и 53 строке скрипта. Там возможно следует добавить .exe
или прописать полный путь. P.S. Не забываем про то что использование символа разделителя путей под DOS-like OS. Правильное так: "С:\\path\\to\\jpegtran.exe"
– chernomyrdin
11 мар '12 в 8:24
Slurp
есть в комплекте поставки tinyperl
в lib.zip, там в принципе для работы нужно tinyperl.exe
, perl58.dll
и lib.zip
, последний можно распаковать добавить что нужно и запаковать обратно. Путь к jpegtran
можно прописать и отностительный, просто тут есть всякие тонкости откуда этот путь считать. Но все проходимо.
– chernomyrdin
11 мар '12 в 9:39
Здравствуй lorents. Я не в курсе что есть JPEGTran, но сам делаю обычно так. Пишу в NotePad++ скрипт, затем тыкаю на вкладке правой кнопкой, выскакивает меню. Выбираю пункт "Полный путь к файлу". Затем нажимаю F5 -> набираю в окне cmd -> в открывшейся командной строке клацаю правой кнопкой мыши и туа появляется адрес к скрипту. Последнее действие - нажимаю Enter. Если не получится вставить адрес в ком строку мышкой, ткни правой кнопкой в верхнее синее поле -> правая кнопка мыши -> свойства -> вкладка общие -> ставим галочку на "быстрая вставка". Перезапускаем ком строку.
поставьте джентельменский набор деневр denwer.ru поднимите сервер и запускайте что хотите
Чтобы исключить модуль File::Slurp, можно заменить его функции, например, вот такими:
sub read_file {
my ($file_name) = @_;
# При ошибке открытия файла возвращаем undef
open my $FH, '<', $file_name or return;
my $data;
{
local $/;
$data = <$FH>;
}
close $FH;
return $data;
}
sub write_file {
my ($file_name, @data) = @_;
# При ошибке возвращаем undef
open my $FH, '>', $file_name or return;
print $FH @data;
close $FH;
return 1;
}
После добавления этих функций в скрипт можно удалить строку 'use File::Slurp;'
Впрочем, я посоветовал бы всё же рассмотреть вариант установки этого модуля, поскольку наличие готовых модулей для решения практически любой задачи - одна из сильнейших сторон Perl - если начинать на нём программировать, то нужно уметь пользоваться этим преимуществом. Тем более, что устанавливается модуль элементарно штатной утилитой из репозитория ppm