Anonymous user
Terminal control/Preserve screen: Difference between revisions
Added Perl section
(→{{header|Kotlin}}: Updated example see https://github.com/dkandalov/rosettacode-kotlin for details) |
(Added Perl section) |
||
Line 153:
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}}==
| |||