Re: How to get string from array from module?

Ok! Thanks for your help, guys! I think I got it. I changed the line in ColorScheme.pm to:

our @COLORMAGENTA  = (0.82745,0.21176,0.50980);
@SELECTED_COLOR = @COLORMAGENTA;
[download]

and "fetched" this data in 3DScene.pm like this:

my $SELECTED_COLOR;
$SELECTED_COLOR =\@SELECTED_COLOR;
[download]

And then I was able to retrieve my colors like that:
glColor4f( $SELECTED_COLOR->[0],$SELECTED_COLOR->[1],$SELECTED_COLOR->[2] , $volume->color->[3]);
It works but I'm not sure if this is the correct way?!

Comment on Re: How to get string from array from module? Select or Download Code

Replies are listed 'Best First'.
Re^2: How to get string from array from module? by hippo (Archbishop) on Feb 09, 2018 at 09:59 UTC
I don't see the point of turning `@SELECTED_COLOR` into a reference and then back again. Why not simply do this: `### NOT NEEDED my $SELECTED_COLOR; ### NOT NEEDED $SELECTED_COLOR =\@SELECTED_COLOR; glColor4f (@SELECTED_COLOR, $volume->color->[3]);` [download]	[reply] [d/l] [select]
Re^3: How to get string from array from module? by Gilu (Initiate) on Feb 09, 2018 at 13:28 UTC
Well ... if that was your second day with Perl; everything seems so ... you know! :-) You're absolutely correct - of course! Thanks for the hint!	[reply]
Re^4: How to get string from array from module? by hippo (Archbishop) on Feb 09, 2018 at 13:48 UTC
Sorry - didn't mean it to sound critical. As the post I replied to just showed some lines in isolation it could well have been the case that there was some benefit to using the reference which we might not have known of. I could (as usual) have phrased it better. And if it is only your second day and you are handling stuff like this so well then you will go a long, long way.	[reply]