11-07-2002
time-out coding in perl
looking for ideas and not answers! to coding a timeout solution in Perl to answer a user prompt.
ie, when the program asks whether to execute Y/N and no response is entered, after a time period (maybe 10 seconds) the program will automatically choose yes (or maybe no, whicheva).
this isn't homework, i just don't have any examples of similar code and I need some inspiration!
thanx in anticipation!!!
10 More Discussions You Might Find Interesting
1. Shell Programming and Scripting
Hay guys,
I used time::local module. But i can't get my proper answer from this.
I want to extract two time for tomorrow start time and end time. In my code i just hard coded this. But it's not running for every day na. I need to create these time from any function or module.
my... (2 Replies)
Discussion started by: pritish.sas
2 Replies
2. Shell Programming and Scripting
Hi
I want to match time hr:mm and change to mm:hr
please let me know how to do that in perl (2 Replies)
Discussion started by: lakshmikant
2 Replies
3. Shell Programming and Scripting
I having probelm in time difference output using Delta_YMDHMS, using below start date and enddate I get -30days. Any idea how to fix this issue.
output : 0,1,-30, 0,0,0
Thanks,
Bataf
use POSIX qw/strftime/;
use Date::Calc qw(Delta_YMDHMS);
use Time::Local;
$start_date =... (1 Reply)
Discussion started by: bataf
1 Replies
4. Shell Programming and Scripting
Is there a way I can round time in perl to the nearest five minutes?
For example if I have log giving the following time stamps
23,52,30 it would rounded up to 23,55,00
and
23,50,01 would be rounded to 23,50,00 (3 Replies)
Discussion started by: borderblaster
3 Replies
5. Shell Programming and Scripting
var=50
perl -le "print scalar localtime (time() - "$var"*60);"
The above does subtraction of time,but i need the time format to be
date +%Y%m%d%H%M%S.
How can i achive this (6 Replies)
Discussion started by: tomjones
6 Replies
6. Shell Programming and Scripting
Hi,
I want to get the current date and time and subtract 1 day to get to the
previous day?
I see timelocal( ) and (time) etc.
How do I code this in PERL to get the previous day?
Thanks
Nurani (2 Replies)
Discussion started by: nurani
2 Replies
7. UNIX for Dummies Questions & Answers
Hi,
I have to find the next time stamp in perl.
Here is the code.
@time = loaltime(time);
print "\n Present time: $time:$time:$time \n";
For example if the time is: "12:55:02" after some process the time becomes 1:00:00.
How do i check when it becomes 00:00 i.e from "12:55:02... (0 Replies)
Discussion started by: vanitham
0 Replies
8. Shell Programming and Scripting
I use something like this in perl to get the date and time:
use Time::localtime;
use Time::gmtime;
$tm = gmtime;
$time_str = sprintf "%04d-%02d-%02d %02d:%02d:%02d",
$tm->year + 1900, $tm->mon + 1, $tm->mday,
$tm->hour, $tm->min, $tm->sec;
It gives me something like this:
2010-08-26... (1 Reply)
Discussion started by: lforum
1 Replies
9. Shell Programming and Scripting
How can i print the output of a perl script on a unix console and redirect the same in a log file under same directory simultaneously ?
Like in Shell script, we use tee, is there anything in Perl or any other option ? (2 Replies)
Discussion started by: butterfly20
2 Replies
10. Shell Programming and Scripting
Hi,
I have having a great confusion in under standing the below terms.
a) "wall time" (time according the the clock on the wall vs. cpu time spent executing it)
what exactly it means?
For example:
wall time cpu time line:text
4.22404 24.186 if(some junk condition)
... (1 Reply)
Discussion started by: vanitham
1 Replies
LEARN ABOUT MOJAVE
test::use::ok
Test::use::ok(3) User Contributed Perl Documentation Test::use::ok(3)
NAME
Test::use::ok - Alternative to Test::More::use_ok
SYNOPSIS
use ok 'Some::Module';
DESCRIPTION
According to the Test::More documentation, it is recommended to run "use_ok()" inside a "BEGIN" block, so functions are exported at
compile-time and prototypes are properly honored.
That is, instead of writing this:
use_ok( 'Some::Module' );
use_ok( 'Other::Module' );
One should write this:
BEGIN { use_ok( 'Some::Module' ); }
BEGIN { use_ok( 'Other::Module' ); }
However, people often either forget to add "BEGIN", or mistakenly group "use_ok" with other tests in a single "BEGIN" block, which can
create subtle differences in execution order.
With this module, simply change all "use_ok" in test scripts to "use ok", and they will be executed at "BEGIN" time. The explicit space
after "use" makes it clear that this is a single compile-time action.
SEE ALSO
Test::More
CC0 1.0 Universal
To the extent possible under law, XX has waived all copyright and related or neighboring rights to Test-use-ok.
This work is published from Taiwan.
<http://creativecommons.org/publicdomain/zero/1.0>
POD ERRORS
Hey! The above document had some coding errors, which are explained below:
Around line 45:
Non-ASCII character seen before =encoding in 'XX'. Assuming UTF-8
perl v5.18.2 2012-09-11 Test::use::ok(3)