Anonymous user
Terminal control/Preserve screen: Difference between revisions
m
no edit summary
No edit summary |
mNo edit summary |
||
Line 156:
=={{header|Perl}}==
{{trans|C}}
<lang perl>print "\033[?1049h\033[H";
print "Alternate screen buffer\n";
Line 166 ⟶ 165:
print "\033[?1049l";</lang>
=={{header|Perl 6}}==
<lang perl6>print "\e[?1049h\e[H";
say "Alternate buffer!";
|