looping a dialog box in perl

kdelover · 09-18-2009, 01:06 PM

Hello people,

I Need a small help in creating a loop in perl. My task is to print the current time on a zenity dialog box.Is there any way i can make the time being display on the dialog box in real time? Something like tailf or watch command?

Quote:

#!/usr/local/bin/perl -w
use strict;
use warnings;
my $i=2;
until ($i==1)
{
my $a = `date +\%H:\%M:\%S`;
`zenity --info --text $a`;
}

The problem is i need to press the ok button on the dialog box so as to dialog box to load again with the refreshed time.Can i in anyway automate it,with out any human interaction? Sorry if this Question doesnt make sense

Thanks.

kdelover · 09-19-2009, 07:08 AM

Ok can any one tell me how to kill that dialog box

in the code itself?

kdelover · 09-19-2009, 02:55 PM

any help

slakmagik · 09-19-2009, 03:42 PM

I don't know perl, but it seems to me that you've set a variable i to have the value of 2 and then set up your loop to terminate when i is equal to 1, but you never change the value of the variable. Something like

Code:

#!/usr/local/bin/perl -w

use strict;
use warnings;

my $i=2;

until ($i==1)
{
    my $a = `date +\%H:\%M:\%S`;
    `zenity --info --text $a`;
    $i--;
}

would decrement $i and cause the loop to exit after one iteration. Maybe if you explained more clearly what you were trying to do (why loop, how many times intended, etc.) more people could help. Also, your phrase "my task" makes it sound like homework, which may be discouraging folks from replying. And code blocks should be in 'code' tags rather than 'quote'. Hope some of this helps.