Zwei Array ein Hash mit CGI (gelöst) (Allgemeines zu Perl)

[thread]15211[/thread]

Zwei Array ein Hash mit CGI [gelöst]

Leser: 23

Articles: hide open all | hide show old branches

Teilbaum:
Warum HTML mit Template statt CGI erzeugen (12 Artikel) 2010-06-29 12:08

+19 replies

bianca

2010-06-28 17:44

User since
2009-09-13
7016 Artikel
BenutzerIn

user image

Guten Abend.
Bitte um Hilfe, habe einen Knoten im Kopf.
Ich bekomme zwei Array geliefert und möchte daraus mit CPAN:

CGI ein sog. popup_menu erstellen. Dafür muss ich im Parameter -labels die Paare als Hash übergeben, die ich ja als zwei Array vorliegen habe.
Hab auch was versucht, was sicher doof ist und auch nicht funktioniert.

Wie lautet die richtige Syntax dafür?

Vielen Dank

Code (perl): (dl )

#!/usr/bin/perl -w
use strict;
use warnings;
use diagnostics;
use CGI;
my $cgi=CGI->new;

my %data = (
        test1 => ['anzeige1','anzeige2'],
        test2 => ['val1','val2'],
);

build_formfield(\%data);

sub build_formfield {
        my %deref = %{$_[0]};
        if (1==2) { # nur zum Umschalten für Tests
                print STDOUT $cgi -> popup_menu (
                        -name           => 'fieldname',
                        -values         => $deref{'test2'},
                        # dies hier klappt (natürlich nicht):
                        -labels         => {$deref{'test2'} => $deref{'test1'}}
                );
        }
        else {
                print STDOUT $cgi -> popup_menu (
                        -name           => 'fieldname',
                        -values         => ['value1','value2'],
                        # und das soll rauskommen:
                        -labels         => {
                                'value1'        => 'anzeige1',
                                'value2'        => 'anzeige2',
                        },
                );
        }
}

Edit: Typo
Last edited: 2010-06-28 17:48:33 +0200 (CEST)

10 print "Hallo"
20 goto 10

+18 replies
renee

2010-06-28 17:52
User since
2003-08-04
14371 Artikel
ModeratorIn
Das kann man ganz einfach mit nem Hashslice machen (dazu gab es auch mal 'nen Artikel in $foo Nr. 4
Code (perl): (dl )

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

my %deref = %{$_[0 my %hash_for_popup; my @values = @{ $deref{test1} }; my @labels = @{ $deref{test2} }; @hash_for_popup{ @values } = @labels; # ... print STDOUT $cgi -> popup_menu ( -name => 'fieldname', -values => $deref{'test2'}, -labels => \%hash_for_popup );
Oder per map:
Code (perl): (dl )

1 2 3 4

my @values = @{ $deref{test1} }; my @labels = @{ $deref{test2} }; my %hash_for_popup = map{ $deref{test1}->[$_] => $deref{test2}->[$_] }( 0 .. $#{$deref{test1}} );
edit: Formatierung geändert

edit2: Aber eigentlich würde ich das eher über ein Template-System lösen als mit CGI.pm
Last edited: 2010-06-28 17:54:55 +0200 (CEST)
OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/
- +4 replies
- bianca
  
  2010-06-28 18:05
  User since
  2009-09-13
  7016 Artikel
  BenutzerIn
  2010-06-28T15:52:33 renee
  Das kann man ganz einfach mit nem Hashslice machen
  
  Was hab ich bei der Implementierung falsch gemacht?
  
  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
  
  #!/usr/bin/perl -w use strict; use warnings; use diagnostics; use CGI; my $cgi=CGI->new; my %data = ( test1 => ['anzeige1','anzeige2'], test2 => ['val1','val2'], ); build_formfield(\%data); sub build_formfield { my %deref = %{$_[0]}; my %hash_for_popup; my @values = @{ $deref{test1} }; my @labels = @{ $deref{test2} }; @hash_for_popup{ @values } = @labels; print STDOUT $cgi -> popup_menu ( -name => 'fieldname', -values => $deref{'test2'}, -labels => \%hash_for_popup, ); }
  
  Code: (dl )
  
  1 2 3 4
  
  <select name="fieldname" > <option value="val1">val1</option> <option value="val2">val2</option> </select>
  
  2010-06-28T15:52:33 renee
  (dazu gab es auch mal 'nen Artikel in $foo Nr. 4
  
  Hat mich bisher abgeschreckt, dass es die nur auf Papier gibt. Wurde das mittlerweile geändert?
  
  2010-06-28T15:52:33 renee
  edit2: Aber eigentlich würde ich das eher über ein Template-System lösen als mit CGI.pm
  
  Mache ich später auch. Aber das ist eine spezielle Sache, die mit CGI.pm laufen muss.
  
  Danke Dir
  10 print "Hallo"
  20 goto 10
  - +2 replies
  - renee
    
    2010-06-28 18:12
    User since
    2003-08-04
    14371 Artikel
    ModeratorIn
    
    2010-06-28T16:05:30 bianca
    Was hab ich bei der Implementierung falsch gemacht?
    
    mach mal aus
    
    Code (perl): (dl )
    
    1 2
    
    my @values = @{ $deref{test1} }; my @labels = @{ $deref{test2} };
    
    das hier:
    
    Code (perl): (dl )
    
    1 2
    
    my @values = @{ $deref{test2} }; my @labels = @{ $deref{test1} };
    
    OTRS-Erweiterungen (http://feature-addons.de/)
    Frankfurt Perlmongers (http://frankfurt.pm/)
    --
    
    Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
    Perl-Entwicklung: http://perl-services.de/
    - bianca
      
      2010-06-28 18:14
      
      User since
      2009-09-13
      7016 Artikel
      BenutzerIn
      
      2010-06-28T16:12:26 renee
      mach mal aus
      
      Wie cool, ja, das war es natürlich :)
      CGI.pm ist da aber nicht sonderlich gesprächig anscheinend. Na ja, wahrscheinlich hab ich die nötigen Schalter nicht gesetzt....
      
      Danke Dir nochmals!
      10 print "Hallo"
      20 goto 10
  - havi
    
    2010-06-29 08:49
    
    User since
    2003-08-04
    2036 Artikel
    BenutzerIn
    
    2010-06-28T15:52:33 renee
    (dazu gab es auch mal 'nen Artikel in $foo Nr. 4
    
    2010-06-28T16:05:30 bianca
    Hat mich bisher abgeschreckt, dass es die nur auf Papier gibt. Wurde das mittlerweile geändert?
    
    Das Perl-Magazin $foo gibts auch als PDF!
    Perl-Zeitung - http://perl-zeitung.at/
    Perl-Blog - http://usr-bin-perl.blogspot.com/
- MartinR
  
  2010-06-29 08:33
  
  Subtree with 13 replies: Warum HTML mit Template statt CGI erzeugen
  
  User since
  2004-06-17
  305 Artikel
  BenutzerIn
  
  2010-06-28T15:52:33 renee
  edit2: Aber eigentlich würde ich das eher über ein Template-System lösen als mit CGI.pm
  
  ... äh, warum? Nur in diesem speziellen Fall oder siehst Du generell Vorteile?
  
  //Modedit GwenDragon: Titel für Subtree
  Last edited: 2010-06-29 11:46:42 +0200 (CEST)

View all threads created 2010-06-28 17:44.