Perl trouble accessing array within hash -


i've looked around answer question haven't found one; in advance help.

i'm trying construct hash of arrays , randomly generate arrays hash. hash length 3, , each array pair of values:

undef %pairs;  $pairs{'one'} = @pair1; $pairs{'two'} = @pair2; $pairs{'three'} = @pair3;  @keys = keys %pairs;  @keys = shuffle(@keys);  push (@file1, @{$pairs{$keys[0]}}); push (@file2, @{$pairs{$keys[1]}}); push (@file3, @{$pairs{$keys[2]}});

the following call doesn't return anything:

    print stdout @{$pairs{$keys[0]}};

although next call correctly return length of array (i.e. 2):

    print stdout $pairs{$keys[0]};

what doing wrong here?

you not assigning arrays, assigning size:

$pairs{'one'} = @pair1;

when in scalar context, array returns size, , scalar context. want either:

$pairs{'one'} = \@pair1;      # use direct reference $pairs{'one'} = [ @pair1 ];   # anonymous reference using copied values

or possibly

@{ $pairs{'one'} } = @pair1;

also, not using:

use strict; use warnings;

or know why code fails:

print stdout @{$pairs{$keys[0]}};

because have received fatal error:

can't use string ("2") array ref while "strict refs" in use

because hash value $pairs{$keys[0]} set 2 (the size of array).


Comments

Post a Comment

Popular posts from this blog

apache - Remove .php and add trailing slash in url using htaccess not loading css -

i have add following code htaccess file removing .php extension , add trailing slash urls. worked fine reduced page loading speed , css code not loading @ all. pages ugly. please help rewriteengine on rewritebase / ## hide .php extension snippet # externally redirect /dir/foo.php /dir/foo rewritecond %{the_request} ^[a-z]{3,}\s([^.]+)\.php [nc] rewriterule ^ %1/ [r,l] # add trailing slash rewritecond %{request_filename} !-f rewritecond %{request_uri} !/$ rewriterule . %{request_uri}/ [l,r=301] # internally forward /dir/foo /dir/foo.php rewritecond %{request_filename} !-d rewritecond %{request_filename}.php -f rewriterule ^(.*?)/?$ $1.php [l] we can rewrite urls using .htaccess files. before writing in .htaccess files need verify kind of server using. can check server adding a <?php phpinfo(); ?> in php page. ensure mod_rewrite module enabled in apache server. can identified checking phpinfo included page. common methods used url rewriting follows ...
Read more

inno setup - TLabel or TNewStaticText - change .Font.Style on Focus like Cursor changes with .Cursor -

is possible change .font.style on focus tlabel or tnewstatictext happens cursor when use .cursor ? there no built-in support track mouse hovering in inno setup @ time. however, intercepting window procedure of controls can track yourself. following example need innocallback library: [setup] appname=my program appversion=1.5 defaultdirname={pf}\my program outputdir=userdocs:inno setup examples output [files] source: "innocallback.dll"; destdir: "{tmp}"; flags: dontcopy [code] #ifdef unicode #define aw "w" #else #define aw "a" #endif const gwl_wndproc = -4; wm_mousemove = $0200; type wparam = uint_ptr; lparam = longint; lresult = longint; twindowproc = function(hwnd: hwnd; umsg: uint; wparam: wparam; lparam: lparam): lresult; function setcapture(hwnd: hwnd): hwnd; external 'setcapture@user32.dll stdcall'; function releasecapture: bool; external 'releasecapture@user32.dll stdcall'; func...
Read more