4 lines
138 B
Raku
4 lines
138 B
Raku
my $stty = qx[stty -a];
|
|
my $lines = $stty.match(/ 'rows ' <( \d+/);
|
|
my $cols = $stty.match(/ 'columns ' <( \d+/);
|
|
say "$lines $cols";
|