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}}==