Terminal control/Cursor positioning: Difference between revisions
Content added Content deleted
No edit summary |
(→{{header|Perl 6}}: added Perl 5 equivalent) |
||
Line 154: | Line 154: | ||
write('Hello'); |
write('Hello'); |
||
end. |
end. |
||
</lang> |
|||
=={{header|Perl 5}}== |
|||
Using the Term::Cap module: |
|||
<lang perl5> |
|||
use Term::Cap; |
|||
my $t = Term::Cap->Tgetent; |
|||
print $t->Tgoto("cm", 2, 5); # 0-based |
|||
print "Hello"; |
|||
</lang> |
</lang> |
||
Line 160: | Line 170: | ||
<lang perl6>print "\e[6;3H"; |
<lang perl6>print "\e[6;3H"; |
||
print 'Hello';</lang> |
print 'Hello';</lang> |
||
=={{header|PicoLisp}}== |
=={{header|PicoLisp}}== |
||
<lang PicoLisp>(call 'tput "cup" 6 3) |
<lang PicoLisp>(call 'tput "cup" 6 3) |