Maybe this will help get you started...
#!/usr/bin/perl use strict; # https://perlmonks.org/?node_id=11146802 use warnings; use List::Util qw( max ); $| = 1; my @values = (7,9,2,0,1,2,4,3,9); my ($rows, $columns) = split ' ', qx(stty size); # FIXME works on Linu +x $rows -= 2 ; # FIXME fudge my @grid = map { ' ' x $columns } 1 .. $rows; my $max = max @values; my $scale = int $rows / $max; my $wide = int $columns / @values; my $horizontal = 0; for my $value ( @values ) { for my $vert ( $rows - 1 - $value * $scale .. $rows - 1 ) { substr $grid[ $vert ], $horizontal, $wide - 1, '*' x ($wide - 1); } $horizontal += $wide; } print @grid;
In reply to Re: Plot Graph in Console by printing special character say * and spaces using matrix structure in Perl
by tybalt89
in thread Plot Graph in Console by printing special character say * and spaces using matrix structure in Perl
by programmingzeal
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |