Wertübergabe zwischen 2 Perl Programmen - #50404 (Allgemeines zu Perl)

Robby

2003-09-11 10:39

User since
2003-08-11
409 Artikel
BenutzerIn
[default_avatar]

ich steh heute morgen auf Schlauch....
kannste Du mir das mal an einem kleinen Beispiel erklären? :D

Hier ist mein TK-Programm

Code: (dl )

#!/usr/local/bin/perl -w

use strict;
use Tk;

$mw = MainWindow->new;
my	$test_button = $mw->Button(-text => "print test",-command=> sub { print "test\n"; } )->pack(); 	
MainLoop;

und hier das loopende Programm

Code: (dl )

#!/usr/local/bin/perl -w

use strict;

my $counter = 0;

while ( $counter < 100 )
{
	$counter++;
	sleep(10);
	print $counter;
}

wie kann ich anstatt print $counter den Wert an mein TK Programm übergeben???

Kaum macht man es richtig - schon funktioniert es!