But lets just look at Tk. If you put your whole Mechanize sub into a thread, and run it from a timer or button press, you will need to find a way thru shared variables or a shared fileno to get the results from the thread, and update your Tk Text widget. See Re: Perl/Tk threading and/or cron job? for a simple demonstration of how to do it.

If you just want to hack around, just to get where you can have multiple runs of the Mechanize sub, just put the Mechanize code into a Button callback, and sprinkle it with $mw->update, so as not to unduely block the responsiveness of the Tk eventloop.

I havn't tested the following, and I emphasize you are better off putting the Mechanize code into a thread, but this will help you get multiple runs going. You also will probably need to work out a scheme for disabling the Button by setting it's state=>disabled after each button press, and return to state=>normal after Mechanize is done. This is to prevent you from running it twice in rapid succession. You will also probably notice that while Mechanize is running, the Tk window may become unresponsive, that is why there are a bunch of $mw->update lines in there. In a thread based solution, you wouldn't need those lines. So look closely at Re: Perl/Tk threading and/or cron job? and you should be able to move the network code into a thread.

#!/usr/bin/perl  
use warnings;
use strict;  
use Tk;  
use common::sense;  
use WWW::Mechanize;   
use WWW::Mechanize::DecodedContent;   
use JSON -support_by_pp;  
use HTTP::Cookies;  
use URI::Escape;  
  
  
my $mw = new MainWindow(-background => 'blue');   
$mw->geometry("600x400");  
$mw->minsize(qw(400 650));  
$mw->maxsize(qw(800 750));   
$mw->title("Invaders External ShoutBox");  
  
my $getmsg = $mw -> Frame(-background => 'red', -relief=>'raised',  
  -borderwidth=>1,  
  ) ->place(-x =>70, -y =>25);  
my $gmsg = $getmsg->Scrolled ('Text',   
            -width=> 60, -height => 20, -background => 'black', -foreg
+round => 'green')->pack;  
$gmsg->insert('end',"Start External ShoutBox...\nInVaDeRs\n");  
  
my $putmsg = $mw -> Frame(-background => 'red', -relief=>'raised',  
  -borderwidth=>1,  
  ) ->place(-x => 70, -y => 450);  
my $pmsg = $putmsg->Scrolled ('Text',   
            -width=> 60, -height => 5, -background => 'black', -foregr
+ound => 'green')->pack;  
$pmsg->insert('end',"...");  
  
my $button = $mw->Button( -text => 'Update',
            -command => \&update_me)->pack();
  
  
MainLoop;


sub update_me{

my $url = WWW::Mechanize->new();  
$url->get("http://www.forum-invaders.com.br/vb/login.php");  

$mw->update();
  
$url->submit_form(  
    fields => {   
        vb_login_username => 'login',  
        vb_login_password => 'password',  
    }  
);  
  
  
    if($url->decoded_content !~ /Bem-vindo/gi){$gmsg->insert('end', "L
+oggin Error\n");}  
        else {$gmsg->insert('end', "Login OK!\n");}  
          
        my $work = 1;  
        my @old;  
        my $num = 0;  
    while ($work == 1){  
        my $r = $url->get("http://www.forum-invaders.com.br/vb/vbshout
+.php?type=activeusers&do=ajax&action=fetch&instanceid=2");  
        my $json = JSON->new->relaxed;  
        my $s = $json->decode($r->decoded_content);  
        my $msg = $s->{"shouts"}->{0}->{"message_raw"};  
        my $user = $s->{"shouts"}->{0}->{"musername"};  
        my $name;  
    
         $mw->update();
    
        if ($user =~ />(.+)<\/span/gi) {$name = $1;}  
        else {$name = $user}  
        my $now = join(" => ", $name, $msg) . "\n";  
        if ($num == 0){  
            $gmsg->insert('end', $now);  
         $mw->update();          
            push (@old, $now);  
            $num++;  
        }  
        elsif($old[$num - 1] ne $now){  
            $gmsg->insert('end', $now);  
              
            push (@old, $now);  
            $num++;  
        }  
          $mw->update();      
    }  
$mw->update();
}
[download]

Welcome, see The Perl Monks Guide to the Monastery and PerlMonks FAQ

 [tk chat] -> tk chat -> Tk encrypted echoing-chat client and server

 [tk thread] -> tk thread -> Need help in using threads in Tk, uses mechanize and links to -> PerlTk on a thread...