在Perl Tk单选按钮表单中捕获标量变量。

huangapple
go评论85阅读模式
英文:

Capturing scalar variable in Perl Tk radiobutton form

问题

我试图在提交按钮按下后捕获标记的单选按钮的值，但似乎无法让它工作。我想要的是在提交按钮按下时关闭表单/窗口，并保存标记的值并发送到store_it子例程，以便后续使用。

  1. use strict;
  2. use Tk;
  3. my $mw = MainWindow->new;
  5. # 默认值
  6. my $determined = 'games';
  8. # 从目录获取菜单选项
  9. my $dir_lib = '/usr/local/';
  10. my @options = `ls $dir_lib`;
  11. chomp @options;
  12. s{^\s+|\s+$}{}g foreach @options;
  14. $mw->title("Confirm Determination");
  15. $mw->label("选择类别。");
  16. $mw->configure();
  18. my $chosen;
  19. my $confirmed;
  20. # 基于文件类型创建单选按钮
  21. foreach (@options) {
  22.     my $chosen = $dir_lib . $_;
  23.     $mw->Radiobutton(
  24.         -text      => $_,
  25.         -value     => $_,
  26.         -variable  => \$determined,
  27.         -justify   => 'left',
  28.         -padx      => 30,
  29.         -pady      => 10
  30.     )->pack( -anchor => 'w' );
  31. }
  33. $mw->Button(-text => "提交",
  34.     -command => \&store_it)->pack();
  36. MainLoop;
  37. ###################
  38. sub store_it {
  39. ##################
  41.     my $fts = $determined; 
  42.     print "将要保存的值为：$fts\n";
  43.     
  44. ####################    
  45. } # 存储它的结尾
  46. ####################

而不是表单保持活动状态，我会得到以下输出：

  1. 将要保存的值为：games
英文:

I am trying to capture the value of the marked radio button after submit is pressed but can't seem to get it to work. What I would like is for the form/window to close when submit is pressed and for the value marked to be saved and sent to the store_it subroutine so that it can be used.

  1. use strict;
  2. use Tk;
  3. my $mw = MainWindow->new;
  5. # default
  6. my $determined = 'games';
  8. # get menu options from directories
  9. my $dir_lib = '/usr/local/';
  10. my @options = `ls $dir_lib`;
  11. chomp @options;
  12. s{^\s+|\s+$}{}g foreach @options;
  14. $mw->title("Confirm Determination");
  15. $mw->label("Pick category.");
  16. $mw->configure();
  18. my $chosen;
  19. my $confirmed;
  20. #create radio buttons based on file types
  21. foreach (@options) {
  23.     my $chosen = $dir_lib . $_;
  24.     
  25.     $mw->Radiobutton(
  26. 	-text      => $_,
  27. 	-value     => $_,
  28. 	-variable  => $determined,
  29. 	-justify   => 'left',
  30. 	-padx      => 30,
  31. 	-pady      => 10
  32.        		
  33. 	)->pack( -anchor => 'w' );
  35.     
  36. } # end of foreach
  38. $mw->Button(-text => "Submit",
  39. 	    -command => \&store_it($chosen))->pack();
  42. MainLoop;
  43. ###################
  44. sub store_it {
  45. ##################    
  47.     my ($fts)  = @_; 
  48.     print "Will store $fts\n";
  49.     
  50. ####################    
  51. } # EOS store it
  52. ####################

Instead the form stays active and I get the following output:

  1. Use of uninitialized value $fts in concatenation (.) or string at Tk_radio_menu.pl line 50.
  2. Will store 
  3. Tk::Error: Undefined subroutine &main::1 called at /usr/lib/x86_64-linux-gnu/perl5/5.34/Tk.pm line 251.
  4.  Tk callback for .button
  5.  Tk::__ANON__ at /usr/lib/x86_64-linux-gnu/perl5/5.34/Tk.pm line 251
  6.  Tk::Button::butUp at /usr/lib/x86_64-linux-gnu/perl5/5.34/Tk/Button.pm line 175
  7.  <ButtonRelease-1>
  8.  (command bound to event)

答案1

得分: 2

尝试使用一个匿名子例程，调用store_it()并传入$determined的值，例如：

  1. # ... 脚本的这部分与之前一样
  2. my $confirmed;
  3. # 根据文件类型创建单选按钮
  4. foreach (@options) {
  5.     $mw->Radiobutton(
  6.         -text      => $_,
  7.         -value     => $_,
  8.         -variable  => \$determined,
  9.         -justify   => 'left',
  10.         -padx      => 30,
  11.         -pady      => 10
  12.     )->pack( -anchor => 'w' );    
  13. } # 结束循环
  15. $mw->Button(-text => "提交",
  16.     -command => sub {store_it($determined)})->pack();
  18. MainLoop;
  19. ###################
  20. sub store_it {
  21. ##################
  23.     my ($fts)  = @_;
  24.     print "将存储 $fts\n";
  26. ####################
  27. } # 存储它的结束
  28. ####################

希望这对你有所帮助。如果你有任何其他问题，请随时提出。

英文:

Try to use an anonymous sub which calls store_it() with the value of $determined, e.g.:

  1. # ... this part of the script is as before
  2. my $confirmed;
  3. #create radio buttons based on file types
  4. foreach (@options) {
  5.     $mw->Radiobutton(
  6.     -text      => $_,
  7.     -value     => $_,
  8.     -variable  => $determined,
  9.     -justify   => 'left',
  10.     -padx      => 30,
  11.     -pady      => 10
  12.     )->pack( -anchor => 'w' );    
  13. } # end of foreach
  15. $mw->Button(-text => "Submit",
  16.         -command => sub {store_it($determined)})->pack();
  19. MainLoop;
  20. ###################
  21. sub store_it {
  22. ##################
  24.     my ($fts)  = @_;
  25.     print "Will store $fts\n";
  27. ####################
  28. } # EOS store it
  29. ####################

huangapple
  • 本文由 发表于 2023年2月26日 23:27:07
  • 转载请务必保留本文链接：https://go.coder-hub.com/75573003.html
  • perl
  • perltk
匿名

发表评论

匿名网友

:?: :razz: :sad: :evil: :!: :smile: :oops: :grin: :eek: :shock: :???: :cool: :lol: :mad: :twisted: :roll: :wink: :idea: :arrow: :neutral: :cry: :mrgreen:

确定