Thread Variablennamen anzeigen (18 answers)
Opened by bianca at 2021-05-25 11:23

bianca
 2021-05-25 12:39
#193287 #193287
User since
2009-09-13
6823 articles
BenutzerIn

user image
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

View full thread Variablennamen anzeigen