Hash nach HTML mit Modul? (gelöst) (Allgemeines zu Perl)

[thread]18219[/thread]

Hash nach HTML mit Modul? [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 22

Articles: hide open all | hide show old branches

+17 replies

Neyt

2013-03-22 10:12

User since
2013-03-14
13 Artikel
BenutzerIn
[default_avatar]

Hi Leute,

ich habe jetzt meinen Hash so zusammengebastelt, wie ich ihn gerne in HTML ausgegeben haben möchte.
Mache ich das am einfachsten über ein Modul? Wenn ja welches wäre dafür geeignet?

Code: (dl )

$VAR1 = {
       'Klasse' => {
	    'Klasseninfo' => {
	      'Anzahl' => '29',
	      'Klassenname' => 'asdf 13'
	     }
	    '?' => {
		    'Klasse/Klassenbuch/Eintrag' => {
			     'Alter Eintrag' => 'Fehltag', 'Neuer Eintrag' => 'Fehlzeit' }
	   },
	    '+' => {
		    'Klasse/Klassenbuch/Eintrag' => { 'Neuer Eintrag' => 'Fehlstunde'  }
	   }
   }
 }

modedit Editiert von pq: viiiiele tabs entfernt
Last edited: 2013-03-22 11:28:29 +0100 (CET)

+5 replies
Muffi

2013-03-22 10:23

User since
2012-07-18
1465 Artikel
BenutzerIn

Und aus dieser 10-Zeilen Datenstruktur soll jetzt per Modul eine Schulverwaltung werden?
1 + 1 = 10
- +4 replies
- Neyt
  
  2013-03-22 10:26
  
  User since
  2013-03-14
  13 Artikel
  BenutzerIn
  
  Es sind ungefähr 100 Zeilen aber anhand eines Beispieles habe ich einfach ein Bereich genommen
  - +3 replies
  - Muffi
    
    2013-03-22 10:28
    User since
    2012-07-18
    1465 Artikel
    BenutzerIn
    
    Ich hab immer noch nicht so ganz verstanden was das werden soll.
    
    Stellst du dir ein Klassenverwaltung.pm vor und du schreibst
    
    Code (perl): (dl )
    
    1 2
    
    my $klassenverwaltung = Klassenverwaltung->new(%mein_hash); $klassenverwaltung->magie();
    
    und dann tuts?
    1 + 1 = 10
    - +2 replies
    - Neyt
      
      2013-03-22 10:31
      
      User since
      2013-03-14
      13 Artikel
      BenutzerIn
      
      ich will die daten ausm hash einfach ausgeben und zwar per html format.
      
      <h1>KLasse</h1>
      ...
      ...
      ...
      - Raubtier
        
        2013-03-22 10:45
        
        User since
        2012-05-04
        1076 Artikel
        BenutzerIn
        
        Wie wäre es denn mit einer einfachen Funktion?
        
        Sowas in der Art hier (ungetesteter Code):
        
        Code: (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13
        
        sub hashref2html { my ($hashref, $tiefe) = @_; $tiefe ||= 1; #starten mit Tiefe 1, wenn keine Tiefe gegeben for my $key (sort keys @$hashref) { print "<h$tiefe>$key</h$tiefe>"; #nachschauen, ob ich einen unterhash habe if (ref $hashref->{$key} eq "HASH") { hashref2html($hashref->{$key}, $tiefe + 1); } else { print $hashref->{$key}; } } }
        
        Achtung: habe jetze kein HTML-Quoting eingebaut, das müsstest du dann noch machen. Die generelle Idee ist aber, dass du durch den Hash durchgehst und dann einfach alles ausgibst. Wenn der Wert aber wieder ein Hash ist, dann rufst du dich rekursiv auf mit einer um 1 höheren Tiefe. Achtung: ein Hash hat keine Ordnung, daher habe ich ein sort der Keys gemacht.
        Last edited: 2013-03-22 10:49:55 +0100 (CET)
+3 replies
pq

2013-03-22 11:31

User since
2003-08-04
12208 Artikel
Admin1

ich hab mal ein paar der vielen vielen tabs entfernt. war das wirklich nötig, die alle einzubauen? jetzt kann man die datenstruktur sehen, ohne horizontal scrollen zu müssen.
Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
- +2 replies
- Muffi
  
  2013-03-22 11:38
  
  User since
  2012-07-18
  1465 Artikel
  BenutzerIn
  
  Jetzt müsst mein IE nur noch eine tab-size von 4 anzeigen ;)
  1 + 1 = 10
  - GUIfreund
    
    2013-03-22 13:24
    
    User since
    2011-08-08
    559 Artikel
    BenutzerIn
    
    2013-03-22T10:38:56 Muffi
    Jetzt müsst mein IE nur noch eine tab-size von 4 anzeigen ;)
    
    Mein FF auch.
    Gruß
    GUIfreund
rosti

2013-03-22 17:34

User since
2011-03-19
3491 Artikel
BenutzerIn

Quote
Mache ich das am einfachsten über ein Modul? Wenn ja welches wäre dafür geeignet?

Guck mal auf CPAN, was es so für XML gibt. Es gibt Parser, die erzeugen aus XML einen Hash und die können das auch umgekehrt.

Viele Grüße!
+5 replies

Neyt

2013-03-26 11:03

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 )

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 )

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?

+4 replies

Raubtier

2013-03-26 12:06

User since
2012-05-04
1076 Artikel
BenutzerIn
[default_avatar]

Benutzt du use warnings;? Wenn nicht, dann mach das mal.

Ich bekomme da allein schon diese Warnungen:

Quote
"my" variable @array_fragezeichen masks earlier declaration in same scope at test.pl line 24.
Using a hash as a reference is deprecated at test.pl line 26.
Using a hash as a reference is deprecated at test.pl line 38.
Using a hash as a reference is deprecated at test.pl line 49.

+3 replies

Neyt

2013-03-26 14:04

User since
2013-03-14
13 Artikel
BenutzerIn
[default_avatar]

Habe ich hinzugefügt und die ganzen Warnings habe ich behoben! Allerdings liest er die Werte dadurch immer noch nicht heraus

+2 replies

Raubtier

2013-03-26 15:10

User since
2012-05-04
1076 Artikel
BenutzerIn
[default_avatar]

Ich habe absolut keine Idee, was du eigentlich genau machen willst.

Am einfachsten bekommst du Hilfe, wenn du ein kurzes (!), aber vollständiges und lauffähiges (!) Programm postest, inklusive erwarteter Ausgabe und tatsächlicher Ausgabe.

Neyt

2013-03-27 08:07

User since
2013-03-14
13 Artikel
BenutzerIn
[default_avatar]

Also ich habe den Hash hier:

Code: (dl )

$VAR1 = {'Klasse' => {'Klasseninfo' => {'Anzahl' => '29',
                                        'Klassenname' => 'asdf 13'
                                       }
                      '?' => {'Klasse/Klassenbuch/Eintrag' => {'Alter Eintrag' => 'Fehltag', 
                                                               'Neuer Eintrag' => 'Fehlzeit'
                                                               }},
                      '+' => {'Klasse/Klassenbuch/Eintrag' => {'Neuer Eintrag' => 'Fehlstunde'}
                             }
                     }
          }

Der Hash wird über diesen Code zusammengebastelt:

Code: (dl )

# Hash
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}->{Unterschied}}))
        {
            # 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
                (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;
            }
        }
    }
}

Diesen Hash will ich jetzt durchlaufen (am besten mit ner eigenen Funktion) und jeden Key und Wert per print mit htmlquotes ausgeben.
Sprich die Ausgabe kann z.b. so aussehen (mit htmlquotes):

Code: (dl )

<h1>Klasse</h1>
<h2>Klasseninfo</h2>
<p>Anzahl: 29</p>
<p>Klassenname: asdf</p>

<p>?</p>
<p>Alter Eintrag: Fehltag</p>
<p>Neuer Eintrag: Fehlzeit</p>

<p>+</p>
<p>Neuer Eintrag: Fehlstunde</p>

modedit Editiert von pq: code-tags hinzugefügt
Last edited: 2013-03-27 11:26:51 +0100 (CET)

+2 replies
Neyt

2013-03-27 11:04

User since
2013-03-14
13 Artikel
BenutzerIn

Habe es hinbekommen so wie ich es wollte! Hilfe wird nicht benötigt! Thx 4 Help
- pq
  
  2013-03-27 11:28
  
  User since
  2003-08-04
  12208 Artikel
  Admin1
  
  und du möchtest anderen, die auf der suche nach hilfe sind, und denen, die zeit investiert haben, dir zu helfen, vorenthalten, wie du es gelöst hast?
  Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
  lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem

View all threads created 2013-03-22 10:12.