Thread Precedences und Schönheit (21 answers)
Opened by RalphFFM at 2018-03-31 14:27

rosti
 2018-03-31 17:17
#188196 #188196
User since
2011-03-19
3180 Artikel
BenutzerIn
[Homepage]
user image
Wenn Du wissen willst was wirklich passiert, binde $i an eine Klasse und überlade eine der Methoden, z.B. FETCH():

Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
use strict;
use warnings;
use Tie::Scalar;
use base qw(Tie::StdScalar);

sub FETCH{
    my $self = shift;
    print "$$self\n";
    return $$self;
}

tie my $i, 'main';
$i = 1;

$i = $i < 5 ? ++$i : 1; 

# Ausgabe
1
1



Oder mit STORE();

Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
use Tie::Scalar;
use base qw(Tie::StdScalar);

sub STORE{
    my $self = shift;
    my $valu = shift;
    $$self += $valu;

    print "$$self\n";
    return $$self;
}

tie my $i, 'main';
$i = 1;

$i = $i < 5 ? ++$i : 1; 

# Ausgabe
1
3



Und dann versuchen wir uns mal an einer Erklärung ;)



PS: Also ob Dein Code wikrlich das macht was er soll, da bin ich mir nicht so ganz sicher ;)



.
Last edited: 2018-03-31 17:26:21 +0200 (CEST)

View full thread Precedences und Schönheit