2011-04-06T07:56:39 rosti

Quote

Jedoch würde ich zu gerne wissen, welche Vorteile du in deinem Anwendungsfall von tie bezüglich einer normalen Funktion siehst.

Mit tie() wird es modular. Und ich kann auch mal einen numerischen Wert (da muss noch eine Prüfung rein, dass der Wert auch wirklich numerisch ist) ggf. persistent ändern.

2011-04-06T07:56:39 rosti

Eine Anwendung ist das Abholen meiner Mails per Script vom POP3-Server, da brauche ich fortlaufende Nummern für die lokalen Dateinamen; hier haben wir den Fall, dass beim Starten des Scripts einmal automatisch hochgezählt wird und dann das Script je empfangene Mail selbst weiterzählt. Es sind auch Mails von mehreren POP's anzuholen....

1
2
3
4
5
6

my $counter=Conter->new(file=>$file,keys=>[qw(foo bar bam)]);
$counter->up('foo');
# oder mit dynamischer Methoden-Deklaration:
$counter->foo_up();
# oder mit overload:
$counter+="foo";

1
2

tie (my %counter, 'Tie::Counter', file=>$file, keys=>[qw(foo bar bam)]);
$counter{foo}++;