static variable - #105955 (Allgemeines zu Perl)

betterworld

2008-02-16 02:10

User since
2003-08-21
2614 Artikel
ModeratorIn

user image

#Kein Kommentar+2008-02-15 22:35:55--
wird mit dem my $f if 0; use strict; kaltgestellt?

Hmm, wenn ich so drueber nachdenke, weiss ich eigentlich wirklich nicht, was es genau tut. Es scheint einiges zu tun, was my normalerweise tut (eine Variable erzeugen), anderes von dem wird aber durch das "if 0" vermieden (die Variable zu lokalisieren). Laut perlsyn ist das Ergebnis nicht definiert. (Such nach "Here be dragons".)
(Allerdings weiss ich auch nicht, wie Du jetzt auf "strict" kommst.)

Treiben wir es noch mal etwas weiter:

Code: (dl )

sub foo {
    my $f = 40 if @_;
    print ++$f, "\n";
}
foo();   # 1
foo();   # 2
foo(1);  # 41
foo();   # 1
foo();   # 2

Schon etwas eigenartig. (Muss unbedingt in meinen naechsten Produktivcode.)

Lieblingsmodule: CPAN:

IPC::System::Simple, CPAN:

Path::Class