Arrayref aus Skalar-Rückgabewert - #85675 (Allgemeines zu Perl)

esskar

2004-08-11 10:05

User since
2003-08-04
7321 Artikel
ModeratorIn

user image

es funzt aber irgendwie gar nicht...

Code: (dl )

use strict;
my $feld = "Hallo";
ref(my $feld = []);
print $feld;
^Z
ARRAY(0x22544c)

Code: (dl )

ref(my $feld = [1]) eq 'ARRAY' and ($feld) = @$feld;
print $feld;
^Z
ARRAY(0x22544c)

Code: (dl )

ref(my $feld = [1]) eq 'ARRAY' and $feld = $feld->[0];
print $feld;
^Z
ARRAY(0x22544c)