Gewusst wie: einfügen von hash-in-hash in Perl

Habe ich eine einfache hash irgendwo definiert in der main-Datei

our %translations = (
    "phrase 1" => "translation 1",
    # ... and so on 
    );

In einer anderen Datei möchte ich hinzufügen, einige weitere übersetzungen. Das heißt, ich will etwas wie das hier tun:

push our %translations, (
    "phrase N" => "blah-blah",
    # ....
    "phrase M" => "something",
    );

Natürlich ist dieser code nicht funktionieren würde: push funktioniert nicht mit hashes. Also meine Frage ist: was ist eine einfache und elegante Möglichkeit zum einfügen eines hash-Werte in einem vorhandenen hash?

Ich würde nicht wollen, zu greifen, zu

$translations{"phrase N"} = "blah-blah";
# ....
$translations{"phrase M"} = "something";

da in Perl und man sollte in der Lage sein, Dinge zu tun, ohne zu viel Wiederholung im code...

InformationsquelleAutor Pasha | 2011-09-22

Schreibe einen Kommentar