static variable - #105528 (Allgemeines zu Perl)

betterworld

2008-02-03 22:04

User since
2003-08-21
2614 Artikel
ModeratorIn

user image

Und nur weil es so schoen kryptisch aussieht, hier noch eine weitere Loesung:

Code (perl): (dl )

use strict;
use warnings;

foreach (1..5){
    hallo ();
}

sub hallo {
        my $ab;
        sub counter {
            no warnings;
            return ++$ab;
        }
        print counter(), "\n";
}

Das nutzt ein "Feature" aus, was die meiste Zeit eigentlich nur stoerend auffaellt, und zwar, dass my-Variablen in inneren Funktionen zu so einer Art State-Variablen werden.

Lieblingsmodule: CPAN:

IPC::System::Simple, CPAN:

Path::Class