Arrays are not lists - #106314 (Allgemeines zu Perl)

KurtZ

2008-02-24 17:39

User since
2007-12-13
411 Artikel
BenutzerIn
[default_avatar]

pq+2008-02-23 18:29:11--
ach je, dann vergiss meinen ansatz =)
hatte mich auf den skalaren kontext konzentriert...

hmm , der Gedanke war vielleicht auch nicht zu blöd:

Code (perl): (dl )

use strict;

our $\="\n",$,="\t";

my @A=qw< a b c>;

sub ret_slice_arr3 {
    return @{[]} = @_[0..$#_];
}

print scalar( ret_slice_arr3(@A) ),ret_slice_arr3(@A);  #: 3    a       b       c

sowas funktioniert übrigens auch (wenn man gerne in die Hölle der Obfuscator will *fg*)

Code (perl): (dl )

1
2
3

sub ret_slice_arr3 {
    return @ .= @_[0..$#_];
}

TMTOWTDYOG (there's more than one way to dig your own grave)