Trouble passing arguments to subroutine

[laredotornado]

Hi,

I want to create a function that takes a hash (by reference) and a
scalar as arguments. I'm trying ...

sub add_to_block_hash
{
my (%blocks, $curBlock) = @_;
print "curblock: $curBlock\n"; # line 33
....


add_to_block_hash(\%blocks, $curBlock);


but I'm getting the error, "Use of uninitialized value in
concatenation (.) or string at test.pl line 33" in which line 33 is
marked above. How do I correct this? THanks, - Dave

 

[J. Gleixner]

Hi,

I want to create a function that takes a hash (by reference) and a
scalar as arguments. I'm trying ...

sub add_to_block_hash
{
my (%blocks, $curBlock) = @_; ^^^^^^^ hash, not a reference
print "curblock: $curBlock\n"; # line 33
...


add_to_block_hash(\%blocks, $curBlock); ^^^^^^^ reference to a hash


but I'm getting the error, "Use of uninitialized value in
concatenation (.) or string at test.pl line 33" in which line 33 is
marked above. How do I correct this? THanks, - Dave

sub add_to_block_hash {
my ($blocks, $curBlock) = @_;

Then, dereference $blocks.

e.g.
for my $k ( keys %$blocks ) { ...}

 

[Jürgen Exner]

I want to create a function that takes a hash (by reference) and a
scalar as arguments. I'm trying ...

sub add_to_block_hash
{
my (%blocks, $curBlock) = @_;

^^^^^^^
This hash will suck up all the arguments provided, leaving nothing for
$curBlock. And because you are passing an even number of arguments you
are not even getting a warning that you are trying to create a hash with
an odd number of elements.
If you are passing a hash ref, then you need to treat it as hash ref:

my ($blockRef, $curBlock) = @_;

jue