#!/usr/bin/perl use Tk; my $i=1; my $mw=tkinit; my $text = $mw->Scrolled('Text')->pack; $mw->Button(-text=>'Get rand', -command => sub{ for (1..100){ my $rand = rand(10000000); $text->insert('end',"$rand "); } $text->insert('end',"\n\n\n"); } )->pack; MainLoop; __END__
In reply to Re: rand with Perl/Tk
by zentara
in thread rand with Perl/Tk
by biochris
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |