The best way would be with an array such as @value. Then you can bind the Entry text to each element. Here's an examplemy $var_frame .= $num; my $varbind_l .= $num; my $varbind_e .= $num;
pojuse Tk; use strict; my $left_frame_bottom = MainWindow->new; my @text=qw('' a b c d e); # entry defaults for (1..5) { my $var_frame = $left_frame_bottom->Frame( )->pack(-side => 'top', -fill => 'both', -pady => '2', -expand =>'1'); my $varbind_l = $var_frame->Label( -text => "Varbind ".$_, )->pack(-side => 'left', -padx => '5'); my $varbind_e = $var_frame->Entry( -textvariable => \$text[$_], -width => '15', )->pack(-side => 'right', -padx => '5'); } $left_frame_bottom->Button(-text => 'print_values', -command => sub {print_values()} )->pack(); MainLoop; sub print_values { map { print "Varbind $_ = ",$text[$_],"\n" }(1..5); }
In reply to Re: How do I reference a variable?
by Anonymous Monk
in thread How do I reference a variable?
by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |