Thread Experimental push on scalar is now forbidden
(21 answers)
Opened by hlubenow at 2023-08-20 16:35
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 |