Terminal control/Cursor positioning: Difference between revisions
Content deleted Content added
No edit summary |
→{{header|Perl 6}}: added Perl 5 equivalent |
||
Line 154:
write('Hello');
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>
Line 160 ⟶ 170:
<lang perl6>print "\e[6;3H";
print 'Hello';</lang>
=={{header|PicoLisp}}==
<lang PicoLisp>(call 'tput "cup" 6 3)
| |||