Thread push zu arrayref (33 answers)
Opened by Froschpopo at 2008-05-10 16:42

KurtZ
 2008-05-12 01:39
#109598 #109598
User since
2007-12-13
411 Artikel
BenutzerIn
[default_avatar]
[quote="DanielH+2008-05-10 17:42:20--"]
Und wenn sich das Array / der Hash selbst auch in 'ner Array- / Hash-Referenz befindet ist das Ganze sogar noch beschissener:

Code (perl): (dl )
1
2
3
4
5

#...
my $foo = { a => [1,2,3,4,5] };

push @{$foo->{a}}, 6,7,8,9;
print @{$foo->{a}}

[/quote]

Mal so ne Idee, wenn man's oft schreiben muss könnte man sich mit Wrappern behelfen, die dürften kaum Performance kosten
Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

sub rpush  {
        push @{+shift},@_;
}

sub lst ($) {
        @{$_[0]}
}

sub rscalar ($) {
        scalar @{$_[0]};
}


my $foo = { a => [1,2,3,4,5] };

rpush $foo->{a} , 6,7,8,9;
print lst $foo->{a}, " restprint ...";
print rscalar $foo->{a};


Schreibalternativen zu rpush, lst, rscalar wären auch Push, AT, Scalar [*] Vielleicht gibts ja sowas ähnliches schon bei CPAN... [*] edit: welche Konvention besser wäre müsste man diskutieren...
TMTOWTDYOG (there's more than one way to dig your own grave)

View full thread push zu arrayref