Spinning rod animation/Text: Difference between revisions
Added Perl example
SqrtNegInf (talk | contribs) (Added Perl example) |
|||
Line 199:
EndFor
EndWhile</lang>
=={{header|Perl}}==
The statement <code>$| =1</code> is required in order to disable output buffering.
<lang perl>$|= 1;
while () {
for (qw[ | / - \ ]) {
select undef, undef, undef, 0.25;
printf "\r ($_)";
}
}</lang>
=={{header|Perl 6}}==
| |||