l i n u x - u s e r s - g r o u p - o f - d a v i s
L U G O D
 
Next Meeting:
October 7: Social gathering
Next Installfest:
TBD
Latest News:
Aug. 18: Discounts to "Velocity" in NY; come to tonight's "Photography" talk
Page last updated:
2004 Jun 24 15:28

The following is an archive of a post made to our 'vox-tech mailing list' by one of its subscribers.

Report this post as spam:

(Enter your email address)
Re: [vox-tech] perl: function with hash and scalar args
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: [vox-tech] perl: function with hash and scalar args



On Thu, 24 Jun 2004, Peter Jay Salzman wrote:

> i have a function which takes a hash and scalar arg.  how is this done
> correctly?  why is $scalar undefined at the print statement in
> function()?

Because argument lists are always lists... and hashes decompose into lists
of alternating "key,value" pairs... and when you add $scalar into the
list, you can't differentiate where the hash portion of the list ends and
other arguments end.

> 
> #!/usr/bin/perl
> use strict;
> use diagnostics;
> 
> sub function(%$)
> {
>    my (%hash, $scalar) = (shift, shift);
> 
>    print "hash: $hash{foo}\n";
>    print "scalar: $scalar\n";
> }
> 
> my (%hash, $scalar);
> 
> $hash{foo} = "hello";
> $scalar    = "goodbye";
> 
> function(%hash, $scalar);

The usual solution is to pass references, which are always scalars:

------
#!/usr/bin/perl
use strict;
use diagnostics;

sub function( %$ )
{
   my ($hashref, $scalar) = (shift, shift);

   print "hash: $$hashref{foo}\n";
   print "scalar: $scalar\n";
}

my (%hash, $scalar);

$hash{foo} = "hello";
$scalar    = "goodbye";

function( \%hash, $scalar);
------

---------------------------------------------------------------------------
Jeff Newmiller                        The     .....       .....  Go Live...
DCN:<jdnewmil@dcn.davis.ca.us>        Basics: ##.#.       ##.#.  Live Go...
                                      Live:   OO#.. Dead: OO#..  Playing
Research Engineer (Solar/Batteries            O.O#.       #.O#.  with
/Software/Embedded Controllers)               .OO#.       .OO#.  rocks...2k
---------------------------------------------------------------------------

_______________________________________________
vox-tech mailing list
vox-tech@lists.lugod.org
http://lists.lugod.org/mailman/listinfo/vox-tech



LinkedIn
LUGOD Group on LinkedIn
Sign up for LUGOD event announcements
Your email address:
facebook
LUGOD Group on Facebook
'Like' LUGOD on Facebook:

Hosting provided by:
Sunset Systems
Sunset Systems offers preconfigured Linux systems, remote system administration and custom software development.

LUGOD: Linux Users' Group of Davis
PO Box 2082, Davis, CA 95617
Contact Us

LUGOD is a 501(c)7 non-profit organization
based in Davis, California
and serving the Sacramento area.
"Linux" is a trademark of Linus Torvalds.

Sponsored in part by:
EDGE Tech Corp.
For donating some give-aways for our meetings.