PostScript::Report - Wie columns erzeugen (solved) (Fragen zu Perl-Modulen)

[thread]18023[/thread]

PostScript::Report - Wie columns erzeugen [solved]

Tags: perl5 Tk Similar Threads

Readers: 14

Articles: hide open all | hide show old branches

+6 replies
Kean

2013-01-04 11:01
User since
2004-08-18
464 articles
BenutzerIn
Ich versuche Daten aus einer HList in einem Report auszugeben.
Hierzu nutze ich PostScript::Report.

Bei den Columns der Tabelle habe ich leider Probleme diese dynamisch zu erzeugen. So werden sie statisch erzeugt:
Code (perl): (dl )

1 2 3 4 5 6 7 8 9 10 11

# Describe the report: my $desc = { columns => { data => [ [ 'Number' => 40 ], [ 'Letter' => 40 ], [ 'Text' => 320 ], [ 'Right' => 60 ], ], }, # end columns };
Wie könnte ich die columns dynamisch in einer Schleife erzeugen?
Handelt es sich hierbei um ein Hash in einem Array das in einem Array steckt??

Mein Lösungsansatz sieht vereinfacht so aus:
Code (perl): (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

my @header = (); for(my $c = 0; $c < $rangecolumns; $c++) { my @row = (); if ($_[2]->headerCget($c, -itemtype) && $_[2]->headerCget($c, -itemtype) eq 'text') { my %entry = ( $_[2]->headerCget($c, -text) => 40); push @row, \%entry; } push @header, \@row; } my $desc = { columns => { data => @header, }, };
Hierbei kommt aber die Fehlermeldung:
Code: (dl )

Tk::Error: Not an ARRAY reference
Hat vielleicht jemand eine Idee was ich falsch mache?

modedit Editiert von GwenDragon: Titel erweitert; Tabs gesetzt
Last edited: 2013-01-04 12:08:11 +0100 (CET)
- +5 replies
- Muffi
  
  2013-01-04 11:12
  
  User since
  2012-07-18
  1465 articles
  BenutzerIn
  
  Zeile 16 müssts wohl \@header heissen.
  
  EDIT: der entry-hash sieht auch irgendwie komisch aus, wie kommst du da auf einen hash?
  Last edited: 2013-01-04 11:15:14 +0100 (CET)
  1 + 1 = 10
  - +4 replies
  - Kean
    
    2013-01-04 11:23
    User since
    2004-08-18
    464 articles
    BenutzerIn
    
    Der Codeteil
    
    Code: (dl )
    
    'Number' => 40
    
    sieht für mich nach einem Hash aus.
    
    Wenn ich "data" nur die Referenz des Arrays @header übergebe kommt folgende Fehlermeldung:
    
    Code: (dl )
    
    Tk::Error: Unable to determine class
    - +3 replies
    - Muffi
      
      2013-01-04 11:29
      
      User since
      2012-07-18
      1465 articles
      BenutzerIn
      
      Wegen dem Pfeil?
      Der Pfeil ist (fast) nichts anderes als ein Komma, der hat mit einem Hash erstmal nichts zu tun. Er wird nur gern bei hashes benutzt, weils dann schöner lesbar ist.
      Aussenrum hast du [ ] und das ist arrayreferenz, kein Hash.
      1 + 1 = 10
      - Kean
        
        2013-01-04 11:40
        
        User since
        2004-08-18
        464 articles
        BenutzerIn
        
        Code: (dl )
        
        1 2 3 4 5 6 7 8 9 10
        
        my $desc = { columns => { data => [ [ 'Number' => 40 ], [ 'Letter' => 40 ], [ 'Text' => 320 ], [ 'Right' => 60 ], ], }, # end columns };
        
        Dann müsste der Code (noch mehr vereinfacht ohne das Laden aus der HList) doch so aussehen:
        
        Code: (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14
        
        for(my $c = 0; $c < 9; $c++) { my @row = (); my @entry = ( $c ,40 ); push @row, \@entry; push @header, \@row; } my $desc = { columns => { data => \@header, }, };
        
        Hierbei kommt dann folgender Fehler:
        
        Code: (dl )
        
        Tk::Error: Not a HASH reference
      - Kean
        
        2013-01-04 11:49
        
        User since
        2004-08-18
        464 articles
        BenutzerIn
        
        Ich hab den Fehler durch Zufall gefunden. Es war eine Stufe zu viel.
        
        Folgender Code hat funktioniert:
        
        Code: (dl )
        
        1 2 3 4 5 6 7 8 9 10 11
        
        for(my $c = 0; $c < 9; $c++) { my @entry = ( $c, 40 ); push @header, \@entry; } my $desc = { columns => { data => \@header, }, };
        
        Vielen Dank für deine Hilfe :-)

View all threads created 2013-01-04 11:01.