in reply to Re^4: Perl Tk label references
in thread Perl Tk label references

BTW: many monks will recommend use warnings; use strict;: this would have shown your original \$ref_hash{'VM-1'} issue at compile-time.

edit: ... and many consider a more readable de-referencing for a hashref to be \$ref_hash->{'VM-1'} instead of \$$ref_hash{'VM-1'} (I knew I wanted to say two things, but when I replied to myself, I couldn't recall the second.)

Replies are listed 'Best First'.
Re^6: Perl Tk label references
by thimes (Acolyte) on Nov 10, 2016 at 22:41 UTC

    Thanks for the reply. In the production code I do use strict & warnings. Should have in the test program too. Oops. AH! Excellent! I am clearing the whole hash. Duh! Thanks so much. And thanks for the tip. Big thanks!! ;-) For completeness, the new code works.

    use Tk;
use strict;
use warnings;

require Tk::Entry;
require Tk::Button;

my $mw = MainWindow->new();

my %work = (
    "VM-1" => "da923",
    "VM-2" => "dz427");

main_display(\%work);

MainLoop;

# -----------------------------------------------------
sub main_display {
    my $ref_hash = shift(@_);

    my $lab1 = $mw->Label(-textvariable => \$ref_hash->{'VM-1'},
                                            -relief => 'sunken',
                                            -width => 10,
                                            )->pack();
    my $lab2 = $mw->Label(-textvariable => \$ref_hash->{'VM-2'},
                                            -relief => 'sunken',
                                            -width => 10,
                                                )->pack();
    my $but = $mw->Button(-text=>'clear', -command=> [sub{
                                          $ref_hash->{'VM-1'} = " ";
                                          $ref_hash->{'VM-2'} = " ";
                                          $mw -> update;
                                           }] )->pack();

}

    [download]
[reply]
[d/l]

In Section Seekers of Perl Wisdom