🚀 go-pugleaf

On 5 Lip, 11:19, stas53 <sta...@gazeta.pl> wrote:
> Też bym zalecał postudiowanie struktur PERLowych,
> ale w odróżnieniu od wcześniej piszących Kolegów,
> daję poniżej kompletną odpowiedź na Twoje pytania.
> Taką ma dziś fantazję.
>               Stanisław Romański
>
>     use strict;
>     use Data::Dumper;
>
>     # po pierwsze, prawdopodobnie chciales, zeby identyfikatorem byl
> lancuch '001' a nie liczba '1'
>     # po drugie, nie wiem czemu liczba wplat i ich suma sie nie
> zgadzaly ;-(
>     my %raporty = (
>        '001' => {
>            nrRaportu         => "001",
>            nazwaPliku        => "0001.txt",
>            dataRaportu       => "20110705",
>            dataKswiegowania  =>  "20110705",
>            iloscWplat        =>  "2",
>            sumaWplat         =>  "102",
>            wplaty => [
>                { nrWplaty => "001", dataWplaty => "20110630", kwota =>
> 36,  },
>                { nrWplaty => "002", dataWplaty => "20110630", kwota =>
> 66,  },
>                      ],
>                 },
>
>                 );
>
>     print Dumper(\%raporty);
>
>     # ja lubie poslugiwac sie referencja do hasha a nie hashem
>     my $rraporty = \%raporty;
>
>     # nowa wplata do raportu '001'
>     my $nowa_wplata_nrWplaty = '003';
>     my $nowa_wplata_kwota = 67;
>     my $nowa_wplata_pola = { nrWplaty => $nowa_wplata_nrWplaty,
>                                            dataWplaty => "20110701",
>                                            kwota =>
> $nowa_wplata_kwota, };
>     push @{$rraporty->{'001'}->{'wplaty'}}, $nowa_wplata_pola;
>            $rraporty->{'001'}->{'sumaWplat'} += $nowa_wplata_kwota;
>            $rraporty->{'001'}->{'iloscWplat'} ++;
>
>    # nowy raport
>     $rraporty->{'002'}->{'wplaty'} = {
>            nrRaportu         => "002",
>            nazwaPliku        => "0002.txt",
>            dataRaportu       => "20110706",
>            dataKswiegowania  =>  "20110706",
>            iloscWplat        =>  "2",
>            sumaWplat         =>  "46",
>            wplaty => [
>                { nrWplaty => "001", dataWplaty => "20110630", kwota =>
> 22,  },
>                { nrWplaty => "002", dataWplaty => "20110630", kwota =>
> 24,  },
>                      ],
>                 };
>
>     print Dumper($rraporty);

Z poprawką, że linijka za '# nowy raport ' powinna być
       $rraporty->{'002'} = {


;-)  S.R.