Comment on

Actually you can redefine subroutine by using eval "sub func {'...'}"

That would create a new function at runtime, but it wouldn't follow the rules of dynamic scoping (see MOPT-03 for details).

As you've used it, the eval() just binds a new function to the name 'func'. To be dynamic, the new version of func() would have to be restricted to the evaluation context of the function that defined it:

    $VAR = "old VAR";
    sub func {return ("old func()")}
    sub show {printf "VAR='%s', func()='%s'\n", $VAR, func()}
    
    sub redefine {
        eval 'sub func {return ("new func()")}';
        local ($VAR) = "new VAR";
        show();
    }
    
    show();
    redefine();
    show();
[download]

returns:

    VAR='old VAR', func()='old func()'
    VAR='new VAR', func()='new func()'
    VAR='old VAR', func()='new func()'
[download]

which shows the difference between redefining a globally-scoped function and re-binding a dynamically-scoped variable.

and better yet is just to use anonymous subroutines and use ordinary variables to switch between different ones:

Yes, that would work:

 
    $VAR = "old VAR";
    $FUNC = sub {return ("old func()")};
    sub show {printf "VAR='%s', func()='%s'\n", $VAR, &$FUNC()}
    
    sub redefine {
        local ($FUNC) = sub {return ("new func()")};
        local ($VAR)  = "new VAR";
        show();
    }
    
    show();
    redefine();
    show();
[download]

returns:

    VAR='old VAR', func()='old func()'
    VAR='new VAR', func()='new func()'
    VAR='old VAR', func()='old func()'
[download]

which does the right thing. But to get the effect of a dynamically-scoped function, you have to use a dynamically scoped (aka: local) variable, and I did say that in the original article.

HOWEVER.. check out the next reply to see how I was, in fact, wrong.

In reply to Re2: MOPT-04 - identification, part 2 by mstone
in thread MOPT-04 - identification, part 2 by mstone

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		`&`
	<		`<`
	>		`>`
	[		`[`
	]		`]`

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.


"be consistent"
	PerlMonks