🚀 go-pugleaf

Krzysztof Osiecki <krzycho@amba.matrix.com.pl> wrote:

: chciałbym mieć coś na kształt rekordu powiedzmy takiego:

: ( nazwa => "jakiś string"
:   wersja => "1.00a"
:   ok => "y" )

: i mieć tablicę takich rekordów, oraz możliwość dokładania do tej tablicy
: nowych. możliwość sortowania mile widziana. czytam dokumentację i czytam, ale
: nadal nie za bardzo mam wyobrażenie jak to zrobić, więc proszę o poradę.

Poczytaj sobie man perldsc:

     perldsc - Perl Data Structures Cookbook

     There are separate sections on each of the following:
        o arrays of arrays
        o hashes of arrays
        o arrays of hashes
        o hashes of hashes
        o more elaborate constructs

A ogólnie, to czego potrzebujesz będzie wyglądać mniej więcej tak:

$dane = [ { nazwa => "zzz", wersja => "1.00", ok => "y" },
          { nazwa => "yyy", wersja => "1.01", ok => "y" },
          { nazwa => "xxx", wersja => "0.99", ok => "n" }  ];

push @$dane, { nazwa => "aaa", wersja => "2.01", ok => "y" };

print $dane->[1]{nazwa};
print $dane->[0]{wersja};

# Sortowanie po nazwie:

foreach $rekord ( sort { $a->{nazwa} cmp $b->{nazwa} } @$dane ) {
  print join( " - ", ( $rekord->{nazwa}, $rekord->{wersja}, $rekord->{ok} ) );
  print "\n";
}

P.S. Jeżeli nie wiesz nic na temat referencji, to najpierw radzę 
     poczytać man perlref 

-- 
Piotr Piątkowski, Uczelniane Centrum Informatyki, AGH Krakow, POLAND