Dotaz: Kopie lokální datové struktury (pole, hash) do globální v Perlu

[Xerces]

Ahoj, píšu teď něco v Perlu (ha ha ha a celkem mi to jde, ale hodila by se mi rada zkušenějších ohledně jedné záležitosti.

Ve funkci nahraj_kofiguraci načítám ze souboru nějaká data a parsuju si to do lokální struktury, která není jednoduché pole ale je to hash obsahující jako hodnotu klíče vždy pole, tedy dalo by se říci hash polí, respektive buďme přesní hash referencí na pole. Po naplnění této lokální brurus proměnné bych ji chtěl na konci funkce nějak překlopit do globální proměnné, ale teď jak na to? Musím tu globální pomocí foreach nejdřív vyčistit a pak prvek po prvku opět naplnit? Jak je to s platností lokálních proměnných v tomto případě? Připomínám, že ty reference na pole v hashi jsou anonymní. Neexistuje na to nějaký prima trik?

Děkuji.

Jak už jsem uvedl jde o parsování a aktualizaci nějaké konfigurace, konkrétně běží program který je řízen touto konfiguraci a chci mít možnost mu za běhu podstrčit novou konfiguraci, ovšem nejprve ji chci načíst pro kontrolu do lokální proměnné a teprve v případě že je vše ok najednou přeplácnout do globálu. Toliko pro vysvětlení.

Odpovědi

[Xerces]

Tak jsem si uvědomil jak ten dotaz ještě zjednodušit

Existuje v perlu nějaké elegantní řešení pro tzv. deep copy složitých datových struktur (třeba když potřebuji kopii lokální proměnné do globální)? nebo se to musí poctivě nakódovat na základě znalosti té struktury?

[Ladicek]

A co takhle nepřeklápět celou tu strukturu, ale jen referenci na ni? Příliš jednoduché než aby to fungovalo?

[Xerces]

Dík za reakci to mě nejprve taky napadlo, ale .... Sice získám kopii reference, jenže jestli se nepletu, bude se odkazovat na stejný místo v paměti, tedy do lokálních struktur tzn. při opětovném vyvolání té funkce, když budu ukládat nový konfigurák do těch lokálních proměnných, tak si budu zároveň přepisovat ty globální, ne? Přiznám se, že už z toho mám zamotanou hlavu. Ufff radši to ještě jednou schematicky popíšu.

#deklarace prazdne hash
our %konfigurace;

sub load_konfig() {
  # deklaruje lokalni promenne;
  my %konfigurace;
  # nacte ze souboru data a ulozi postupne do %konfigurace,
  # jenz ma strukturu { klic1=>[1,2,3,4],klic2=>[1,2],...}
  # jestlize doslo ke korektnimu naplneni lokalnich promennych,
  # zkopiruj my %konfigurace do our %konfigurace,
  # jinak skonci ale zachovej puvodni globalni konfiguraci.
}

# hlavni program
load_konfig();
# chvili neco dela na zaklade %konfigurace
load_konfig();
# chvili neco dela na zaklade nove %konfigurace
load_konfig();
# chvili neco dela na zaklade dalsi nove %konfigurace

Chci programu menit konfiguraci za behu a chci mit moznost kontroly syntaxe te nove konfigurace aniz bych narusil aktualni beh aplikace.

[Ladicek]

Sice získám kopii reference, jenže jestli se nepletu, bude se odkazovat na stejný místo v paměti, tedy do lokálních struktur tzn. při opětovném vyvolání té funkce, když budu ukládat nový konfigurák do těch lokálních proměnných, tak si budu zároveň přepisovat ty globální, ne?

Tak takhle snad nefungují lokální proměnné ani v Perlu, ne? Resp. je rozdíl mezi my a local, ale už si nepamatuju jaký, tak daleko jsem se v Perlu naštěstí nedostal

[mlz]

Asi jsem to nepochopil, ale

our $konfigurace={} # reference na hash

$konfigurace=load_konfig();

#v load_konfig()

my $ret=$main::konfig # puvodni hodnota

/VSE v poradku s daty/ && $ret=konfig # lokalni v procedure

return $ret;
}

IMO our %config a my %konfig je zbytecnost samoucelna, nesetrici pamet a znesnadnujici citelnost

Povesit load_konfig na signal (HUP, USR1) by byl problem ?

[Xerces]

> Povesit load_konfig na signal (HUP, USR1) by byl problem ?

Ano to mam v umyslu, ale to primo nesouvisi s problemem tak jsem to nechtel vubec psat abych tim nematl ctenare.

> /VSE v poradku s daty/ && $ret=konfig # lokalni v procedure

Mozna v tom opravdu vidim problem jen ja, ale podle me je problem prave tady. Uvedomte si ze ta data ze souboru parsuju do hashe polí postupně a teprve když načtu vše mohu říci že vše je ok a provézt kopii struktury. Prostě jsou možné jen dva stavy, budˇjsou všechna načtená data ok, pak je překlopím do main struktury (protože někde si je mezitím ukládat musím), nebo tam došlo k chybě a pak chci, aby se to main struktury ani nedotklo. Jak to vidím já budu muset v závěru funkce po ověření správnosti načtené konfigurace provézt něco jako (psano velice schematicky):

foreach ($key,$value) = $main::konfigurace { # maze globalni strukturu
  splice(@$value); # vymaze pole pod klicem v hashi
  delete($main::konfigurace{$key}); # vymaze prvek globalniho hashe;
}

foreach ($key,$value) = $konfigurace { # vytvari novou globalni strukturu z lokalni
  $main::konfigurace{$key} = [ @$value ] ; # vytvoř kopii pole a její anonymní referenci ulož jako hodnotu klíče globálního hashe
}

Tak za výše uvedené bych asi zasloužil oprátku, ale principiálně by to snad mělo být čisté.

No ale taky je možné, že jsem jenom nepochopil jak je to s platností lokálních proměnných a lokálních referencí po opuštění bloku a princip chování garbage kolektoru v souvislosti s lokálnímy a globálnímy odkazy na anonymní pole vytvořené v rámci lokálního kontextu.

[Xerces]

Tak jsem ještě něco početl a zdá se že jsem opravdu viděl problém někde kde není. Perl prostě dealokuje automaticky a zároveň pokud držím odkaz na strukturu byť bych si ho předával z lokálního kontextu do globálního tak ta data také udrží a stačí opravdu předávat reference. V okamžiku kdy potřebuju zkopírovat nová data stačí překopírovat referenci a odkazuji se na nová data byť by byla generována někde ve funkcy lokálně přičemž garbage collector zajistí dealokaci původní struktury na kterou již neexistuje reference. Aspoň to podle testů, které jsem provedl pomocí Data::Dumper vypadá. Díky za postřehy a Perlu zdar.