Thread Variablennamen anzeigen
(18 answers)
Opened by bianca at 2021-05-25 11:23
Ganz unten der Code mit dem Aufruf kennt die Namen nicht.
Ich mache es deutlicher: 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 32 33 34 35 36 #!/usr/bin/perl use strict; use warnings; use 5.010; my $test1 = ['Birne','Apfel']; my @test2 = ('Fred','Anna'); my %test3 = (foo => 'bar',abc => 'def'); my $test4 = 'string'; my @uebergabe = ( 0, 1, 2, [$test1,\@test2,\%test3,\$test4], ); aufruf(\@uebergabe); sub aufruf { my ($ref) = @_; if (defined $ref->[3] && ref($ref->[3]) eq 'ARRAY') { require Data::Dumper; local $Data::Dumper::Useqq; $Data::Dumper::Useqq = 1; local $Data::Dumper::Sortkeys; $Data::Dumper::Sortkeys = sub { my ($hash) = @_; return [(sort {$a =~ /^\d+$/ && $b =~ /^\d+$/ ? $a <=> $b : lc($a) cmp lc($b)} keys %$hash)]; }; foreach my $keyref (@{$ref->[3]}) { say Data::Dumper::Dumper($keyref); # hier weiß ich nicht, dass die test1, test2 usw. heißen } } } 10 print "Hallo"
20 goto 10 |