Terminal control/Positional read: Difference between revisions
Content added Content deleted
(Added Go) |
(added Perl 6) |
||
Line 179: | Line 179: | ||
The character at column 3, row 6 is 'A' |
The character at column 3, row 6 is 'A' |
||
</pre> |
</pre> |
||
=={{header|Perl 6}}== |
|||
{{trans|Python}} |
|||
<lang perl6>#!/usr/bin/env perl6 |
|||
use v6; |
|||
use NCurses; |
|||
# Reference: |
|||
# https://github.com/azawawi/perl6-ncurses |
|||
# Initialize curses window |
|||
my $win = initscr() or die "Failed to initialize ncurses\n"; |
|||
# Print random text in a 10x10 grid |
|||
for ^10 { mvaddstr($_ , 0, (for ^10 {(41 .. 90).roll.chr}).join )}; |
|||
# Read |
|||
my $icol = 3 - 1; |
|||
my $irow = 6 - 1; |
|||
my $ch = mvinch($irow,$icol); |
|||
mvaddstr($irow, $icol+10, 'Character at column 3, row 6 = ' ~ $ch.chr); |
|||
mvaddstr( LINES() - 2, 2, "Press any key to exit..." ); |
|||
# Refresh (this is needed) |
|||
nc_refresh; |
|||
# Wait for a keypress |
|||
getch; |
|||
# Cleanup |
|||
LEAVE { |
|||
delwin($win) if $win; |
|||
endwin; |
|||
}</lang> |
|||
{{out}} |
|||
<pre> |
|||
+W18:5I<1N |
|||
N-I.HG45SK |
|||
BFJY8:AK)8 |
|||
J+4U<H1++: |
|||
RP>BX-/19Y |
|||
URDESVX;HX Character at column 3, row 6 = D |
|||
J7+X3@E<BG |
|||
M;?2U<8+FI |
|||
)@BG,:D)O1 |
|||
)>A-=LDY-. |
|||
Press any key to exit... |
|||
</pre> |
|||
=={{header|Phix}}== |
=={{header|Phix}}== |