Thread Experimental push on scalar is now forbidden (21 answers)
Opened by hlubenow at 2023-08-20 16:35

rosti
 2023-08-21 18:24
#195292 #195292
User since
2011-03-19
3290 articles
BenutzerIn
[Homepage]
user image
Und hier noch was ganz Abgedrehtes:

Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
package RefArray;


use strict;
use warnings;

sub TIESCALAR{ return bless [], shift }

sub FETCH{ my $self = shift }

# die Zuweisung an die Referenz ist hier in push
sub STORE{
    my $self = shift;
    push @$self, @_;
}

1;#################################
package main;

use strict;
use warnings;

#Scalar wird gebunden
tie my $arr, "RefArray";

# jede Zuweiung macht eiin push
$arr = "Otto";
$arr = "Hanz";

$, = "\n";
print $arr->[0], $arr->[1]; # Otto Hanz

View full thread Experimental push on scalar is now forbidden