Programming

@Elevation1  @r1   @g1   @b1  @elevation2   @r1   @g1  @b2
       .      .     .     .         .        .     .     .
       .      .     .     .         .        .     .     .
       .      .     .     .         .        .     .     .
       .      .     .     .         .        .     .     .

#!/usr/bin/perl

use strict;



my $file = '/Users/Brady/Documents/MUOHIO/Alaska_Station_Map/Alaska_Tremor/custom.cpt';
open(INFO, $file);

my @elevation1;
my @elevation2;
my $line;

while ($line=<INFO>)
{
	push(@elevation1, (split(/\D+/,$line)) [0]);
	push(@elevation2, (split(/\D+/,$line)) [4]);
}

#get the length of the array
my $arrayLength = @elevation1;

#declare variables
my $i;
my @r1;
my @g1;
my @b1;


#Generate random numbers from 0-255 the length of the elevations
for( $i = 0; $i <= $arrayLength; $i++)
	{
		my $range = 255;
		
		my $randomNumber = int(rand($range));
		
		@r1[$i] = $randomNumber;
	}
for( $i = 0; $i <= $arrayLength; $i++)
	{
		my $range = 255;
		
		my $randomNumber = int(rand($range));
		
		@g1[$i] = $randomNumber;
	}	
for( $i = 0; $i <= $arrayLength; $i++)
	{
		my $range = 255;
		
		my $randomNumber = int(rand($range));
		
		@b1[$i] = $randomNumber;
	}

#I have tested the arrays with print join("\n", @arrayName) and it prints the array on the screen

close(INFO);


exit;

for($i=0; $i<10; $i++)
{
        $pfix="";
        for($j=0; $j<10; $j++)
        {
                print $pfix, int(rand(255));
                $pfix="\t";
        }
        print "\n";
}