Используется perl 5.14.2 и perl-tk 804.030.
Необходимо отображать JPEG получаемые с камеры, а сейчас тренируюсь "на кошках", для этого изобразил следующее:
Код: Выделить всё
#!/usr/bin/perl
use Tk;
use Tk::Photo;
my $widget = MainWindow->new;
$widget->Photo(-file => '06e13ca79_192_168_1_20_20150203_171243.jpeg',
-format => 'JPEG');
При запуске скрипт останавливается с сообщением image file format "JPEG" is not supported at /usr/lib/perl5/Tk/Image.pm line 21
В случае если формат изображени яне указываю текст ошибки меняется на couldn't recognize data in image file "06e13ca79_192_168_1_20_20150203_171243.jpeg" at /usr/lib/perl5/Tk/Image.pm line 21
Можете подсказать в чём проблема?
Спасибо.