i have to call localtime () function to get the latest time everytime when i
print the lines using insert method
i mean , i need to print the latest time in scrolled text box
lets say :
use Tk;
$mw = MainWindow-new();
my $t = $mw-Scrolled(Text)-pack (-side = 'left', -expand=1);
$t-insert(end,
Try this.
$t-insert(end, gettime);
--
Shekar
On Fri, Aug 24, 2012 at 11:58 AM, Irfan Sayed irfan_sayed2...@yahoo.comwrote:
i have to call localtime () function to get the latest time everytime when
i print the lines using insert method
i mean , i need to print the latest time in scrolled
thanks.
it worked!
regards
irfan
From: Shekar c.shekar1...@gmail.com
To: Irfan Sayed irfan_sayed2...@yahoo.com
Cc: Jim Gibson jimsgib...@gmail.com; Perl Beginners beginners@perl.org
Sent: Friday, August 24, 2012 12:23 PM
Subject: Re: insert in perl tk
Try this.
$t-insert(end, gettime);
Hi Shekar,
On Fri, 24 Aug 2012 12:23:21 +0530
Shekar c.shekar1...@gmail.com wrote:
Try this.
$t-insert(end, gettime);
Please don't recommend people to use leading ampersands in subroutine calls:
* http://perl-begin.org/tutorials/bad-elements/#ampersand-in-subroutine-calls
*
Thanks for the correction Shlomi.
Mistake from my side, i copy pasted the wrong line from my terminal !!!
--
Shekar
On Fri, Aug 24, 2012 at 2:49 PM, Shlomi Fish shlo...@shlomifish.org wrote:
Hi Shekar,
On Fri, 24 Aug 2012 12:23:21 +0530
Shekar c.shekar1...@gmail.com wrote:
Try this.
Hi All,
I am working on an automation scenario, where the steps mentioned below are
to be performed;
1. Script has to run on client machine.
2. Using the Perl script on client machine, we need to login to remote
machine-1 using ssh protocol.
3. From remote machine-1, the script should login to
Sending this as a test message, I received a warning saying that messages to me
have been bouncing.
Hopefully, I am still on the mailing list and this is just a glitch.
Paul
On Fri, Aug 24, 2012 at 4:58 PM, Sasikanth Eda sasikanth@gmail.comwrote:
Hi All,
I am working on an automation scenario, where the steps mentioned below are
to be performed;
1. Script has to run on client machine.
2. Using the Perl script on client machine, we need to login to remote
El 24/08/12 13:28, Sasikanth Eda escribió:
Hi All,
I am working on an automation scenario, where the steps mentioned below are
to be performed;
1. Script has to run on client machine.
2. Using the Perl script on client machine, we need to login to remote
machine-1 using ssh protocol.
3. From
On Friday 24,August,2012 07:28 PM, Sasikanth Eda wrote:
Hi All,
I am working on an automation scenario, where the steps mentioned below are
to be performed;
1. Script has to run on client machine.
2. Using the Perl script on client machine, we need to login to remote
machine-1 using
On Thu, Aug 23, 2012 at 05:19:34PM -0400, Shawn H Corey wrote:
You're trying to do too much in one statement.
for my $coord ( @coords ){
if( $coords-[0] = 0 ){
print join( q{, }, @{ $coords } ), \n;
}
}
Looks like you're trying to do too much too. ;) You are testing
11 matches
Mail list logo