Anonymous user
Sleep: Difference between revisions
→{{header|Perl}}
Line 1,049:
nanosleep $nanoseconds;
print "Awake!\n";</lang>
It's also possible to sleep for fractional seconds by abusing the select function:
<lang perl>say "Sleeping...";
select undef, undef, undef, 0.5;
say "Awake!";</lang>
=={{header|Perl 6}}==
| |||