Re: Perl Syntax


We don't bite newbies here... much
	PerlMonks

by SuicideJunkie (Vicar)

on Oct 30, 2013 at 20:59 UTC ( [id://1060448]=note: print w/replies, xml )

Need Help??

in reply to Perl Syntax

The best way to find out is to print the results as you go:

c:> perl -e "my $new = [$a,$b]; print qq*new is: * .$new . qq*\n 0+new is:*. (0+$new). qq*\n*; which gives:

new is: ARRAY(0x2491b4)
 0+new is:2396596
[download]

As for line three, note that there is a for in there which loops over ($a, $b).

Comment on Re: Perl Syntax Select or Download Code

Replies are listed 'Best First'.
Re^2: Perl Syntax by kbfiles (Initiate) on Oct 30, 2013 at 21:04 UTC
@Suicide - I'm not trying to find what the value is but what does it do? What does 0+ do to $new?	[reply]
Re^3: Perl Syntax by derby (Abbot) on Oct 30, 2013 at 21:20 UTC
Uggh ... that is one bad code smell ... basically in that context you're getting the memory address of the reference value and using it as the key for the hash. -derby	[reply]
Re^4: Perl Syntax by davido (Cardinal) on Oct 30, 2013 at 21:45 UTC
Some call it code smell, others call it the basis for managing inside-out objects. Update: Example from Class::Std: `sub import { my $caller = caller; no strict 'refs'; *{ $caller . '::ident' } = \&Scalar::Util::refaddr;` [download] Dave	[reply] [d/l]
Re^5: Perl Syntax by tobyink (Canon) on Oct 30, 2013 at 22:36 UTC

Domain Nodelet^?

Node Status^?

node history
Node Type: note [id://1060448]
help

Chatterbox^?

How do I use this? • Last hour • Other CB clients

Other Users^?

Others wandering the Monastery: (4)

As of 2024-04-19 07:20 GMT

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Voting Booth^?

No recent polls found