Array push klappt nicht richtig (Perl/CGI)

[thread]19138[/thread]

Array push klappt nicht richtig

Tags: perl5 CGI Array Ähnliche Threads

Leser: 15

Articles: hide open all | hide show old branches

+6 replies
Gast Tino

2014-06-08 23:37
Hallo,

ich möchte mein Perl Script mehrsprachig umsetzen und nutze im Moment eine Template Engine. Da mir die Template Engine nur ein Array mit Variablen gestattet, versuche ich die "Sprache" in das Variablen-Array zu puschen.

Sprache
Code: (dl )

1 2 3 4 5 6 7 8 9 10

my %lang; $lang{"status"}{"de"} = "Status"; $lang{"filter_on"}{"de"} = "eingeschaltet"; $lang{"filter_off"}{"de"} = "ausgeschaltet"; $lang{"ok"}{"de"} = "OK"; $lang{"status"}{"en"} = "State"; $lang{"filter_on"}{"en"} = "on"; $lang{"filter_off"}{"en"} = "off"; $lang{"ok"}{"en"} = "OK";
Code Auszug
Code: (dl )

1 2 3 4 5 6 7

use Data::Dumper; print Dumper \%lang; for (keys %lang) { print "Add $_ with $lang{$_}{$sesslang} for Sessionlang $sesslang "; push @{$test->{"lang_$_"}}, join(".", $lang{$_}->{$sesslang} ) ; }
Dumper zeigt mir den Aufbau des Sprachen-Arrays korrekt an. Auch die Ausgabe durch print zeigt mir den Key sowie die Value an.

Im Template steht auch "lang_status" zur Verfügung, leider kommt jedoch folgende Ausgabe:
Code: (dl )

ARRAY(0x30bed50)
Kann mir jemand helfen?

Danke vorab.

Gruß

Tino
Last edited: 2014-06-08 23:43:29 +0200 (CEST)
- +5 replies
- betterworld
 
 2014-06-08 23:45
 User since
 2003-08-21
 2613 Artikel
 ModeratorIn
 Guest Tino
 
 Code: (dl )
 
 join(".", $lang{$_}->{$sesslang} )
 
 Wir wissen nicht, was in diesem Hashelement drinsteht. Aber wenn es eine Arrayreferenz ist, musst du sie dereferenzieren.
 
 Code: (dl )
 
 join(".", @{ $lang{$_}->{$sesslang} })
 
 Lies nochmal über Perl-Datenstrukturen nach.
 Lieblingsmodule: IPC::System::Simple, Path::Class
 - +4 replies
 - Gast Tino
 
 2014-06-08 23:49
 Hallo,
 
 danke für die schnelle Antwort. Kurzer Nachtrag, die join-Funktion habe ich nur Testhalber eingesetzt um ggf. aus dem Array ein String zu machen.
 
 Wenn ich die Funktion wie von "betterworld" beschrieben ändere, dann siehts so aus:
 
 Code (perl): (dl )
 
 1 2 3 4
 
 for (keys %lang) { print "Add $_ with $lang{$_}{$sesslang} for Sessionlang $sesslang "; push @{$test->{"lang_$_"}}, join(".", @{ $lang{$_}->{$sesslang} }) ; }
 
 Es kommt dann zu folgendem Fehler:
 
 Quote
 Can't use string ("OK") as an ARRAY ref while "strict refs" in use ...
 
 Last edited: 2014-06-09 00:27:37 +0200 (CEST)
 - +3 replies
 - FIFO
 
 2014-06-09 09:46
 
 User since
 2005-06-01
 469 Artikel
 BenutzerIn
 
 Naja, Perl sagt's Dir ja in der Fehlermeldung: Du versuchst, den Skalar 'OK' als Arrayref zu verwenden:
 
 Code: (dl )
 
 join(".", @{ $lang{$_}->{$sesslang} })
 
 In $lang{$_}{$sesslang} steht (für $_='ok' und $sesslang='de') aber nur 'OK'. Ich vermute mal, Du willst alle zu einer bestimmten Sprache $sesslang gehörigen Werte listen, so etwa 'lang_de' Dann schreibst Du sowas wie
 
 Code (perl): (dl )
 
 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
 
 my %lang; $lang{"status"}{"de"} = "Status"; $lang{"filter_on"}{"de"} = "eingeschaltet"; $lang{"filter_off"}{"de"} = "ausgeschaltet"; $lang{"ok"}{"de"} = "OK"; $lang{"status"}{"en"} = "State"; $lang{"filter_on"}{"en"} = "on"; $lang{"filter_off"}{"en"} = "off"; $lang{"ok"}{"en"} = "OK"; my %test; my $sesslang = 'de'; for my $keyword ( keys %lang ) { print "Add $keyword with $lang{$keyword}{$sesslang} for Sessionlang $sesslang \n"; push @{ $test{"lang_$sesslang"} }, $lang{$keyword}{$sesslang}; } print join '.', @{ $test{lang_de} }; print " \n";
 
 Ausgabe
 
 Code: (dl )
 
 1 2 3 4 5
 
 Add ok with OK for Sessionlang de Add filter_off with ausgeschaltet for Sessionlang de Add status with Status for Sessionlang de Add filter_on with eingeschaltet for Sessionlang de OK.ausgeschaltet.Status.eingeschaltet 
 
 Beachte, dass die Reihenfolge der Keywords durch die Verwendung von Hashes nicht ~~bei jeder Sprache gleich sein muss~~ der Reihenfolge beim Erzeugen der Elemente entspricht.
 
 Du solltest vielleicht nochmal in perldsc reinschauen. Vielleicht kann eine andere Datenstruktur Deinen Bedarf besser abbilden.
 
 Editiert von FIFO: typo
 
 Editiert von FIFO: strike: Falsch ausgedrückt.
 Last edited: 2014-06-09 12:18:04 +0200 (CEST)
 Everyone knows that debugging is twice as hard as writing a program in the first place. So if you're as clever as you can be when you write it, how will you ever debug it? -- Brian Kernighan: "The Elements of Programming Style"
 - +2 replies
 - tino91DE
 
 2014-06-09 10:04
 
 User since
 2014-06-08
 8 Artikel
 BenutzerIn
 
 Hallo,
 
 ich danke dir. Ich habe gestern Abend noch ein bisschen gelesen, zugegeben ist dies mein ersten Perl "Programm", bisher war ich auf PHP fixiert. Der Umstieg von PHP auf Perl ist angenehm, wäre anders herum aber sicherlich etwas einfacher gewesen.
 
 Meine Lösung sieht nun wie folgt aus:
 
 Code: (dl )
 
 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
 
 my %vars = {}; my $tt = Template->new({ ABSOLUTE => 1, VARIABLES => { stylesheet => $Color, title => $Title, loginid => $username, userid => $userid, lang => $sesslang, }, }); # Sprache einbinden for (keys %lang) { #print "Add $_ with $lang{$_}{$sesslang} for Sessionlang $sesslang "; $vars{"lang_$_"} = $lang{$_}->{$sesslang}; } [...] $tt->process($Template, \%vars ) || die "Template process failed: ", $tt->error(), "\n";
 
 Danke an alle freundlichen Helfer.
 Last edited: 2014-06-09 10:45:12 +0200 (CEST)
 
 pq
 
 2014-06-09 10:46
 
 User since
 2003-08-04
 12208 Artikel
 Admin1
 
 dann darf ich dir vielleicht noch ein tutorial wie Modern Perl - The Book empfehlen.
 zu finden unter anderen aktuellen tutorials hier: http://perl-tutorial.org/
 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 2014-06-08 23:37.