|
|
| 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 ( #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.
|
|