Using stty just for the heck of it.
my $stty = qx[stty -a]; my $lines = $stty.match(/ 'rows ' <( \d+/); my $cols = $stty.match(/ 'columns ' <( \d+/); say "$lines $cols";
Last updated 11 months ago