Hash referenz in array pushen (Allgemeines zu Perl)

[thread]16554[/thread]

Hash referenz in array pushen

Tags: perl5 hash Array Similar Threads

Readers: 24

Articles: hide open all | hide show old branches

+10 replies
Gustl

2011-07-21 19:18
User since
2011-01-27
441 articles
BenutzerIn
Hi,

ich habe ein array @links von Links, um diese in einem Template auslesen zu können benötige ich dort eine Hashreferenz.

Ich übergebe dem Template \@liste das array.

zusammensetzen tu ich das array in einer sub so:
Code (perl): (dl )

1 2

my $tmp->{links} = "<a href='$link"."page=".($aktuell_page-1)."' title='Zur Seite ".($aktuell_page-1)."'>«</a>"; push(@links, $tmp );
Ich werde das Gefühl nicht los, dass es auch einfacher geht... ich erstelle in der for-schleife dann immer wieder eine neue referenz auf tmp. Mir erscheit das schon umständlich. Kann mir wer helfen?
- +9 replies
- pq
  
  2011-07-21 19:38
  
  User since
  2003-08-04
  12208 articles
  Admin1
  
  was ich mich frage: wieso bastelst du da überhaupt HTML in perl zusammen, wenn du doch ein template benutzt?
  
  (und warum löschst du die vorgeschlagenen tags (stichworte) aus dem thread?)
  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
  - +8 replies
  - Gustl
    
    2011-07-21 19:52
    User since
    2011-01-27
    441 articles
    BenutzerIn
    
    2011-07-21T17:38:40 pq
    was ich mich frage: wieso bastelst du da überhaupt HTML in perl zusammen, wenn du doch ein template benutzt?
    
    Weil ich bei der pagenaviagtion in perl, und nicht im template mehr möglichkeiten ahbe, dort kann ich schleifen benutzen und mit zahlen rechnen, das geht im template ja nicht. Mein Grundgedanke war eine sub der ich die aktuelle seite, maximale seiten und den link übergebe. Dann macht diese sub mir ein array wo genau die benötigten Links für die Seiten, abhängig der aktuellen Seite, drin stehen. Hab es auch schon erdacht das im Template zu machen, aber denke das ist so einfacher.
    
    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 37 38 39 40 41 42
    
    sub get_pageNavi{ my $aktuell_page = shift; my $max_pages = shift; my $link = shift; my @links; if($aktuell_page > 1){ my $tmp->{links} = "<a href='$link"."page=".($aktuell_page-1)."' title='Zur Seite ".($aktuell_page-1)."'>«</a>"; push(@links, $tmp ); } print $max_pages; if($aktuell_page > 4){ for( my $i = $aktuell_page - 4; $i < $aktuell_page && $i <= $max_pages; $i++){ my $tmp->{links} = "<a href='$link"."page=".$i."' title='Zur Seite ".$i."'>$i</a>"; push(@links, $tmp ); } my $tmp->{links} = "<span>$aktuell_page</span>"; push(@links, $tmp ); for( my $i = $aktuell_page + 1; $i <= $max_pages || $i <= 10; $i++){ my $tmp->{links} = "<a href='$link"."page=".$i."' title='Zur Seite ".$i."'>$i</a>"; push(@links, $tmp ); } }else{ for( my $i = 1; $i < $aktuell_page; $i++){ my $tmp->{links} = "<a href='$link"."page=".$i."' title='Zur Seite ".$i."'>$i</a>"; push(@links, $tmp ); } my $tmp->{links} = "<span>$aktuell_page</span>"; push(@links, $tmp ); for( my $i = $aktuell_page + 1; $i <= $max_pages && $i <= 10; $i++){ my $tmp->{links} = "<a href='$link"."page=".$i."' title='Zur Seite ".$i."'>$i</a>"; push(@links, $tmp ); } } if($aktuell_page < $max_pages){ my $tmp->{links} = "<a href='$link"."page=".($aktuell_page+1)."' title='Zur Seite ".($aktuell_page+1)."'>»</a>"; push(@links, $tmp ); } return @links; }
    
    2011-07-21T17:38:40 pq
    (und warum löschst du die vorgeschlagenen tags (stichworte) aus dem thread?)
    
    ich habe tags gelöscht? Wenn dann unabsichtlich... welche tags?
    
    Gruß
    - pq
      
      2011-07-21 20:31
      
      User since
      2003-08-04
      12208 articles
      Admin1
      
      also die diversen pager hier im forum sind alle im template gelöst. welches template-system benutzt du denn, das keine schleifen kann?
      
      ich errechne vorher die pagelinks und habe dann eine reihe von objekten (oder hashrefs), die ich dem template übergebe.
      das HTML-gebastel im code finde ich dagegen sehr unübersichtlich.
      
      schau dir mal Data::Pager an.
      
      zu den tags: bei thread-erstellung kriegst du eine eingabemöglichkeit von tags. hier im forum ist "perl5" ein vorgeschlagenes tag, was vorausgefüllt wird. dein thread hatte aber gar keine tags, anscheinend hast du "perl5" entfernt, bevor du den thread abgeschickt hast.
      
      ich pflege bei vielen threads die tags selbst nach, weil oft nur die vorgeschlagenen tags benutzt werden, aber bei dir war halt die liste komplett leer.
      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
    - +6 replies
    - GwenDragon
      
      2011-07-21 20:35
      
      User since
      2005-01-17
      14741 articles
      Admin1
      
      Data::Page und Data:Page::Set sind auch nützliche Module um eine Seitennavigation zu erstellen.
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
      - +5 replies
      - Gustl
        
        2011-07-21 20:44
        
        User since
        2011-01-27
        441 articles
        BenutzerIn
        
        Danke für die Tipps, sieht ja irgendwie leichter aus. :D
        Das mit den tags im thread, ich habe wirklich keine tags entfernt...
        
        Was ich eigentlich wissen wollte, wie kanne ich eine Hash-Referenz in ein array "pushen"?
        
        Also so ähnlich vielleicht:
        Anstatt so:
        
        Code (perl): (dl )
        
        1 2
        
        my $tmp->{links} = "<a href='$link' >«</a>"; push(@links, $tmp );
        
        so in der art(das funktioniert natürlich nicht):
        
        Code (perl): (dl )
        
        1 2
        
        push(@links, "<a href='$link' >«</a>" );
        
        "<a href='$link' >«</a>" ist jetzt natürlich eine zeichenkette und keine hash referenz, so wie es sein sollte.
        
        Danke, Gruß
        
        GwenDragon
        
        2011-07-21 20:56
        
        User since
        2005-01-17
        14741 articles
        Admin1
        
        So gehts auch:
        
        Code (perl): (dl )
        
        push(@links, { links => "<a href='$link' >«</a>"} );
        
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        +3 replies
        
        Linuxer
        
        2011-07-21 20:56
        
        User since
        2006-01-27
        3890 articles
        HausmeisterIn
        
        Z.B. so:
        
        Code (perl): (dl )
        
        1 2
        
        push @array, { links => qq~<a href="$link" >whatever</a>~ }; push @array, { links => "<a href='$link' >whatever2</a>" };
        
        Die {} erzeugen eine Hash-Referenz, der Rest ist dann eben Key und Value...
        meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
        Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
        
        +2 replies
        
        Gustl
        
        2011-07-21 21:02
        
        User since
        2011-01-27
        441 articles
        BenutzerIn
        
        Danke euch, das mit dem klammer ist mir wohl entfallen.
        
        Gruß
        
        roooot
        
        2011-07-21 22:39
        
        User since
        2008-03-03
        276 articles
        BenutzerIn
        
        oooder
        
        Code (perl): (dl )
        
        1 2 3 4 5
        
        my @array = map { { links => qq[<a href="$_" >whatever</a>] } } @links;
        
        Viele Grüße :)

View all threads created 2011-07-21 19:18.