Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw
 
PerlMonks  

Re^4: Local for lexicals

by JadeNB (Chaplain)
on Aug 11, 2009 at 03:28 UTC ( [id://787478]=note: print w/replies, xml ) Need Help??


in reply to Re^3: Local for lexicals
in thread Local for lexicals

{ #outer scope $lamb = lambda ( $x, $y, $z ) => sub { $x + $y } }
This is, in a sense, the crux of my problem—I don't want the values of $x, $y, and $z to leak from the inside out, or vice versa, even though they have meaning in the outer scope. In this case, there are many ways around it, which you and others have indicated, but I was just wondering if there was any reason that one had to work around it, or if there were a lex_local that could just be dropped in for lexicals as local can for globals.
NOTE: Aliasing can always be achieved with * and pack-vars.
I know about *, although it doesn't seem to do much for lexicals, but what do you mean by pack-vars?
I think the most productive approach would be to post test code, assuring your intentions are understood, such that other stop posting speculative code...
(I PM'd you about this, but, on further thought, it seems that there's no reason to keep it P. :-) ) I agree, since it seems pretty clear that I'm not doing a good job of indicating the problem that I'm trying to solve. However, I don't know how to improve. Do you have any suggestions? (This seems almost worthy of being a post in its own right ….)

Replies are listed 'Best First'.
Re^5: Local for lexicals
by BrowserUk (Patriarch) on Aug 11, 2009 at 04:39 UTC

    Maybe this is a repetition of a question already asked--possibly even asked and answered--but having re-read the thread, I cannot see it. So here goes:

    { #outer scope $lamb = lambda ( $x, $y, $z ) => sub { $x + $y } }

    This is, in a sense, the crux of my problem—I don't want the values of $x, $y, and $z to leak from the inside out, or vice versa,

    What are you trying to achieve that this doesn't?

    my( $x, $y, $z ) = ( 1,2,3 ); my $lamb = do{ my( $x, $y, $z ) = ( $x, $y, $z ); lambda ( $x, $y, $z ) => sub { $x + $y } }

    Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
    "Science is about questioning the status quo. Questioning authority".
    In the absence of evidence, opinion is indistinguishable from prejudice.
      What are you trying to achieve that this doesn't?
      my( $x, $y, $z ) = ( 1,2,3 ); my $lamb = do{ my( $x, $y, $z ) = ( $x, $y, $z ); lambda ( $x, $y, $z ) => sub { $x + $y } }
      Unfortunately, I don't know quite what this does, so I can't answer! My question (at least, the part of my question that seems to have attracted the most attention) is how to write lambda in such a way that lambda( $x, $y, $z ) => sub { $x + $y } is the same as sub { $_[0] + $_[1] }. As far as I can tell, the code that you've written would be the same as
      my ( $x, $y, $z ) = ( 1, 2, 3 ); lambda ( 1, 2, 3 ) => sub { 1 + 2 }
Re^5: Local for lexicals
by LanX (Saint) on Aug 11, 2009 at 13:18 UTC
    or if there were a lex_local that could just be dropped in for lexicals as local can for globals.

    First of all local is the wrong approach, because local just manipulates already declared pack-vars, so under strict you would be forced to predeclare your variables with "our" (or "my") in the outer scope. (look at first our in the following code) (see update)

    I would love to have a lexical local in P5 BUT not with the extra magic of declaring missing variables your assuming.

    What you really want is aliasing like $_[ ] variables do.

    I know about *, although it doesn't seem to do much for lexicals, but what do you mean by pack-vars?

    Aliasing with package-variables

    use strict; use warnings; $\="\n"; my $lamb = sub { our ($d,$e); # local doesn't declare!!! local (*d,*e)=\(@_); $d += $e ; }; our $d="D"; our $u=10; $lamb->($u,5); print $u; #> 15 print $d; #> D

    However, I don't know how to improve.

    from your /msg:

    What can I do to improve? I try to phrase my questions as (1) an informal description of what I want; (2) imaginary code that'll do what I want; (3) descriptions of what I've tried, and what I don't want to do (ideally, with explanations).

    some ideas:

    1. Post working code which exactly does what you want, but in a "unpretty" way. e.g. with
      • $_[0] or
      • lex-refs $$x or
      • aliased pack-vars *x ...
    2. Express what you want to avoid in the working example (uglyness, doubelsigils, pack-vars,...)

    3. Post a test program which proofs every functionality you want to have covered, like
      • aliasing,
      • locality..
    4. e.g. with Test:More like in this post

    5. Write a codegenerator using eval which covers all edge cases e.g.
      • with or without use strict;,
      • with or without use warnings;,
      • variables known/unknown in outer scope,
      • outerscope vars are lex or pack
    6. Make clear which moduls are acceptable to be used...
      • None
      • Just CORE
      • CPAN w/o XS
      • CPAN
      • any

    Cheers Rolf

    UPDATE: as JavaFan pointed out here you are not forced to use our with full-qualified varnames, so this works

    my $lamb = sub { # our ($d,$e); local (*::d,*::e)=\(@_); $::d += $::e ; };
    but I don't know if this meets your criteria of being more elegant than using $_[0] += $_[1] and furthermore it's only a pack-var thing, in P5 lex-vars have no namespaces...
      under strict you would be forced to predeclare your variables with "our" (or "my")
      Not really. 'strict' just forces you to be explicite. Introducing a variable with our or my is one way. Using a fully qualified name is another. And for variables living in main, $::var is enough for satisfy strict.
Re^5: Local for lexicals
by JavaFan (Canon) on Aug 11, 2009 at 10:06 UTC
    I know about *, although it doesn't seem to do much for lexicals, but what do you mean by pack-vars?
    Well, of course * doesn't do anything for lexicals, as * is a typeglob. Lexicals don't live in typeglobs. A "pack-var" is just short for "package variable". You know that Perl has two kinds of variables, right? Lexical variables, and package variables (the latter is often confusingly called "global" variables, but that just shows ignorance. A lexical declared on an outer scope is "global" as well - "global" has to do with the broadness of the scope of the variable, not with its flavour).

    I'm still not sure what exactly you want with your "lambda" variables. On the one hand, you seem to use them as named parameters, but that gives them a well defined scope - they are scoped to the subs, and just act as aliases for $_[0], $_[1], etc. OTOH, you seem to be want to set them from way out of their scope (your "localized lexicals" request). That has little to do with lambda functions I've encountered in functional languages (where there's no such thing as assignment or state change).

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://787478]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others studying the Monastery: (4)
As of 2024-04-19 01:23 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found