Hello all, I want a variable to be memoized, that is, keep the variable available only to the function and the value remembered across invocations. So far, I have created two versions listed below, both of which "work." The first version prints a warning message 'Variable "$bar" will not stay shared ...' which I would like to avoid by coding The Right Way(TM). Also, I wonder if the second version is modular enough so that it can be put in a module and loaded.
Is there a better way to memoize? Regards, - Robert ------ #!/usr/bin/perl -wl # version 1 use strict sub foo { my $bar=100; sub bat { $bar++; return $bar; } return bat(); } print foo(); print foo(); print foo(); ---------- #!/usr/bin/perl -wl # version 2 use strict BEGIN { my $bar=100; sub foo { $bar++; return $bar; } } print foo(); print foo(); print foo(); -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]