GUI Perl

  1. Home
  2. Perl
  3. GUI
  4. Pass value to a subroutine in button action
use Tk;
my $main = MainWindow->new;
$main->Button(-text => 'Hello',
    -command => [\&printem, "Hello\n"]
)->pack;
$main->Button(-text => 'End',
    -command => [$main => 'destroy']
)->pack;
MainLoop;
sub printem
{
    print shift;
}