sub get_time { my $time; do { print "\n-> "; $time = <>; chomp $time; print "\n"; exit if $time =~/^q/i; no warnings; # quick patch next if $time =~ /([^\d])/; # please fix use warnings; # me (: } while ($time ne $time+0); return $time; }
In reply to Re: An Egg(?) Timer
by strfry()
in thread An Egg(?) Timer
by TGI
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |