in reply to perl tk

With almost all Tk widgets, we have the function get which will return the value of the widget. Now you are entering name to the "Tk::Entry" widget you have ( $vu_enl ). So $vu_enl->get() will give you the actual value entered.

I am including the fixed code here :)

use Tk; use strict; my $mw = MainWindow->new; $mw->configure(-title => 'Verify User',-background =>'blue'); $mw->geometry('+100+300'); my $vu_frml = $mw->Frame( -relief => 'groove', -borderwidth => 3, -background =>'blue', ) ->pack(-side => 'top', -fill => 'x'); my $vu_lb1 = $vu_frml->Label( -text =>'name', -background=>'blue', -foreground=>'white', )->pack( -side=>'left' ); my $vu_enl = $vu_frml->Entry( -width =>9, -background =>'white' )->pack( -side=>'left',-pady=>3 ); + $mw->Button(( -background=>'blue', -foreground=>'white', -text => 'ok', -command =>sub { $mw -> Label( '-text' => "hello ".$vu_enl->ge +t(), #### Where I changed '-font' => "fixed", )->pack; }, ))->pack(-side =>'top', -fill => 'x'); MainLoop;
Almost all documentation you may need (regarding Perl/Tk) is available here.

Welcome to the Monastery !
please go through The Perl Monks Guide to the Monastery, Writeup Formatting Tips and How (Not) To Ask A Question. Please format your postings with allowed tags. Unlike other forums, this community is strictly disciplined :)

Updates:
Formated code to look better.

Cheers !

--VC



There are three sides to any argument.....
your side, my side and the right side.