Perl
Perl

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

tindavidAsked: 2015-07-13

Who is Participating?

[Product update] Infrastructure Analysis Tool is now available with Business Accounts.Learn More

Experts Exchange Solution brought to you by

Enjoy your complimentary solution view.

Get every solution instantly with Premium. Start your 7-day free trial.

I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

LVL 27

wilcoxonCommented: 2015-07-13

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?

LVL 85

ozoCommented: 2015-07-13

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@{$arrayPrice[$_]||[]}\n" for 0..$#arrayTime;

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial