Thread Hash nach HTML mit Modul? (16 answers)
Opened by Neyt at 2013-03-22 10:12

Neyt
 2013-03-26 11:03
#166628 #166628
User since
2013-03-14
13 Artikel
BenutzerIn
[default_avatar]
Moin moin,

ich komme mit dem Durchlauf des Hashs beim Ausgebe (print) nicht ganz klar.


Hier mal der Code von meinem zusammengebauten Hash:
Code: (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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
my %hash4html = ();

foreach my $key (keys (% {$hash}))
{
    # Hash für Info
    $hash4html{$key}{'Info'}  = {% {$hash->{$key}->{'Info'}}};

    foreach my $key2 (keys (% {$hash->{$key}->{'Info'}}))
    {
        foreach my $key2 (keys (% {$hash->{$key}->{'Info'}}))
        {
            # Abfrage ob der Wert des Keys gleich '???' ist
            if($hash->{$key}->{'Unterschied'}->{$key2} eq '???')
            {
                # neu;
                my (undef,@array_fragezeichen) = split('/', $key2);
                unshift(@array_fragezeichen,'new');
                my $neu = Dive( %{$hash}->{$key},@array_fragezeichen);

                # Hash für neu
                $hash4html{$key}{'???'}{$key2}{neu} =$neu;

                # alt
                my (undef, @array_fragezeichen) = split('/', $key2);
                unshift(@array_fragezeichen, 'old');
                my $alt = Dive( %{$hash}->{$key},@array_fragezeichen);

                # Hash für alt
                $hash4html{$key}{'???'}{$key2}{alt} =$alt;
            }

            # Abfrage ob der Wert des Keys gleich '+++' ist
            elsif ($hash->{ $key }->{ 'Unterschied' }->{$key2} eq '+++')
            {
                # plus_neu
                my (undef, @array_plus) = split('/', $key2);
                unshift(@array_plus,'new');
                my $plus_neu = Dive( %{$hash}->{$key},@array_plus);
                ### Hash für neu
                $hash4html{$key}{'+++'}{$key2}{neu} =$plus_neu;
            }

            # Abfrage ob der Wert des Keys gleich '---' ist
            elsif ($hash->{ $key }->{ 'Unterschied' }->{$key2} eq '---')
            {
                # minus_alt
                my (undef, @array_minus) = split('/', $key2);
                unshift(@array_minus,'old');
                my $minus_alt = Dive( %{$hash}->{$key},@array_minus);
                # Hash für alt
                $hash4html{$key}{'---'}{$key2}{alt} =$minus_alt;
            }
        }
    }
}


Hier die Funktion für das Ausgeben (durchläuft noch nicht den ganzen Hash):

Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
sub html
{
    print "<html>\n";
    print "<body>\n";
    foreach my $key (sort keys (%hash4html))
    {
        print "<h>$key</h>\n";
        print "<p>Info</p>\n";
        foreach my $key2 (keys (% {$hash->{$key}->{'Info'}}))
        {
            print "<p>".$key2." = ".(%{$hash}->{$key2})."</p>"."\n";

        }print "\n";
    }
    print "</body>\n";
    print "</html>\n";
}

Bei der Zeile [print "<p>".$key2." = ".(%{$hash}->{$key2})."</p>"."\n";] werden keine Werte ausgespuckt...Weiss jemand was ich falsch mache?

View full thread Hash nach HTML mit Modul?