[perl/tk] Proces starten *EN* geupdate scherm weergeven

[PrinsEdje80]

Een heel simpel probleem denk ik en waar bijna iedere perl-programeerder tegen aan gelopen is. Wat ik wil is gewoon dat perl iets start (bijv. iets dat iets monitort), maar meteen het scherm weergeeft en actief laat...

Voorbeeldje:

Perl:

#!/usr/bin/perl -w

use strict;
use Tk;

my $main = MainWindow->new();
$main->minsize(qw(0 0));
$main->configure();

&doIets;
MainLoop();

sub doIets {
  for(my $i=0;$i<10;$i++){
    print $i;
    sleep(1);
  }
}

Het probleem met deze code is dat ik dus wel netjes de 0123456789 in mijn terminal zie, maar nog geen scherm. Pas nadat de 9 op het scherm is getoverd en er 1 seconde is gewacht komt het scherm. Wat ik wil is dat aan de ene kant ik de loop van doIets() uitvoer, aan de andere kant het schermpje heb (met later buttons) waarbij ik de buttons kan indrukken die invloed hebben op het loopje in doIets().

Ik wil *NIET* het programma starten en dat ik dan op een knop moet drukken voordat ie begint... Ik heb getracht te zoeken op google, maar ik kom er niet uit... Kunnen jullie mij een hint geven (oplossing wordt natuurlijk ook gewaardeerd )

[djluc]

Kan je met Perl threads maken? Dan kan je het scherm in een aparte thread uitvoeren.

[PrinsEdje80]

Niet met de iets oudere versies... Het moet makkelijk te doen zijn en threads zijn (nog in mijn ogen) niet errug makkelijk...

[ Voor 1% gewijzigd door PrinsEdje80 op 21-12-2005 16:48 . Reden: grammatica ]

[PrinsEdje80]

Laten we even voetballen en deze een schopje geven...