Re: Trying to fetch image via URL Perl/Tk

[Loops]

Hi, welcome to the monastery.

Tk::Photo doesn't handle downloading images from a URL. However combined with a pair of additional modules, you can do it yourself:

use Tk;
use Tk::Photo;
use Tk::JPEG;
use LWP::Simple;
use MIME::Base64 qw(encode_base64);

my $mw=new MainWindow;
my $data = encode_base64 get('http://tinyurl.com/oyzuyjt');
my $shot=$mw->Photo(-data=>$data,-format=>'jpeg');
$mw->Label(-image=>$shot)->pack;
MainLoop;