Thread Exporter und local (9 answers)
Opened by betterworld at 2003-09-27 20:21

betterworld
 2003-10-06 02:42
#57529 #57529
User since
2003-08-21
2614 Artikel
ModeratorIn

user image
Wenn man aber eh den Wert ueber eine Funktion holt, bekommt man ja immer denselben. Das hier muesste eigentlich auch funktionieren:
(Hab es jetzt nicht ausgetestet, daher habe ich mich nach Murphy irgendwo verschrieben.)
[quote=kabel,28.09.2003, 12:11]Zitat (abgeaendert)
Quote
$> perl
CSLocal::value (42);
CSLocal::localize ();
CSLocal::value ("blubber di blah");
print "value is [", CSLocal::value (), "]\n";
CSLocal::restore ();
print "after restore [", CSLocal::value (), "]\n";

value is [blubber di blah]
after restore [42]
$>

CSLocal.pm
[READMORE] # damn it! 8)
Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
package CSLocal;
my $VALUE;
use strict;
my @value_stack = ();
sub undefine_value { undef $VALUE; }
sub value {
        $VALUE = $_[0] if @_;
}
sub localize {
        push @value_stack, value ();
        undefine_value ();
}
sub restore {
        die "no values to restore" unless @value_stack;
        my $val = pop @value_stack;
        value ($val);
}
1;

[/READMORE][/quote]\n\n

<!--EDIT|betterworld|1065393845-->
Lieblingsmodule: CPAN:IPC::System::Simple, CPAN:Path::Class

View full thread Exporter und local