🚀 go-pugleaf

Krzysztof (kzal@pol.pl) wrote:
: A, i jeszcze jedno, nigdy nie wiadomo ile bedzie rekordow w tablicy
: %COS, jest tworzona dynamicznie.

no to masz tutaj coś co powinno pomóc (mi pomogło)

	Krzysztof. 

From: kompas@galaxy.uci.agh.edu.pl (Piotr Piatkowski)
Newsgroups: pl.comp.lang.perl
Subject: Re: odpowiednik tablicy struktur

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