Как вставить хеш в хеш в Perl

У меня есть простой хеш, определенный где-то в главном файле

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

В другом файле я хочу добавить еще несколько переводов. То есть я хочу сделать что-то вроде этого:

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

Конечно, этот код не будет работать: push не работает с хешами. Итак, мой вопрос: каков простой и элегантный способ вставить хэш значений в существующий хэш?

Я бы не хотел прибегать к

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

, поскольку в Perl предполагается, что вы можете что-то делать без лишних повторений в коде ...

11
задан Pasha 22 September 2011 в 08:41
поделиться