Dotaz: PERL goto :label - Ukončení, příp. jiné znovunačtení souborů

[saky]

Dobrý den.

Mám v kódu na začátku načtení cca 15 txt souborů a chtěl bych na příkaz provést jejich obnovení, tedy reload (můžou se změnit za chodu).

Jsou to takovéto definice, přičemž každý soubor má trošku jiný formát:

 

open(DATA, 'url.txt') or die "nemuzu nacist soubor url.txt\n";

while($radek = <DATA>) {

if (substr($radek, 0, 1) ne '#') {

chomp($radek);

$link{$radek} = 'LINK';

}

}

close(DATA);

 

Chtěl bych, aby mi tedy tyto soubory nadefinované na začátku po příkazu znovu načetl. Zkoušel jsem použít goto :label, ale to provede celý kód až do konce, což je nežádoucí. Jde nějak označit ta část, která se má na příkaz provést? Případně jak jinak provést znovunačtení, aniž bych musel zopakovat všech 100 řádků v akci na příkaz? 

 

Díky za tipy :o)

 

---

---

Odpovědi

[pht]

Co třeba dát načítání do podprogramu?

[saky]

 To se mi právě nepodařílo. Pokud dám do : sub nacitani { .... } více než jeden soubor, nefunguje to.. Mimochodem, pokud se pak pomocí goto volá ten podprogram, proběhnou jen funkce uvnitř? To by vše vyřešilo, ale asi mám špatný formát...

[pht]

nefunguje to

To znamená co? Ztmavne Vám obrazovka, začne na ní blikat velké červené ERROR a za chvíli to celé exploduje?

pokud se pak pomocí goto volá ten podprogram

Podprogram se nevolá pomocí goto ale normálně napsáním jeho jména.

[saky]

 :o).

Pouze problikne, takže ani nezjistím chybu... Při vložení 1 souboru viz příklad to běží normálně, ale jestliže do podprogramu vložím 2 a více, ihned spadne.. Ještě jednou juknu, co by mohlo být špatně Díííky

[pht]

Pouze problikne

Tak na to neklikejte a pusťte to z terminálu, ať vidíte výstup.

Při vložení 1 souboru viz příklad to běží normálně, ale jestliže do podprogramu vložím 2 a více, ihned spadne

Existuje asi půl miliónu možností, jak "vložit 2 a více", pokud chcete s něčím poradit, tak se snažte problém popsat co nejpřesněji.

[saky]

 Ok, takže 

sub nacitani {

 

open(DATA, 'udrzovac.txt') or die "nemuzu nacist soubor udrzovac.txt\n";

while($radek = <DATA>) {

if (substr($radek, 0, 1) ne '#') {

$udr[$a] = $radek;

$a++;

}

}

close(DATA);

#print "nacitam soubor refresh.txt...\n";

my @hlaseni = ();

$a = 0;

$radek = '';  

 

open(DATA, 'refresh.txt') or die "nemuzu nacist soubor refresh.txt\n";

while($radek = <DATA>) {

if (substr($radek, 0, 1) ne '#') {

$hlaseni[$a] = $radek;

$a++;

}

}

close(DATA);

 

}

 

 

 Nefunguje. Takto za sebou je provedeno načtení souborů, tak jsem myslel, že bych to pouze "obalil" do sub nacitani { .....}. Asi špatný předpoklad

[saky]

No, stále jste nenaznačil, proč to nefunguje (tj. očekávaný verzus skutečný výsledek), ale Váš problém je v tom, že máte my @hlaseni, což definuje lexikální proměnnou, která zanikne po návratu z funkce. Pokud ten řádek odstraníte, budete používat globální proměnnou, a bude to "fungovat".

Každopádně si ale zkuste do hlavy zadrátovat, že pokud děláte copy-paste kódu, tak je něco špatně. Proč nepoužijete podprogram, kterému dáte jméno souboru a vrátí Vám obsah? Např.

sub nacti_jeden {
    my $file = shift;
    open(DATA, $file) or die "nemuzu nacist soubor $file\n";

    my $a, @ret;

    while(my $radek = <DATA>) {
        if (substr($radek, 0, 1) ne '#') {
            $ret[$a] = $radek;
            $a++;
        }
    }
    close(DATA);
    return @ret;
}

sub nacteni {
    @pole1 = nacti_jeden("1.txt");
    @pole2 = nacti_jeden("2.txt");
}

Případně, pokud to chcete napsat opravdu v Perlu, tak

sub nacti_jeden {
    my $file = shift;
    open(my $data, $file) or die "nemuzu nacist soubor $file\n";

    return grep { not /^#/ } (<$data>);
}

[saky]

Och... hroooza Ale k veci - pisete, ze Vam to nefunguje - nacita len 1 subor. Je to preto lebo vobec nerozumiete tomu co robite:

- na zaciatku (nacitavanie prveho suboru) pracujete s globalnou premennou @udr

- pred dalsim nacitavanim uz ale definujete lokalnu premennu @hlaseni - ta nie je inkde pouzita ako navratova hodnota a po ukonceni funkcie (podprogramu) je zahodena

- PS: pridavanie do pola cez odpomatavanie si indexu je riadne zvratene gugl -> push/pop & unshift/shift (pre Vas je potrebny push)

 

Resp. pre Vas je potrebne pouzit funkciu ktoru Vam napisal "pht" - najlepsie tu druhu s regularnym vyrazom - je len potrebne si hlavne dostudovat co su lokalne premenne, co globalne, naco su dobre navratove hodnoty vo funkciach.

 

  

 

[saky]

 Díky všem. Vyřešeno