Array of buttons

[GayathriBalu]

hi all, i want to create an array of buttons and handle them when clicked. in my code the last button in the array is handled even if any other button is clicked. pls help. thanks

my @buttons;
    for my $i(0..5){
    push @buttons,
        $mw->Button(-text => $i,
                    -command => sub{
                        print "pressed $i\n";
                        # or use the widget:
                        print "pressed ",
                            $buttons[$i]->cget('-text'),
                                "\n";
                    })->pack;
}

[choroba]

What GUI are you using? Works correctly for me in Tk.

[ww]

Using Win7's CLI, prints the graphic as indicated, and prints "pressed n" to the CLI (NOT to the TK $mw) when a numbered button is clicked upon.

YMMV if using xwindows or similar but my *nix boxen are comatose right now.

[glenn]

Yes, a 'print' will go to STDOUT. So what are you trying to accomplish?