perl to display a matrix report for 3-dimenional array
Hi All,
@arrayTime = [time1, time2, time3, ......] where time value has format like 20150710 10:24:10
@arrayID = [ id1, id2, id3, id4, ....... id15]
@arrayPrice = [ Value1, Value2, Value3 ..... Value15]
I will like to produce a Matrix Report like below
id1 id2 id3 ....... id15
time1 value11 value21 vaue31 value151
time2 value21 value22 ....
time3
Thanks
David
@arrayTime = [time1, time2, time3, ......] where time value has format like 20150710 10:24:10
@arrayID = [ id1, id2, id3, id4, ....... id15]
@arrayPrice = [ Value1, Value2, Value3 ..... Value15]
I will like to produce a Matrix Report like below
id1 id2 id3 ....... id15
time1 value11 value21 vaue31 value151
time2 value21 value22 ....
time3
Thanks
David
Do more with
EXPERT OFFICE® is a registered trademark of EXPERTS EXCHANGE®
Please provide more information.
You show @arrayPrice as having 15 values which your desired output shows as enough values to populate only one time row. Where are the other values coming from?
In order to relate a value to a time and id, there must be some way to relate them. Since @arrayID and @arrayPrice both have 15 values, I'm assuming the ordering of values matches the ordering of ids - is that correct? How do you know which time the values relate to?
You show @arrayPrice as having 15 values which your desired output shows as enough values to populate only one time row. Where are the other values coming from?
In order to relate a value to a time and id, there must be some way to relate them. Since @arrayID and @arrayPrice both have 15 values, I'm assuming the ordering of values matches the ordering of ids - is that correct? How do you know which time the values relate to?
use warnings;
no strict "subs";
my @arrayTime = (time1, time2, time3);
my @arrayID = ( id1, id2, id3, id4, '.......', id15);
my @arrayPrice = (
[qw(value11 value21 vaue31 value151)],
[qw(value21 value22 .... )],
);
use strict;
$"="\t";
print "\t@arrayID\n";
print "$arrayID[$_]\t@{$arrayPri
no strict "subs";
my @arrayTime = (time1, time2, time3);
my @arrayID = ( id1, id2, id3, id4, '.......', id15);
my @arrayPrice = (
[qw(value11 value21 vaue31 value151)],
[qw(value21 value22 .... )],
);
use strict;
$"="\t";
print "\t@arrayID\n";
print "$arrayID[$_]\t@{$arrayPri
Premium Content
You need an Expert Office subscription to comment.Start Free Trial