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