1: #!/usr/bin/perl
   2: use strict;
   3: use warnings;
   4: 
   5: print graph( @{[1..96]} );
   6: 
   7: #######################################################################
   8: ### give me an array of 96 integers that represent each of the
   9: ### 15-minute intervals in 24 hours.  I'll give you an ascii graph
  10: ### (of, e.g., concurrent users?)
  11: sub graph {
  12:   my( $i, $magic, $m, $p, $top, @g ) = ( 0, 20, 7, 96, 0, () );
  13:   for (0..$p-1) { $top = $top > $_[$_] ? $top : $_[$_] }
  14:   my $s = $top > $magic ? ( $top / $magic ) : 1;  ### calculate scale
  15:   for (0..$magic) {
  16:     $g[$_] = sprintf("%".($m-1)."d ",$_*$s) . ($_%5==0?'_':'.') x $p;
  17:     for $i (0..$p-1) { substr($g[$_],$i+$m,1) = '|' if $_[$i]/$s>$_ } }
  18:   join( "\n", reverse( @g ), ' Time: ' . '|^^^' x ( $p / 4 ),
  19:     ' ' x $m . "12am 1am 2am 3am 4am 5am 6am 7am 8am 9a 10a 11a " .
  20:     "12pm 1pm 2pm 3pm 4pm 5pm 6pm 7pm 8pm 9p 10p 11pm" );
  21: }  # end sub graph
  22: 
  23: __END__
  24:     96 ________________________________________________________________________________________________
  25:     91 ...........................................................................................|||||
  26:     86 ......................................................................................||||||||||
  27:     81 .................................................................................|||||||||||||||
  28:     76 ............................................................................||||||||||||||||||||
  29:     72 ________________________________________________________________________||||||||||||||||||||||||
  30:     67 ...................................................................|||||||||||||||||||||||||||||
  31:     62 ..............................................................||||||||||||||||||||||||||||||||||
  32:     57 .........................................................|||||||||||||||||||||||||||||||||||||||
  33:     52 ....................................................||||||||||||||||||||||||||||||||||||||||||||
  34:     48 ________________________________________________||||||||||||||||||||||||||||||||||||||||||||||||
  35:     43 ...........................................|||||||||||||||||||||||||||||||||||||||||||||||||||||
  36:     38 ......................................||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
  37:     33 .................................|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
  38:     28 ............................||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
  39:     24 ________________________||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
  40:     19 ...................|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
  41:     14 ..............||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
  42:      9 .........|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
  43:      4 ....||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
  44:      0 ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
  45:  Time: |^^^|^^^|^^^|^^^|^^^|^^^|^^^|^^^|^^^|^^^|^^^|^^^|^^^|^^^|^^^|^^^|^^^|^^^|^^^|^^^|^^^|^^^|^^^|^^^
  46:        12am 1am 2am 3am 4am 5am 6am 7am 8am 9a 10a 11a 12pm 1pm 2pm 3pm 4pm 5pm 6pm 7pm 8pm 9p 10p 11pm
  47:

Replies are listed 'Best First'.
Re: ascii graph
by Juerd (Abbot) on Mar 16, 2004 at 10:29 UTC
[reply]
[d/l]
      I'm that anonymous monk BTW. Yes, of course, you're right. Just had 'array' on the brain. Regards, Brad
[reply]
        I just have to give you ++ for a brilliant little piece of code. I can think of all kinds of applications for this.
[reply]
[d/l]
Re: ascii graph
by NateTut (Deacon) on May 13, 2009 at 18:45 UTC
    Here's my reformatting with a couple of minor changes: 
    #!/usr/bin/perl
use strict;
use warnings;

use constant MAX     => 50;
use constant Height  => 25;
use constant Indent  => 7;
use constant Periods => 96;

my @Data;

my $Element = 0;
while($Element < Periods)
   {
   # $Data[$Element] = $Element;
   $Data[$Element] = int(rand(MAX));
   $Element++;
   }

print(ASCII_Graph(Height, Indent, Periods, @Data));

######################################################################
+­#
### give me an array of 96 integers that represent each of the
### 15-minute intervals in 24 hours.  I'll give you an ascii graph
### (of, e.g., concurrent users?)
sub ASCII_Graph
{
   my ($Height, $Indent, $Periods, @Data) = @_;

   my $HighestValue = 0;
   my @Rows = ();

   #
   # Find the Top Value
   #
   for my $Period (0 .. $Periods - 1)
      {
      $HighestValue = $HighestValue > $Data[$Period] ? $HighestValue :
+ $Data[$Period];
      }

   #
   # Calculate Scale
   #
   #
   my $Scale = $HighestValue > $Height ? ( $HighestValue / $Height ) :
+ 1;

   #
   # Do Each Row
   #
   for my $Row (0 .. $Height)
      {
      #
      # Label Every Other Row
      #
      if($Row % 2)
         {
         $Rows[$Row] = sprintf("%" . ($Indent - 1) ."d ", $Row * $Scal
+e) . ($Row % 5 == 0 ? '_' : '.') x $Periods;
         }
      else
         {
         $Rows[$Row] = sprintf("%" . ($Indent - 1) ."s ", ' ') . ($Row
+ % 5 == 0 ? '_' : '.') x $Periods;
         }

      for my $Period (0 .. $Periods - 1)
         {
         #
         # Determine
         if ($Data[$Period] / $Scale > $Row)
            {
            substr($Rows[$Row], $Period + $Indent, 1) = '|';
            }
         }
      }

   return(join( "\n", reverse( @Rows ), ' Time: ' . '|^^^' x ( $Period
+s / 4 ), ' ' x $Indent . '12am    2am     4am     6am     8am    10am
+    12pm     2pm     4pm     6pm     8pm    10pm'));
}  # end sub graph
__END__
    49 _______________________________________________________________
+_________________________________
       ...................................|.....................|.....
+..|..............................
    45 ...........|......|............|...|...........|.........|.....
+..|..............................
       ...........|......||...|.......|...|.......|...||..|.....||....
+..|..............|...............
    41 ...........|......||...|..|....|...|....|..|...||..|.....||....
+..|..............|...............
       ___________|______||___|__|____|___|____|__|___||__|_____||____
+__|__|____|______|_______|_______
    37 ...........|....|.||...|..|....|...|....||.|...||..|.....||....
+|.|..|....|......|.......|.......
       ...........|....|.||...|..|.|..|...|....||.||..||..|....|||....
+|.|..|....|......|...|...|..|....
    33 ...........|....|.||...|..|||..|...|....||.||..||..||...|||....
+|||..|....|......|.|.|...|..|....
       ...........|....|.|||..|..|||..|..|||...||.||..||..||...|||....
+|||..|....||.....|.|.|...|..|....
    29 ___________|___||_|||__|__|||__|__|||___||_||__||__||___|||____
+|||__|____||_____|_|_|___|__|____
       ....|......|...||.|||.||..|||.||..||||..||.||..||..||...|||...|
+|||..|....||.....|.|.|.|.||.|....
    25 ...||...||.|...||.|||.||..|||.||..||||..|||||..||..||...|||...|
+|||..|....||.....|.|.|.|.||.|....
       ...||...||.|...||.||||||..|||.||..||||..|||||..||..||...|||...|
+|||..|....||.....|||.|.||||.|.|..
    21 .|.||...||.|...||.||||||..|||.||..||||..|||||..||..||.|||||.|.|
+|||.||....||.....|||.|.||||.|.|..
       _|_||_|_||_||__||_|||||||_|||_||__||||__|||||__||__||||||||_|_|
+||||||____||_____|||_|_||||_|_||_
    17 .|.||.|.|||||..||.|||||||.|||.||..||||..||||||.||..||||||||.|.|
+||||||....||..|..|||.|.||||||.||.
       .|.||.|.|||||..||.|||||||.|||.||..|||||.||||||.||..||||||||||.|
+||||||.|.|||..|..|||.||||||||.||.
    13 .|.||.|.|||||..||.|||||||.|||.||..|||||.||||||.||..||||||||||||
+||||||.|.|||..|.|||||||||||||.|||
       .||||||.|||||..||.|||||||.|||.||..|||||.||||||.||..||||||||||||
+||||||.|||||..|.|||||||||||||.|||
     9 _||||||_|||||__||_|||||||_|||_||__||||||||||||_||__||||||||||||
+||||||||||||_||||||||||||||||||||
       .||||||.|||||||||.|||||||.|||.|||.||||||||||||.||..||||||||||||
+||||||||||||.||||||||||||||||||||
     5 .||||||.|||||||||.|||||||.|||.|||.||||||||||||.||.|||||||||||||
+|||||||||||||||||||||||||||||||||
       .||||||||||||||||||||||||.|||||||.|||||||||||||||.|||||||||||||
+|||||||||||||||||||||||||||||||||
     1 .||||||||||||||||||||||||||||||||.|||||||||||||||||||||||||||||
+|||||||||||||||||||||||||||||||||
       |||||||||||||||||||||||||||||||||_|||||||||||||||||||||||||||||
+|||||||||||||||||||||||||||||||||
 Time: |^^^|^^^|^^^|^^^|^^^|^^^|^^^|^^^|^^^|^^^|^^^|^^^|^^^|^^^|^^^|^^
+^|^^^|^^^|^^^|^^^|^^^|^^^|^^^|^^^
       12am    2am     4am     6am     8am    10am    12pm     2pm    
+ 4pm     6pm     8pm    10pm

    [download]
[reply]
[d/l]
[select]

Back to Craft