🚀 go-pugleaf

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);