Help for this page

Select Code to Download


  1. or download this
    use IPC::Run3::Shell { fail_on_stderr=>1 }, qw/convert/;
    convert $img, '-auto-orient', '-resize', '300x300', $thumb;
    ...
    use IPC::Run3::Shell qw/gs/;
    gs({fail_on_stderr=>1,show_cmd=>1},
        '-o',$OUTPUT, '-sDEVICE=pdfwrite', ..., '-f',$INPUT);