Perl: the Markov chain saw | |
PerlMonks |
How do I create a static variable?by faq_monk (Initiate) |
on Oct 08, 1999 at 00:27 UTC ( [id://693]=perlfaq nodetype: print w/replies, xml ) | Need Help?? |
Current Perl documentation can be found at perldoc.perl.org. Here is our local, out-dated (pre-5.6) version: As with most things in Perl, TMTOWTDI. What is a ``static variable'' in other languages could be either a function-private variable (visible only within a single function, retaining its value between calls to that function), or a file-private variable (visible only to functions within the file it was declared in) in Perl. Here's code to implement a function-private variable:
BEGIN { my $counter = 42; sub prev_counter { return --$counter } sub next_counter { return $counter++ } }
Now
To declare a file-private variable, you'll still use a
package Pax; my $started = scalar(localtime(time()));
sub begun { return $started }
When See Peristent Private Variables for details.
|
|