Terminal control/Preserve screen: Difference between revisions
Content added Content deleted
(→{{header|Kotlin}}: Updated example see https://github.com/dkandalov/rosettacode-kotlin for details) |
(Added Perl section) |
||
Line 153: | Line 153: | ||
echo "\e[?1049l"</lang> |
echo "\e[?1049l"</lang> |
||
=={{header|Perl}}== |
|||
<lang perl>print "\033[?1049h\033[H"; |
|||
print "Alternate screen buffer\n"; |
|||
for (my $i = 5; $i > 0; --$i) { |
|||
print "going back in $i...\n"; |
|||
sleep(1); |
|||
} |
|||
print "\033[?1049l"; |
|||
=={{header|Perl 6}}== |
=={{header|Perl 6}}== |